Hallo,

ich habe eine Problem. Mit folgendem Code möchte ich die letzte beschriebene Zeile herausfinden:

Sub letzteZeile()
Dim usedZeilen As String 

With Worksheets("Rangliste")

usedZeilen = Cells(Rows.count, 1).End(xlUp).Row

.Range(Cells(3, 1), Cells(usedZeilen, 7)).Value = ""

End With

End Sub

Wenn ich den Code Schritt für Schritt durchgehe, funktioniert alles. Wenn ich ihn aber als ganzes starte und nicht jede Zeile einzeln durchgehe, nimmt usedZeilen immer den Wert 13 an.

Warum ist das so? Ich hoffe einer von euch kann mit weiterhelfen

Danke