VBA: Laufzeitfehler 13 nur in Pers_Makros
16.10.2018 08:37:20
Rob
wenn ich folgenden Code über ein Modul aus meiner "Persönlichen Makroarbeitsmappe" ausführe, erhalte ich den Laufzeitfehler 13 bei lenCell = Len(Cells(i, 72)). Allerdings tritt der Fehler komischer Weise nicht im Debug-Modus mit F8 auf - auch nicht, wenn ich den Code über ein Modul im Workbook ausführe!?!?
Ich habe mir jetzt damit beholfen, den Fehler mit "On Error Resume Next" zu umgehen - er führt _
auch alle anschließenden Befehle in der If-Schleife korrekt aus - allerdings ist das nicht die _ schickste Methode. Ich würde gerne verstehen warum:
Dim lastRow As Long
Dim i, lenCell As Integer
lastRow = Sheets(1).Cells(Rows.Count, 72).End(xlUp).Row
For i = 2 To lastRow
On Error Resume Next
lenCell = Len(Cells(i, 72))
If lenCell = 2 Then
Cells(i, 72) = Cells(i, 72) & "000"
ElseIf lenCell = 3 Then
Cells(i, 72) = Cells(i, 72) & "00"
ElseIf lenCell = 4 Then
Cells(i, 72) = Cells(i, 72) & "0"
End If
Next i
On Error GoTo 0