Bereich löschen
20.10.2007 21:18:00
Ernst
Ich möchte die letzten 16 Zeilen löschen, jedoch max bis zur 75 Zeile.
Der Code unten löscht mir aber nur die letzte Zeile. Was stimmt da nicht?
Bitte um Hilfe.
Ernst Dunkel
Private Sub CommandButton1_Click() 'Bereich über letzte Zeile löschen
Dim LastRow As Range, i As Long
Set LastRow = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count)
For i = 1 To 16
If LastRow.Row
Anzeige