Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema OptionButton
BildScreenshot zu OptionButton OptionButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema ScrollBar
BildScreenshot zu ScrollBar ScrollBar-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema SpinButton
BildScreenshot zu SpinButton SpinButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Toggle Button

Betrifft: Toggle Button von: wolfi
Geschrieben am: 12.08.2004 13:14:54

Hallo
Ich hab schon mal gepostet aber ich bin noch nicht viel weitergekommen.
Ich möchte mir einem Toggle Button eine Funktion ein- und ausschalten.
Ich habe folgendes gemacht:
Einen Button der Symbolleiste mit dem Modul SelButton verbunden.

Sub SelButton()
 With Application.CommandBars.ActionControl
  .state = Not .state
 End With
End Sub


Aber leider ändert sich der Status des Button nach beenden des Moduls wieder.
Während der Ausführung ist dieser sowieso gedrückt.
Wie kann ich das dauerhaft machen??
Danke, Wolfi
  


Betrifft: AW: Toggle Button von: Ulf
Geschrieben am: 12.08.2004 13:21:31

Du musst den letzten Status beim Schließen irgendwo speichern, z.B. in der Registry.

Ulf


  


Betrifft: AW: Toggle Button von: wolfi
Geschrieben am: 12.08.2004 13:47:18

Ich glaube ich habe das schlecht erklärt:
Hab ein AddIn gemacht das beim Markieren die ausgeblendeten Zellen nicht mitmarkiert. Gestartet wird das ganze nach dem markieren über ein Klassenmodul und dem Ereignis App_SheetSelectionChange. Das Eigentliche Modul soll aber nur aktiv sein wenn der Button "ein" ist.
Ich hoffe ihr könnt mir helfen


  


Betrifft: AW: Toggle Button von: Ulf
Geschrieben am: 12.08.2004 13:54:45

Einfache Abfrage nach ButtonState:
If commandbars("Deine").Controls("Deins").State = True then
'mach was....

end If

Ulf


  


Betrifft: AW: Toggle Button von: wolfi
Geschrieben am: 12.08.2004 14:07:17

Ja das ist ja der einfache Teil.
Aber der Button funktioniert nicht! Der springt gleich wieder raus!!


  


Betrifft: AW: Toggle Button von: Ulf
Geschrieben am: 12.08.2004 14:12:31

Du musst halt in der OnAction- Prozedur den Status definieren.

Ulf


  


Betrifft: AW: Toggle Button von: wolfi
Geschrieben am: 12.08.2004 14:21:06

Hab ich gemacht.
Nur nicht über eine OnAction- Prozuedur, sondern über eine die per Button gestartet wird.

With Application.CommandBars.ActionControl
MsgBox .State
.State = Not .State
MsgBox .State
End With

funktioniert das nicht??


  


Betrifft: AW: Toggle Button von: Ulf
Geschrieben am: 12.08.2004 14:27:18

So aus dem Zusammenhang gerissen, ist das ein Ratespiel, dazu hab ich keine Lust.
Lad deine Mappe mal hoch.

Ulf


  


Betrifft: AW: Toggle Button von: wolfi
Geschrieben am: 12.08.2004 15:16:18

https://www.herber.de/bbs/user/9557.xla

OK hab ich. Es geht nur um das Modul Selector. Der Rest sind andere Funktionen.


  


Betrifft: AW: Toggle Button von: Ulf
Geschrieben am: 12.08.2004 17:04:49

Das Projekt ist geschützt, soll ich selbst knacken?

Ulf


  


Betrifft: AW: Toggle Button von: wolfi
Geschrieben am: 12.08.2004 17:56:20

ah nicht mitgedacht! Entschuldigung!
ijkmqw1
Tut mir leid...


  


Betrifft: AW: Toggle Button von: Ulf
Geschrieben am: 12.08.2004 18:17:23

Diesem Button ist in deiner hochgeladenen Version kein Makro zugeordnet.
Ich denke mal, wir lassen das und du fragst mal den Verfasser des Codes.

Ulf


  


Betrifft: AW: Toggle Button von: wolfi
Geschrieben am: 13.08.2004 07:07:44

Kann mich ja schelcht selber fragen...


 

Beiträge aus den Excel-Beispielen zum Thema "Toggle Button"