VBA-Frage
31.01.2005 12:54:08
stefan
ich habe einen VBA-Code. Der bisher immmer ohne Fehler funktionierte. Jetzt bekomme ich die Fehlermeldung "Laufzeitfehler 13" und ich weiss nicht wieso. Der Code wurde nicht verändert !!
Der Laufzeitfehler entsteht bei folgender Zeile:
Select Case Left(.Cells(i, 1), 1)
Weiss jemand Rat wie ich das Problem beheben kann ?
Thx
Stefan
Sub Schritt_3_BAB_CC_zuweisen()
Set ws2 = Worksheets("Upload_BAB")
With Worksheets("BAB_Work")
For i = 1 To .Cells(65535, 1).End(xlUp).Row
Select Case Left(.Cells(i, 1), 1)
Case "7"
For n = 1 To 4
ws2.Cells((i - 1) * 4 + n, 1) = .Cells(i, 1)
ws2.Cells((i - 1) * 4 + n, 2) = .Cells(i, 2)
ws2.Cells((i - 1) * 4 + n, 3) = .Cells(1, 2 + n)
ws2.Cells((i - 1) * 4 + n, 4) = .Cells(i, 2 + n)
Next n
End Select
Next i
End With
Set ws2 = Nothing
End Sub