| 
 
  Extreme Veteran
 
 Beiträge: 582
 
     
 | Hallo, 
 
 Paula - 08.05.21  10:56 ScanStrLänge = InStr(1, medScan, "17"))
 ScanStr = Mid(medScan, ScanStrLänge + 2, 2) + "." + Mid(medScan, ScanStrLänge + 4, 2) + "." + Mid(medScan, ScanStrLänge + 6, 2)
 If IsDate(CDate(ScanStr)) Then edDatumString.Value = CDate(ScanStr)
 Die Ermittlung von ScanStrLänge und ScanStr ist erstmal ok. Allerdings würde CDate bereits einen Fehler geben, wenn im String kein gültiges Datum enthalten ist. Insofern könntest du folgendes machen:
 
 On Error Goto gKeinDatum
 edDatumString.Value=CDate(ScanStr)
 Goto gEnd
 gKeinDatum:
 edDatumString.Value=Null
 gEnd:
 
 -----
 Gruss - Peter
 |