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