Option
Explicit
Sub
Schleife()
Dim
s
As
String
Dim
wks
As
Excel.Worksheet
Dim
lngRow
As
Long
Dim
lngLastRow
As
Long
Set
wks = ThisWorkbook.Worksheets(
"Übersicht"
)
With
wks
lngLastRow = IIf(IsEmpty(.Cells(.Rows.Count, 7).Value), _
.Cells(.Rows.Count, 7).
End
(xlUp).Row, _
.Cells(.Rows.Count, 7).Row)
End
With
For
lngRow = 2
To
lngLastRow
Step
1
With
wks
If
Len(.Cells(lngRow, 7)) >= 8
Then
s = .Cells(lngRow, 7)
.Cells(lngRow, 8) = DateSerial(Mid(s, 1, 4), Mid(s, 5, 2), Mid(s, 7, 2))
End
If
End
With
Next
End
Sub