27.04.2022, 10:24
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:
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.
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.