Hallo Gast3972,
vielen Dank für die super schnelle Rückmeldung.
Was ich machen möchte, ist eine Zelle farbig markieren wenn der Wert der Checkbox wahr ist.
Aufgrund der Tatsache, dass es jede Menge Checkboxen gibt möchte ich den Wert der Checkboxen wahr oder falsch in bestimmte Zellen X4,X5 usw. schreiben lassen. Sprich die Verküpfung der Checkboxen (201, 202 usw. ) mit den Zellen X4, X5 usw. soll das Makro für mich übernehmen.
Option Explicit
Sub Test()
Dim objCheckBox As Object
For x = 201 To 205
Set objCheckBox = ActiveSheet.Shapes("Check Box " & x)
'Ab hier verstehe ich nicht was du mit dem Makro bezwecks
Select Case objCheckBox.ControlFormat.Value
Case xlOn
MsgBox objCheckBox.Name & " = xlOn"
Case xlOff
MsgBox objCheckBox.Name & " = xlOff"
Case xlMixed
MsgBox objCheckBox.Name & " = xlMixed"
End Select
Next
End Sub
Vielleicht war meine Beschreibung auch nicht die Beste :-).
Ist dein Makro immer noch das Richtige für mein Vorhaben?
Gruß
Timm
|