Überlauf / Laufzeitfehler 6
05.07.2020 20:04:24
Anni
ich habe einen Laufzeitfehler 6 Überlauf in folgendem Teil meines Makros. Es stoppt bei
For i=2 To FinalRow
FinalRow liest es noch aus mit 202388
bei i steht im Lokalfenster 1 (ich weiß nicht ob das normal ist aber es müsste ja erst bei 2 anfangen)
Ich hätte gedacht es sind zu viele Zeilen aber die Dimension Long geht ja bis +- 2.147.483.647.
Daran kann es also nicht liegen oder?
Sonst hat der Code immer funktioniert. Habe jetzt nur mehr Daten im Tabellenblatt.
Kann mir jemand weiterhelfen?
Sub Zelle zerlegen
Dim FinalRow As Long
FinalRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To FinalRow
'zerlegt Zeitstempel
'Day
Cells(i, 10).Value = Mid(Cells(i, 1).Value, 9, 2)
'Month
Cells(i, 11).Value = Mid(Cells(i, 1).Value, 6, 2)
'Year
End Sub
Anni