Hallo,
was ist daran falsch?
Do Until Data.Cells(NumberRows, 1).Value = 0
Data.Cells(NumberRows, 1).Select
NumberRows = NumberRows + 1
Exit Do
Loop
Soll folgendes machen. Die Reihen runter gehen bis kein Wert mehr darin steht. Und mir dann irgendwo die Zahl ausgeben. ABer er meckert in der ersten Zeile...
Wäre Dankbar für jeden Hinweis,
Frank