Alle Schaltflächen in Excel-Tabellen löschen
Schritt-für-Schritt-Anleitung
Um alle Schaltflächen in Excel zu löschen, außer in der Tabelle „k_Test“, kannst Du folgendes VBA-Makro verwenden:
- Öffne Excel und drücke
ALT + F11, um den VBA-Editor zu starten.
- Klicke im Menü auf „Einfügen“ und wähle „Modul“, um ein neues Modul zu erstellen.
- Füge den folgenden Code ein:
Sub SchalterWeg()
Dim objWs As Worksheet
Dim objShp As Shape
For Each objWs In ThisWorkbook.Worksheets
If objWs.Name <> "k_Test" Then
For Each objShp In objWs.Shapes
If objShp.Type = 8 Or objShp.OLEFormat.Object.progID = "Forms.CommandButton.1" Then
objShp.Delete
End If
Next
End If
Next
End Sub
- Schließe den VBA-Editor und gehe zurück zu Excel.
- Drücke
ALT + F8, wähle das Makro SchalterWeg aus und klicke auf „Ausführen“.
Das Makro entfernt alle Schaltflächen, die sich in den Tabellen befinden, außer in „k_Test“.
Häufige Fehler und Lösungen
Problem: Das Makro löscht nicht alle Schaltflächen.
Lösung: Stelle sicher, dass Du sowohl Formular-Buttons als auch ActiveX-Steuerelemente überprüfst. Im obigen Code ist dies bereits berücksichtigt.
Problem: Es wird eine Fehlermeldung angezeigt.
Lösung: Überprüfe, ob das Makro korrekt in ein Modul eingefügt wurde und dass das Excel-Dokument nicht im geschützten Modus geöffnet ist.
Alternative Methoden
-
Manuelles Löschen: Du kannst die Schaltflächen auch manuell löschen. Wähle das Auswahl-Tool im Zeichnungsbereich und ziehe einen Rahmen um die Schaltflächen, die Du löschen möchtest. Drücke anschließend die Entf-Taste.
-
Bearbeiten-Funktion: Wenn Du keine anderen Objekte auf dem Arbeitsblatt hast, kannst Du die Funktion „Bearbeiten -> Gehe zu -> Inhalte -> Objekte“ verwenden, um alle Objekte auszuwählen und zu löschen.
Praktische Beispiele
Hier ist ein Beispiel für ein erweitertes Makro, das alle Schaltflächen inklusive CommandButtons löscht:
Sub LoescheButton()
Dim Area() As String
Dim i As Integer
Dim MySheet As Worksheet
Dim objButten As Shape
For Each MySheet In ThisWorkbook.Worksheets
If MySheet.Name <> "k_Test" Then
For Each objButten In MySheet.Shapes
If TypeName(objButten.OLEFormat.Object) = "Button" Or _
objButten.Type = 12 Then
ReDim Preserve Area(i)
Area(i) = objButten.Name
i = i + 1
End If
Next objButten
If i > 0 Then
MySheet.Shapes.Range(Application.Transpose(Area)).Delete
End If
End If
i = 0: Erase Area
Next MySheet
End Sub
Tipps für Profis
- Verwende
Debug.Print, um den Typ und Namen der Objekte im Direktfenster anzuzeigen. Dies hilft, Probleme mit dem Code zu identifizieren.
- Experimentiere mit den Typnummern der Objekte, um gezielt bestimmte Schaltflächen zu löschen.
FAQ: Häufige Fragen
1. Was ist der Unterschied zwischen Formular-Buttons und CommandButtons?
Formular-Buttons sind einfache Schaltflächen, die über die Entwicklertools hinzugefügt werden, während CommandButtons ActiveX-Steuerelemente sind, die mehr Funktionen bieten.
2. Kann ich das Makro anpassen, um bestimmte Schaltflächen zu behalten?
Ja, Du kannst die Bedingungen im Code anpassen, um spezifische Schaltflächen nach Namen oder Typ zu behalten.