Ok, so wird das nix.
Hier bitte...
Option Explicit
Sub Schleife()
Dim s As String
Dim wks As Excel.Worksheet
Dim lngRow As Long 'Zeilenzähler stets Long -> bei Integer steht Dein Macro ab 32767 + 1
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
|