Die Excel Wühlkiste

CommadButton programmieren

Beschriftung ändern

Dieses Makro ändert in Abhängigkeit der Beschriftung eines CommandButtons genau diese Beschriftung und startet eine von zwei möglichen Unterprozeduren. Hier wird mit einem einzigen Command Button ein Filter ein- und wieder ausgeschaltet.
Nicht nur der Anwender muss wissen was er als nächstes mit dem Schaltknopf machen kann. Auch VBA muss irgendwie eine Mitteilung bekommen. Zu beiden Zwecken dient die Beschriftung des Buttons, welche sowohl vom Anwender, als auch von VBA ausgewertet wird.

Private Sub CommandButton1_Click()
With CommandButton1
If .Caption = "Filter ein" Then
Call Makro1
Else
Call Makro2
.Caption = "Filter aus"
End If
End With
End Sub
Die Excel Wühlkiste
Valid HTML 4.01 Strict
letzte Aktualisierung: 13.02.2009
Autor: Hubert Scheidgen / 04.02.2009
W3C CSS-Validierungsservice