ToggleButton

Hallo,
ich habe eine Userform mit 60 ToggleButtons. Wenn ich zum Beispiel Toggle1 drücke, dann soll er mir "Ja" in die Tabelle "Einstellungen" Zelle P7 schreiben und Toggle1 soll sich rot färben(und gedrückt bleiben). Drücke ich Toogle2 dann "Ja" in Zelle P8, usw. ansonsten soll "Nein" stehen.


Private Sub ToggleButton1_change()
If Me.ToggleButton1.Value = True Then
Sheets("Einstellungen").Range("P7") = "JA"
ToggleButton1.BackColor = RGB(197, 217, 241)
Else
Sheets("Einstellungen").Range("P7") = "NEIN"
ToggleButton1.BackColor = RGB(216, 228, 188)
End If
End Sub

Soweit so gut. Das Problem ist das ich es nicht für 60 Toggles machen will bzw. das nicht der Sinn sein soll. Gibt es da eine Möglichkeit mit einer Schleife bzw. Klassenmodul? Wenn ja wie kann das ausschauen?
Des weiteren würde ich gerne beim Userform Start, das die Toggles schauen wie der Wert in der zugeordneten Zelle ist und sich dann wenn "JA" steht aktivieren und die richtige Farbe bekommen und wenn "Nein" dann nicht aktivieren.
Anbei die Beispieldatei:
https://www.herber.de/bbs/user/155768.xlsm
DANKE FÜR EURE UNTERSTÜTZUNG.
LG
Max

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: ToggleButton

20.10.2022 14:41:53

Rudi

AW: ToggleButton

24.10.2022 15:09:55

Markus

AW: ToggleButton

20.10.2022 15:22:53

volti

AW: ToggleButton

24.10.2022 15:05:36

Markus

AW: ToggleButton

24.10.2022 19:46:38

volti

AW: ToggleButton

20.10.2022 16:11:21

snb

AW: ToggleButton

24.10.2022 15:08:13

Markus

AW: ToggleButton

24.10.2022 15:31:10

Daniel

Option Explicit Private Sub UserForm_Initialize() Dim lbl As MSForms.ToggleButton Dim iCounter As Integer For iCounter = 1 To 60 With Controls("ToggleButton" & iCounter) .Caption = "Herr " & iCounter .Value = Sheets("Einstellungen").Cells(iCounter + 6, 16) = "Ja" .BackColor = IIf(.Value, RGB(197, 217, 241), RGB(216, 228, 188)) End With Next iCounter TextBox1.Value = Sheets("Einstellungen").Range("C4") End Sub Private Sub ToggleButton1_Change() Toggle 1 End Sub Private Sub ToggleButton2_Change() Toggle 2 End Sub Private Sub ToggleButton3_Change() Toggle 3 End Sub ' und die anderen 57 Private Sub Toggle(iBtn As Integer) With Controls("ToggleButton" & iBtn) If .Value Then Sheets("Einstellungen").Cells(iBtn + 6, 16) = "Ja" .BackColor = RGB(197, 217, 241) Else Sheets("Einstellungen").Cells(iBtn + 6, 16) = "Nein" .BackColor = RGB(216, 228, 188) End If End With End Sub

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

ToggleButton

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread