Hallo Luca,
ich hatte das nicht zu Ende gedacht. Bei Deiner Do-Schleife kann das nicht funktionieren.
Hier eine andere Version mit For-Schleife. Auch habe ich das Splitten noch etwas vereinfacht, denn ich gehe davon aus, dass Du nur Datum und Uhrzeit brauchst und nicht den verhunzten Rest.
Wobei man das auch mit Left$() und MID$() hätte lösen können, da Datum und Uhrzeit ja eine eindeutige Länge haben.
Sub LieferungerfasstT()
Dim Werte() As String
Dim Zeile As Integer
'Columns("O:P").Insert
'Application.Wait (Now + TimeValue("00:00:02"))
With Worksheets("Tabelle1")
For Zeile = 1 To .Cells(Rows.Count, 14).End(xlUp).Row
With .Cells(Zeile, 14)
If .Value Like "#*T*" Then
Werte = Split(.Value & "Z", "Z")
.Offset(0, 0).Value = Split(Werte(0), "T")(0) 'Datum
.Offset(0, 1).Value = Split(Werte(0), "T")(1) 'Uhrzeit
End If
End With
Next Zeile
End With
'Application.Wait (Now + TimeValue("00:00:02"))
End Sub
viele Grüße
Karl-Heinz
|