3 Toggel Buton miteinander verlinken

Forumthread: 3 Toggel Buton miteinander verlinken

30.11.2019 18:53:17

chregu

https://www.herber.de/bbs/user/133510.xlsm
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

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: 3 Toggel Buton miteinander verlinken

30.11.2019 20:15:39

onur
AW: 3 Toggel Buton miteinander verlinken

01.12.2019 07:13:49

chregu

AW: 3 Toggel Buton miteinander verlinken

30.11.2019 20:15:39

onur

Die anderen beiden auch entsprechend ändern:

Private Sub ToggleButton15_Click()   'Vorabzug
'Application.ScreenUpdating = False  'QUATSCH, macht nur Sinn, wenn du jede Menge Zellen  _
veränderst
Application.CutCopyMode = False      'Kopierbereich aufheben - WOZU?
ActiveSheet.Unprotect
If Not ToggleButton15 Then
ToggleButton16 = True
ToggleButton17 = True
End If
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  NOCHMAL ?
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

AW: 3 Toggel Buton miteinander verlinken

01.12.2019 07:13:49

chregu

Danke Onur
Funktioniert perfekt so
PS: die zwei Befehlzeilen stammen aus einem alten Code,
da hatte ich mehrer Befehle kombiniert, mit Spaltenbreite Änderung. War optisch störend wärmend
dem Ausführung vom Code

Beliebteste Forumthreads (12 Monate)

3 Toggel Buton miteinander verlinken

Forumthread: 3 Toggel Buton miteinander verlinken

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread