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
|