Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema ToggleButton
BildScreenshot zu ToggleButton ToggleButton-Seite mit Beispielarbeitsmappe aufrufen

mehrere ToggleButtons auf einmal deaktivieren

Betrifft: mehrere ToggleButtons auf einmal deaktivieren von: phlp
Geschrieben am: 26.05.2016 16:07:33

Moin zusammen,

wie kann ich mehrere ToggleButton auf einmal wieder in deaktivieren/ in Ausgangsstellung zurücksetzen?

Habe ein Formular mit 30 ToggleButtons, die mit einem Klick auf einen Button zurück gesetzt werden sollen. Bisher sieht der Code von dem Button so aus:

ToggleButton1.value = false
ToggleButton2.value = false
.
.
.
ToggleButton30.value = false

Das lässt sich doch bestimmt auch eleganter lösen!

  

Betrifft: AW: mehrere ToggleButtons auf einmal deaktivieren von: ChrisL
Geschrieben am: 26.05.2016 16:16:17

Hi

Mit einer For-Next Schleife kannst du den Code kürzen. Allerdings weiss ich nicht was bei dir ein "Formular" ist; Tabelle oder Userform.

Entweder OLEObjects oder Controls

https://www.herber.de/mailing/vb/html/xlhowusingactivexcontrolssheets.htm
https://www.herber.de/mailing/In_einer_Schleife_auf_Elemente_einer_UserForm_zugreifen.htm

cu
Chris


  

Betrifft: AW: mehrere ToggleButtons auf einmal deaktivieren von: phlp
Geschrieben am: 26.05.2016 16:22:09

Sorry, Formular ist bei mir ein ganz normales Tabellenblatt in dem andere Leute etwas in Felder eintragen usw.


  

Betrifft: AW: mehrere ToggleButtons auf einmal deaktivieren von: ChrisL
Geschrieben am: 26.05.2016 16:30:26

Hi

So...

Sub t()
Dim i As Integer
For i = 1 To 30
ActiveSheet.OLEObjects("ToggleButton" & i).Object.Value = False
Next i
End Sub

cu
Chris


  

Betrifft: AW: mehrere ToggleButtons auf einmal deaktivieren von: phlp
Geschrieben am: 26.05.2016 16:34:10

Sehr schön!
Ich danke dir!


 

Beiträge aus den Excel-Beispielen zum Thema "mehrere ToggleButtons auf einmal deaktivieren"