ich habe eine Frage, bei der ich hoffe, dass ihr mir weiterhelfen könnt.
Ich habe Daten, die ich auf einer Deutschlandkarte angezeigt bekommen möchte.
Hier für habe ich folgende Vorlage verwendet:
http://www.michael-schwimmer.de/vba109.htm
nun würde ich gerne die Daten, die mir in den Textboxen angezeigt werden je nach größe der Zahl unterschiedlich farbig gestalten. Von z.B. Hellgrün (kleine Zahl) bis Dunkelrot (große Zahl)
Leider werden mir die Kästchen immer gleich farbig angezeigt.
Habe den Code wie folgt angepasst:
For i = 14 To 5000
If Me.Cells(i, 1) "" Then
' Darzustellende Koordinate hinzufügen
' Längengrad, Breitengrad, Beschriftung
.AddItem Me.Cells(i, 2), Me.Cells(i, 3), Me.Cells(i, 5)
' objGeo.BackColor.RGB = RGB(50 + i, 0 + i, 128 + i)
.BackColor = 34 + i * 100
End If
Es würde mir auch weiterhelfen, wenn ich die Zahlen als unterschiedlich lange Säulen gestalten könnte.
Bin gerade auf der Suche, wie ich die unterschiedlich großen Zahlen visuell auf einen schlag sichtbar machen kann. Hierfür hab ich mir die Farbskala einfallen lassen. Bin aber auch für andere Vorschläge offen.
Bei Fragen oder Unklarheiten bitte melden.
Vielen Dank im Voraus für eure Mühe
Liebe Grüße
Mo