Guten Tag,
ich möchte in Excel eine Befehlschaltfläche so programmieren, dass wenn man einmal darauf clickt eineige Tabellenblätter ausgeblendet werden und beim 2 mal darauf drücken sollen diese alle wieder eingeblendet werden.
Das Ausbelenden habe ich geschafft. Kann mir bitte jemand sagen wie man den Butto so programmiert das er eine andere Aktion beim 2mal drauf clicken macht?
Danke!
lg jul
Hallo julis.
Ein Gedanke meinerseits.
A steht für Aktion 1, B steht für Aktion 2.
Beim klicken auf den Button startest du eine Abfrage und je nach Antwort führst du dann A oder B aus.
Zum Beispiel könntest du nach dem Namen des ersten Tabellenblattes fragen. Ich meine, dass versteckte Blätter nicht berücksichtigt werden - müsstest du ggf. probieren.
sub test()
if sheets(1).name=„Tabelle1“ then
A
else
B
Endif
Grüße.
Toggle Button
Hallo,
für den Zweck haben manche VBA-Versionen einen Toggle Button.
Wenn Du es mit einem CommandButton selbst machen möchtest, sieht das etwa so aus:
Option Explicit
Private Sub Command1\_Click()
Static Schalter As Boolean
If Schalter = True Then
Schalter = False
'Dein Programm für Schalter = True
Else
Schalter = True
'Dein Programm für Schalter = False
End If
End Sub
Gruß Rainer
PS. Verwende künftig bitte etwas aussagekräftigere Titel für Deine Fragen, ein Punkt ist kein gutes Suchkriterium fürs Archiv. [MOD]
Commandbutton als Togglebutton
ich möchte in Excel eine Befehlschaltfläche so programmieren,
dass wenn man einmal darauf clickt eineige Tabellenblätter
ausgeblendet werden und beim 2 mal darauf drücken sollen diese
alle wieder eingeblendet werden.
Das Ausbelenden habe ich geschafft. Kann mir bitte jemand
sagen wie man den Butto so programmiert das er eine andere
Aktion beim 2mal drauf clicken macht?
Hallo Julis,
Private Sub CommandButton1\_Click()
If CommandButton1.Caption = "Ausblenden" Then
CommandButton1.Caption = "Einblenden"
Call Ausblenden
Else
CommandButton1.Caption = "Ausblenden"
Call Einblenden
End If
End Sub
Gruß
Reinhard
Hallo,
danke für die Hilfe!! Jetz funktioniert es endlich 
noch einen schönen tag wünsch ich euch!