Hallo Peter, danke für die Hilfe. Folgende VBA-Zeilen sollen aus dem String einen Datumsstring generieren, den ich dann auf ein gültiges Datum überprüfe:
medScan ist ein 40 bis 50 stelliger QRC indem ich zuerst die Position einer "Markierungszahl" suche und danach die 6 Zahlen selektiere
'suche die 17 im QRC ScanStrLänge = InStr(1, medScan, "17" 'die nächsten 6 Zahlen trenne mit Punkte ScanStr = Mid(medScan, ScanStrLänge + 2, 2) + "." + Mid(medScan, ScanStrLänge + 4, 2) + "." + Mid(medScan, ScanStrLänge + 6, 2) 'wenn der String als Datum durchgeht, zeige es in einem Textfeld If IsDate(CDate(ScanStr)) Then edDatumString.Value = CDate(ScanStr) Verwende ich falsche Funktionen, oder zu umständlich. BG Paula
|