|
Auch hier wieder, Düsi, Punkte setzen:
With wbZiel.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
Frage:
F8 kennste mittlerweile. Geht der Code in die Schleife und in die IF-Bedingung rein?
By the way:
n ist zwar deklariert, aber nicht definiert.
Deine erster Datensatz wäre somit 0, allerdings erst dann, wenn die Bedigung einmal wahr geworden ist.
|