Wie bekomm ich es hin, dass betimmte Zellen gelöscht werden?
Am besten per Button. Ist dies möglich?
Lieben Dank für eure Hilfe!
YVY
Sub leeren()
Application.ScreenUpdating = False 'Bildschirmaktualisierung aus sonst Flippereffekt
Sheets(1).Select 'Tabelle 1 wählen
Range("a5:a10,b12:b14").Select 'hier die Löschbereiche eintragen
Selection.ClearContents
Application.ScreenUpdating = True 'Bildschirmaktualisierung ein
Range("A1").Select
End Sub
Sub leeren()
Sheets(1).Range("a5:a10,b12:b14").ClearContents
End Sub
Sub leeren()
Sheets(1).Range("A5:A10,B12:B14").ClearContents
End Sub
Fehler: Der Button funktioniert nicht.
Fehler: Zellen werden nicht geleert.
Falls du keine Schaltfläche verwenden möchtest, kannst du auch eine Tastenkombination nutzen:
Somit kannst du die Zellen auch ohne Button leeren.
Wenn du spezifische Zellen in einer Tabelle leeren möchtest, kannst du den Code leicht anpassen:
Sub leeren()
Sheets(1).Range("B2:B5,D3:D7").ClearContents
End Sub
Hierbei werden die Zellen B2 bis B5 und D3 bis D7 geleert. Du kannst die Zellreferenzen je nach Bedarf ändern.
Application.ScreenUpdating-Feature, um das Flackern des Bildschirms zu vermeiden, während das Makro läuft:Sub leeren()
Application.ScreenUpdating = False
Sheets(1).Range("A5:A10,B12:B14").ClearContents
Application.ScreenUpdating = True
End Sub
1. Kann ich mehrere Zellenbereiche auf einmal leeren?
Ja, du kannst mehrere Bereiche im Range-Befehl angeben, z.B. Range("A1:A10, B1:B10").
2. Wie entferne ich eine Schaltfläche aus meinem Excel-Dokument?
Klicke mit der rechten Maustaste auf die Schaltfläche und wähle „Schaltfläche löschen“, um die Excel-Schaltfläche zu entfernen.