ich habe eine Problem, das ich leider nicht alleine lösen kann.
Ich habe in Excel eine Deutschlandkarte nachgebildet (mit Hilfe von Freihandformen). Diese Deutschlandkarte besteht aus 96 einzelen Objeken (PLZ 2-Steller).
Rechts neben der Deutschlandkarte befinden sich 96 Zellen, in denen für jedes Objekt Werte angezeigt werden (in diesem Fall - Aktivitäten unserer Vertriebsmitarbeiter in der entsprechenden Region). Diese 96 Zellen sind mittels bedingter Formatierung in einer Farbskala eingefärbt (hellgrau bis schwarz).
Nun möchte ich mittels VBA Code, dass jedes Objekt (Bsp. unten Objekt 17) in der Farbe der dazugehörigen Zelle eingefärbt wird (in dem Fall Zelle i4). Ich habe mal mit Hilfe des Makro-Recorders versucht das Objekt 17 einzufärben um die Syntax zu erhalten mit der ich das Objekt ansprechen kann. Jedoch komme ich an dieser Stelle nicht weiter.
Sub ChangeObjectColor()
ActiveSheet.Shapes.Range(Array("17")).Select
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.RGB = Range("i4").ForeColor.RGB
.Transparency = 0
.Solid
End With
End Sub
Wie kann ich mittels VBA jedem der 96 Objekte die Farbe (RGB) einer bestimmten Zelle zuordnen?
Vielen Dank vorab und beste Grüße
Matthias