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.