Live-Forum - Die aktuellen Beiträge
Datum
Titel
30.04.2024 21:27:28
Bei Autofilter immer leere Zeilen einschließen
30.04.2024 20:46:46
Dopplungen Markieren, nur wenn die Zelle nebenan ident. ist
30.04.2024 20:14:55
Datum filtern
30.04.2024 19:41:34
VBA: Zellinhalt wird nicht angezeigt
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1920to1924
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1920to1924
1920to1924
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

ToggleButtons true/false

ToggleButtons true/false
04.03.2023 12:28:01
Chris
Hallo Forum,
ich habe 14 ToggleButtons auf Userform1
Für die ersten 7 soll bei Klick eines dieser TBs alle anderen 6 auf False gesetzt werden.
Dasselbe für die TBs 8 bis 14, jedoch getrennt von den ersten 7.
Wie löst man das per VBA?
Gruß
Chris

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ToggleButtons true/false
04.03.2023 12:44:13
JoWE
Hallo Chris,
so vllt.?
Sub TB_Wert_setzen()
    Dim objControl As Control
    For Each objControl In Me.Controls 'Me ist Deine Userform
        Select Case TypeName(objControl)
            Case "ToggleButton"
            objControl.Value = False
        End Select
    Next
End Sub
Gruß
Jochen
AW: ToggleButtons true/false
04.03.2023 12:54:49
Chris
Hallo Jochen,
danke, ein guter Anfang.
Das Makro bezieht sich auf ALLE Buttons.
Es sollen nur die ersten 7 einbezogen werden.
Danach die zweiten 7 (also 8 - 14).
Hintergrund ist, werden die TB 8-14 gedrückt, dürfen die ersten 7 nicht darauf regieren und auf false gesetzt werden.
Gruß
Chris
Anzeige
AW: ToggleButtons true/false
04.03.2023 12:58:14
Chris
Hier genauer:
TB1 wird gedrückt und ist true , TB 2-7 auf false
TB2 wird gedrückt und ist true, TB 1,3-7 sind auf false
usw.
Chris
AW: ToggleButtons true/false
04.03.2023 13:13:55
GerdL
Moin Chris
Private Sub ToggleButton2_Click()
    Dim a As Integer
    For a = 1 To 7
        If a > 2 Then Controls("ToggleButton" & a) = False
    Next
End Sub
Gruß Gerd
AW: ToggleButtons true/false
04.03.2023 13:29:33
Matthias
Hallo,
Verteile Deine ToggleButtons in 2 Frames ohne Rahmen.
Dann kannst Du das so realisieren:
https://www.herber.de/bbs/user/158115.xlsm
oder benutze gleich OptionButtons
MfG Matthias
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige