3 Toggel Buton miteinander verlinken
30.11.2019 18:53:17
chregu
Hallo Zusammen
Ich habe 3 Toggel Buttons; (15/16/17)
Es darf aber nur immer 1 aussen sein (false)
Dann wird dieses sogar grün
Somit müssen immer die anderen zwei geschaltet werden (true)
Wer kann mir die Zeilen am richtigen Ort ergänzen ?
Private Sub ToggleButton15_Click() 'Vorabzug
Application.ScreenUpdating = False 'dann l?uft der CODE schneller
Application.CutCopyMode = False 'Kopierbereich aufheben
ActiveSheet.Unprotect
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
ToggleButton15.Caption = "Genehmigung_Vorabzug AUS"
ToggleButton15.BackColor = RGB(242, 242, 242) 'Color - grau
ActiveCell.Activate
If ToggleButton15 Then
Range("C5").Select
ActiveCell.FormulaR1C1 = ""
Else
Application.ScreenUpdating = False 'dann l?uft der CODE schneller
ActiveSheet.Unprotect
ToggleButton15.Caption = "Genehmigung_Vorabzug"
ToggleButton15.BackColor = RGB(50, 200, 50) 'Color - gr?n
Range("C5").Select
ActiveCell.FormulaR1C1 = "05 Genehmigung_Vorabzug"
End If
End Sub
DANKE