noch eine Frage: letzten zwei Zeilen löschen
06.06.2006 16:20:54
Anton
ich hatte heuteschonmal eine Frage zu diesem Thema....
Jetzt hätte ich gerne dass in Spalte F nach der letzten Zeile gesucht wird.
ich hatte es hiermit versucht, aber nur ein "Variable nicht definiert" geerntet:
intZeilenanzahl = ActiveSheet.Cells(Rows.Count, 5).End(xlUp).Row
Was mache ich da falsch?
Dank Euch schon jetzt.
Dieser Code hier geht nach Spalte A und funktioniert:
Sub letzte()
Dim intZeilenanzahl%
intZeilenanzahl = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Range(Rows(intZeilenanzahl - 1), Rows(intZeilenanzahl)).Delete
End Sub
Servus,
Anton
Anzeige