In meinem Excel-Sheed befindet sich eine Deutschlandkarte - zusammengefügt aus einzelnen freeform-Objekten der Bundesländer.
Ich bräuchte nun eine Leiste mit CheckBox-Feldern, welche beim aktivieren, das heisst Value = true das entsprechende Land der CheckBox rot einfärben.
Kurz:
16 CheckBoxes der einzelnen Bundesländer und zeitgleich (!) sollen beim Anhaken z.B. von Bayern und Berlin diese rot in der Karte eingefärbt werden, bzw. beim "enthaken" wieder entfärbt werden.
Über ein Makro mit Userform bekomme ich es schon hin, aber ich leider nicht mit "an und aus" bei Haken "rein und raus"
Mein Makro sieht wiefolgt aus:
Public Sub Test()
UserForm1.Show
If UserForm1.CheckBox1.Value = True Then
ActiveSheet.Shapes("Freeform 828").Select
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 30
Else
ActiveSheet.Shapes("Freeform 828").Select
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 15
End If
End Sub
Das Formular enthält nur die entsprechenden CheckBoxes und den Code
Private Sub ErstellenButton_Click()
Hide
End Sub
Ich hätte aber lieber eine Leiste auf dem Excel-Sheed, welche nicht verschwindet ...
Herzlichen Dank für alle Antworten vorab!!!
Gruß
Dominik