VBA Szenarien

[StrammerMax]

Hallo zusammen,

ich habe mir zwei Toggle Button gebastelt die aktiviert werden können (wechseln die Farbe, schreiben einen Wert in eine Zelle)
Das werden irgendwann noch deutlich mehr als die zwei Toggle Buttons. 

Nun möchte ich "Szenarien" anlegen. 
Sprich - einen Toggle Button der gleichzeitig mehrere Alternativen aktiviert / deaktiviert. 

Ich bekomme es aber nicht so richtig hin:

Code:

Public Sub GenehmigteStellenStreichen_Click()
On Error Resume Next
    Application.ScreenUpdating = False

        If GenehmigteStellenStreichen.Value = True Then
            GenehmigteStellenStreichen.TrippleState = True
            Worksheets("Verwaltung").Range("C2").Value = "inaktiv"
            GenehmigteStellenStreichen.BackColor = &H8000000F
            GenehmigteStellenStreichen.Font.Size = 15
            GenehmigteStellenStreichen.Caption = Worksheets("Verwaltung").Range("B2").Value
            GenehmigteStellenStreichen.Height = 40.5
            GenehmigteStellenStreichen.Left = 1000
            GenehmigteStellenStreichen.Width = 250
            GenehmigteStellenStreichen.Top = 75
            Worksheets("genehmigte Stellen streichen").Tab.Color = vbWhite
           
        Else
            GenehmigteStellenStreichen.TrippleState = False
            Worksheets("Verwaltung").Range("C2").Value = "aktiv"
            GenehmigteStellenStreichen.BackColor = RGB(79, 129, 189)
            GenehmigteStellenStreichen.Font.Size = 15
            GenehmigteStellenStreichen.Caption = Worksheets("Verwaltung").Range("B2").Value
            GenehmigteStellenStreichen.Height = 40.5
            GenehmigteStellenStreichen.Left = 1000
            GenehmigteStellenStreichen.Width = 250
            GenehmigteStellenStreichen.Top = 75
            Worksheets("genehmigte Stellen streichen").Tab.Color = vbGreen
        End If
       
Application.ScreenUpdating = True

End Sub


' Layer Planstellen streichen
Public Sub PlanstellenStreichen_Click()
On Error Resume Next
    Application.ScreenUpdating = False

        If PlanstellenStreichen.Value = True Then
            PlanstellenStreichen.TrippleState = True
            Worksheets("Verwaltung").Range("C3").Value = "inaktiv"
            PlanstellenStreichen.BackColor = &H8000000F
            PlanstellenStreichen.Font.Size = 15
            PlanstellenStreichen.Caption = Worksheets("Verwaltung").Range("B3").Value
            PlanstellenStreichen.Height = 40.5
            PlanstellenStreichen.Left = 1000
            PlanstellenStreichen.Width = 250
            PlanstellenStreichen.Top = 115
            Worksheets("Planstellen streichen").Tab.Color = vbWhite
           
        Else
            PlanstellenStreichen.TrippleState = False
            Worksheets("Verwaltung").Range("C3").Value = "aktiv"
            PlanstellenStreichen.BackColor = RGB(79, 129, 189)
            PlanstellenStreichen.Font.Size = 15
            PlanstellenStreichen.Caption = Worksheets("Verwaltung").Range("B3").Value
            PlanstellenStreichen.Height = 40.5
            PlanstellenStreichen.Left = 1000
            PlanstellenStreichen.Width = 250
            PlanstellenStreichen.Top = 115
            Worksheets("Planstellen streichen").Tab.Color = vbGreen
        End If
       
Application.ScreenUpdating = True

End Sub


Public Sub Szenario1_Click()
On Error Resume Next
    Application.ScreenUpdating = False

        If Szenario1.Value = True Then
            Szenario1.TrippleState = True
            Szenario1.BackColor = &H8000000F
            Szenario1.Font.Size = 15
            Szenario1.Caption = Worksheets("Verwaltung").Range("E2").Value
            Szenario1.Height = 30
            Szenario1.Left = 1250
            Szenario1.Width = 105
            Szenario1.Top = 40
            PlanstellenStreichen.TrippleState = True
            GenehmigteStellenStreichen.TripleState = True
           
        Else
            Szenario1.TrippleState = False
            Szenario1.BackColor = RGB(79, 129, 189)
           
            PlanstellenStreichen.TrippleState = False
            GenehmigteStellenStreichen.TripleState = False
           
            Szenario1.Font.Size = 15
            Szenario1.Caption = Worksheets("Verwaltung").Range("E2").Value
            Szenario1.Height = 30
            Szenario1.Left = 1250
            Szenario1.Width = 105
            Szenario1.Top = 40
        End If
       
Application.ScreenUpdating = True

End Sub
        

Wenn ich den Toggle Button "Szenario1" deaktiviere möchte ich erreichen dass die beiden anderen Toggle Buttons deaktiviert werden so als würde ich sie klicken. 

Kann mir da jemand helfen? TrippleState false setzen hilft nicht.

[Ralf A]

Hi,

zum Deaktivieren setze die Enabled Eigenschaft auf false