ich möchte in einer Tabelle die Zeilen 10 bis zur letzten beschriebebnen Zeile löschen.
Könnte mir jemand nochmal helfen?
Viele Grüße
Michael
Sub loesche_Ab_10_bis_ende()
Dim FirstRow&
Dim Last_Row&
FirstRow = 10
Last_Row = Tabelle1.Rows(Tabelle1.UsedRange.Rows.CountLarge).Row
Rows(FirstRow).Resize(Last_Row).Select 'statt Select -> Delete zum Löschen
End Sub
In welcher Spalte sich hier der letzte Eintrag befindet ist egal.Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen