Kontrollkästchenhaken setzen

Guten Abend liebe Excelfans
Ich habe folgendes probiert:
Ich möchte sobald man das Dropdownmenue anwählt das dazugehörige Kontrollkästchen eine Haken bekommt. Bisher habe ich das manuell gemacht. Die Orginaldatei ist größer aber es geht ja um das wie.
Mit meinem Code klappt es nicht.


Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("$F$5:$H$5")) Is Nothing Then
ActiveSheet.Shapes("Check Box 1").Value = xlOn  'Haken setzen
End if
If Intersect(Target, Range("$F$8:$I$8")) Is Nothing Then
ActiveSheet.Shapes("Check Box 2").Value = xlOn  'Haken setzen
End if
If Intersect(Target, Range("$F$11:$G$11")) Is Nothing Then
ActiveSheet.Shapes("Check Box 3").Value = xlOn  'Haken setzen
End if
End 

Sub
Wer weiß eine Lösung?
https://www.herber.de/bbs/user/58784.xls
Danke im voraus
Werner Schmidt

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Worksheet_SelectionChange(ByVal Target As Range) Dim chCheckBox As CheckBox If Not Intersect(Target, Range("$F$5:$H$5")) Is Nothing Then Set chCheckBox = ActiveSheet.CheckBoxes(1) chCheckBox.Value = xlOn 'Haken setzen ElseIf Not Intersect(Target, Range("$F$8:$I$8")) Is Nothing Then Set chCheckBox = ActiveSheet.CheckBoxes(2) chCheckBox.Value = xlOn 'Haken setzen ElseIf Not Intersect(Target, Range("$F$11:$G$11")) Is Nothing Then Set chCheckBox = ActiveSheet.CheckBoxes(3) chCheckBox.Value = xlOn 'Haken setzen End If End Sub

Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("$F$5:$H$5")) Is Nothing Then ActiveSheet.Shapes("Check Box 1").ControlFormat.Value = xlOn 'Haken setzen End If If Not Intersect(Target, Range("$F$8:$I$8")) Is Nothing Then ActiveSheet.Shapes("Check Box 2").ControlFormat.Value = xlOn 'Haken setzen End If If Not Intersect(Target, Range("$F$11:$G$11")) Is Nothing Then ActiveSheet.Shapes("Check Box 3").ControlFormat.Value = xlOn 'Haken setzen End If End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim Zustand As Byte If Target.Text <> "" Then Zustand = 1 If Not Intersect(Target, Range("$F$5:$H$5")) Is Nothing Then ActiveSheet.Shapes("Check Box 1").ControlFormat.Value = Zustand 'Haken setzen End If If Not Intersect(Target, Range("$F$8:$I$8")) Is Nothing Then ActiveSheet.Shapes("Check Box 2").ControlFormat.Value = Zustand 'Haken setzen End If If Not Intersect(Target, Range("$F$11:$G$11")) Is Nothing Then ActiveSheet.Shapes("Check Box 3").ControlFormat.Value = Zustand 'Haken setzen End If End Sub

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Kontrollkästchenhaken setzen

7 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)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread