Wie entfernt man alle Schaltflächen oder Befehlsschaltflächen in Excel?

Dieser Artikel erklärt, wie man alle Formularsteuerelement-Schaltflächen oder Befehlsschaltflächen aus dem aktiven Blatt in Excel entfernt.

Alle Schaltflächen einschließlich Formularsteuerelement-Schaltflächen und Befehlsschaltflächen durch Auswahl aller entfernen
Alle Schaltflächen einschließlich Formularsteuerelement-Schaltflächen und Befehlsschaltflächen mit VBA-Code entfernen
Alle Formularsteuerelement-Schaltflächen oder Befehlsschaltflächen mit VBA-Code entfernen

Alle Schaltflächen einschließlich Formularsteuerelement-Schaltflächen und Befehlsschaltflächen durch Auswahl aller entfernen

Bitte gehen Sie wie folgt vor, um alle Schaltflächen (einschließlich Formularsteuerelement-Schaltflächen und Befehlsschaltflächen) aus dem aktiven Arbeitsblatt zu entfernen.

1. Aktivieren Sie den Entwurfsmodus, indem Sie auf Entwickler > Entwurfsmodus klicken. Siehe Screenshot:

2. Wählen Sie eine der Befehlsschaltflächen aus und drücken Sie die Tasten Strg + A, um alle Schaltflächen im aktuellen Arbeitsblatt auszuwählen.

3. Drücken Sie die Löschen-Taste, um alle ausgewählten Schaltflächen zu löschen.

Hinweis: Wenn es andere Objekte in diesem Arbeitsblatt gibt, werden diese ebenfalls ausgewählt.

Alle Schaltflächen einschließlich Formularsteuerelement-Schaltflächen und Befehlsschaltflächen mit VBA-Code entfernen

Außerdem können Sie das folgende VBA-Skript anwenden, um alle Schaltflächen aus dem aktuellen Arbeitsblatt in Excel zu entfernen.

1. Öffnen Sie das Arbeitsblatt, das die Schaltflächen enthält, die Sie entfernen möchten, und drücken Sie dann die Tasten Alt + F11, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.

2. Klicken Sie im Microsoft Visual Basic for Applications-Fenster auf Einfügen > Modul, und kopieren Sie dann den folgenden VBA-Code in das Codefenster.

VBA-Code: Alle Schaltflächen aus dem aktiven Blatt entfernen

Sub Clear_ButtonsActiveSheet()
    Dim I As Long
    Dim xOLE As Object
    On Error Resume Next
    ActiveSheet.Buttons.Delete
    For Each xOLE In ActiveSheet.OLEObjects
        If TypeName(xOLE.Object) = "CommandButton" Then
            xOLE.Delete
        End If
    Next
End Sub

3. Drücken Sie die Taste F5, um den Code auszuführen. Alle Schaltflächen, einschließlich Formularsteuerelement-Schaltflächen und Befehlsschaltflächen, werden sofort aus dem aktuellen Arbeitsblatt entfernt.

Alle Formularsteuerelement-Schaltflächen oder Befehlsschaltflächen mit VBA-Code entfernen

Wenn Sie nur alle Formularsteuerelement-Schaltflächen oder alle Befehlsschaltflächen aus dem aktiven Blatt entfernen möchten, können Sie die folgenden VBA-Codes ausprobieren, um dies zu erreichen.

1. Öffnen Sie das Arbeitsblatt, das die Schaltflächen enthält, die Sie entfernen möchten, und drücken Sie dann die Tasten Alt + F11, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.

2. Klicken Sie im Microsoft Visual Basic for Applications-Fenster auf Einfügen > Modul, und kopieren Sie dann den folgenden VBA-Code in das Codefenster.

VBA-Code: Alle Formularsteuerelement-Schaltflächen aus dem aktiven Blatt entfernen

Sub Clear_ButtonsActiveSheet()
    ActiveSheet.Buttons.Delete
End Sub

VBA-Code: Alle Befehlsschaltflächen aus dem aktiven Blatt entfernen

Sub Clear_ButtonsActiveSheet()
    Dim xOLE As Object
    On Error Resume Next
    For Each xOLE In ActiveSheet.OLEObjects
        If TypeName(xOLE.Object) = "CommandButton" Then
            xOLE.Delete
        End If
    Next
End Sub

3. Drücken Sie die Taste F5, um den Code auszuführen.

Dann werden alle Formularsteuerelement-Schaltflächen oder alle Befehlsschaltflächen sofort aus dem aktuellen Arbeitsblatt entfernt.

Verwandte Artikel:

• Wie fügt man automatisch eine leere neue Zeile mit einer Befehlsschaltfläche in Excel ein?
• Wie verwendet man eine Befehlsschaltfläche, um das aktive Arbeitsblatt als PDF-Datei in Excel zu speichern?
• Wie aktualisiert oder fügt man (aktuelles) Datum und Uhrzeit mit einer Befehlsschaltfläche in Excel ein?
• Wie verwendet man eine Befehlsschaltfläche, um einen bestimmten Zellenwert in Excel zu ändern?