Ich möchte gerne einem Button ein Makro zuweisen, welches bei Klick entweder die Spalte B ein oder ebene ausblendet. Wie geht das? DANKE!
Toddy
Sub aus_ein()
Columns("A:A").EntireColumn.Hidden = False
End Sub
Um einen Ein/Ausschalter in Excel zu erstellen, folge diesen Schritten:
Makro erstellen: Öffne den VBA-Editor, indem Du ALT + F11
drückst.
Neues Modul einfügen: Klicke im Menü auf Einfügen > Modul
.
Code einfügen: Verwende den folgenden VBA-Code, um die Spalte B ein- und auszublenden:
Sub aus_ein()
If Columns("B:B").EntireColumn.Hidden = False Then
Columns("B:B").EntireColumn.Hidden = True
Else
Columns("B:B").EntireColumn.Hidden = False
End If
End Sub
Button erstellen: Gehe zurück zu Deinem Arbeitsblatt und füge einen Button ein:
Entwicklertools > Einfügen > Schaltfläche (Formularsteuerelement)
.Makro zuweisen: Klicke mit der rechten Maustaste auf den Button und wähle Makro zuweisen
. Wähle das gerade erstellte Makro aus_ein
aus.
Button testen: Klicke auf den Button, um die Spalte B ein- oder auszublenden.
Fehler: Der Button funktioniert nicht nach dem Schutz des Blattes
ActiveSheet.Protect UserInterfaceOnly:=True
Fehler: Spalte wird nicht ausgeblendet
Columns("B:B")
).Anstelle eines klassischen Buttons kannst Du auch einen ToggleButton verwenden. Hier ist der Code, den Du dafür verwenden kannst:
Private Sub ToggleButton1_Click()
Range("B:B").EntireColumn.Hidden = ToggleButton1.Value
ToggleButton1.Caption = IIf(ToggleButton1.Value, "Spalten einblenden", "Spalten ausblenden")
End Sub
Der ToggleButton hat den Vorteil, dass sich seine Beschriftung automatisch ändert, je nachdem, ob die Spalte ein- oder ausgeblendet ist.
Wenn Du mehrere Spalten gleichzeitig ein- oder ausblenden möchtest, kannst Du den Code wie folgt anpassen:
Sub mehrere_spalten()
If Columns("B:D").EntireColumn.Hidden = False Then
Columns("B:D").EntireColumn.Hidden = True
Else
Columns("B:D").EntireColumn.Hidden = False
End If
End Sub
Setze diesen Code in ein neues Makro und weise es einem Button oder ToggleButton zu.
1. Wie kann ich das Makro im geschützten Modus verwenden?
Um ein Makro im geschützten Modus auszuführen, musst Du den Blatt-Schutz so einstellen, dass Makros weiterhin funktionieren. Dafür kannst Du die Option UserInterfaceOnly:=True
verwenden.
2. Was ist der Unterschied zwischen einem Button und einem ToggleButton?
Ein Button führt eine Aktion aus, wenn Du darauf klickst. Ein ToggleButton hingegen ändert seinen Zustand zwischen ein- und ausblenden und passt seine Beschriftung entsprechend an.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen