Hi
für so etwas nimmt man keine Checkbox sondern einen Optionbutton
denn was soll passieren wenn 2 Checkboxen gleichzeitig angeklickt werden?
Optionbutton schließen sich gegenseitig aus
da ich nicht weiß, an welcher Stelle, in irgendeinem Code, was stehen soll
habe ich es so getetstet
4 Optionbutton aus den ActiveX-Steuerlelementen
Sub test()
Dim strFall As String
With Worksheets("Tabelle1") 'Tabellennamen anpassen
Select Case True
Case .OptionButton1
strFall = "A"
Case .OptionButton2
strFall = "B"
Case .OptionButton3
strFall = "C"
Case .OptionButton4
strFall = "D"
End Select
End With
MsgBox strFall
End Sub
MfG Tom
|