ich möchte über einen LöschenButton auf eine Tabelle zugreifen und dort alle Zellen löschen, bis auf die 1 Zeile, dort steht meine Überschrift und soll auch bleiben. Alle Beiträge handeln immer nur davon leere Zellen zu löschen aber wie lösche ich Tellen die einen Inhalt aufweisen?
Habe es mal so probiert aber das geht nicht!
Private Sub CommandButton5_Click()
Sheets("Tabelle3").Visible = True
Sheets("Tabelle3").Activate
Range("A2:F30").Select
Selection.Delete Shift:=xlUp
End Sub