ich will gerade ein kleines Makro schreiben, dass mir hinterher anzeigt in wieviel Zeilen etwas geschrieben wurde. Dafür habe ich eine Testliste mit 287 Einträgen die untereinander stehen. Heißt am Ende soll angezeigt 187 angezeigt werden. Dahe rhabe ich folgendes Makro gebastelt:
Sub test2()
Dim menge As Long
menge = 1
Do
If Worksheets("Generator").Cells(2, menge).Value "" Then
menge = menge + 1
End If
Loop Until Worksheets("Generator").Cells(2, menge).Value = ""
Worksheets("Listen erstellen").Cells(1, 9).Value = menge
End Sub
Wenn ich nun aber dieses Makro starte steht nicht in der Zelle "I1" 287, sondern nur 24. Woran kann das liegen? Wo liegt der Fehler? Gibt es sonst noch 'ne einfachere Lösung als dieses Makro?
Gruß
Gordon