|
Hi,
jetzt gehst den Code mal via F8 in Einzelschritten durch und überprüfst die gelb markierte Zeile.
Allgemeiner Hinweis:
Wenn Du einen With-Block einsetzt, achte darauf, dass die Methoden und Eigenschaften nur korrekt angesprochen werden, wenn diese durch einen Punkt angeführt werden. In Deinem Fall sprichst Du nämlich nicht das gewünschte Arbeitsblatt "Datenbank" an, sondern das derzeit aktive Arbeitsblatt.
Beispiel:
Dim i As Long
Dim n As Long
With Worksheets("Datenbank")
For i = 3 To .Cells(.Rows.Count, "B").End(xlUp).Row
If .Cells(i, 2) <> "" Then
.Cells(i, 1) = n
n = n + 1
End If
Next
End With
Zum Laufzeitfehler #9:
Du möchtest auf etwas zugreiffen was nicht gefunden werden kann.
Der Klassiker ist ein Schreibfehler im Arbeitsblattnamen.
|