Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CheckBox
BildScreenshot zu CheckBox CheckBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema OptionButton
BildScreenshot zu OptionButton OptionButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema ToggleButton
BildScreenshot zu ToggleButton ToggleButton-Seite mit Beispielarbeitsmappe aufrufen

"alle" Togglebutton auf False setzen


Betrifft: "alle" Togglebutton auf False setzen von: Tim
Geschrieben am: 30.05.2018 11:31:00

Hallo zusammen,

ich bin auf der Suche nach einem Makro, welches mir alle Togglebutton in meiner Userform auf false setzt, ohne dass ich jeden Button einzeln ansprechen muss.

Wer kann mir helfen?

Wenn ich dieses Makro erweitere geht es nicht:

For Each objControl In Controls
Select Case TypeName(objControl)
Case "TextBox"
objControl.Text = ""
Case "ComboBox"
objControl.ListIndex = -1
Case "CheckBox"
objControl.Value = False
Case "OptionButton"
objControl.Value = False
End Select
Next

  

Betrifft: Definiere: Geht es nicht! (owT) von: EtoPHG
Geschrieben am: 30.05.2018 11:37:05




  

Betrifft: AW: "alle" Togglebutton auf False setzen von: Daniel
Geschrieben am: 30.05.2018 11:37:49

Hi
wie hast du dieses Makro denn erweitert?
bei mir funktioniert es, wenn ich es erweitere problemlos.

btw, du kannst dein Select Case kürzen und für alle Controls, die die gleiche Aktion benötigen, eine Zeile verwenden:

For Each objControl In Controls
    Select Case TypeName(objControl)
         Case "TextBox"
             objControl.Text = ""
         Case "ComboBox"
             objControl.ListIndex = -1
         Case "CheckBox", "OptionButton"
             objControl.Value = False
  End Select
Next
dann musst du nur den TypeName von Togglebuttons ("ToggleButton") an der entsprechenden Stelle ergänzen.

Gruß Daniel
Next


  

Betrifft: AW: "alle" Togglebutton auf False setzen von: Matthias L
Geschrieben am: 30.05.2018 11:42:31

Hallo

Dim objControl As Control
For Each objControl In Me.Controls
Select Case TypeName(objControl)
Case "ToggleButton"
objControl.Value = False
'...
End Select
Next

Wobei Me hier Dein UserForm ist.
Hinterlege den Code auf ein CommandButton auf Deinem UserForm

Gruß Matthias


  

Betrifft: AW: "alle" Togglebutton auf False setzen von: Tim
Geschrieben am: 30.05.2018 12:24:07

Ahhh, Fehler gefunden, ich wollte das Makro auch über einen ToggleButton steuern.... Habe es durch ein Optionsfeld ersetzt.
Danke euch!


Beiträge aus dem Excel-Forum zum Thema ""alle" Togglebutton auf False setzen"