ich möchte eine prozentuale Auslastung in einem Balken darstellen.
Der Balken soll folgende Einteilung haben:
Von 0 - 80 % grün, transparent
von 80,01 - 90 % gelb, transparent
und von 90,01 - 100 % rot, transparent.
Wenn die tatsächliche Auslastung nun z. B. 52 % beträgt, soll der Anteil auf dem Balken in grün, Vollfarbe dargestellt werden. Ab 52,01 % soll die Darstellung weiterhin transparent sein.
Zur Zeit habe ich das in 5 % Schritten gelöst, dazu die Würfel vorher erstellt und benannt (Entw5; Entw10 ... Entw100) und dann in Abhängigkeit der Auslastung die Farbe zugewiesen.
Ich habe den code im Anschluss angefügt.
Ich möchte aber nicht in 5 %-Schritten arbeiten, sondern mit einer oder zwei Nachkommestellen. Dazu taugt aber weder mein code noch die vorgezeichneten Würfel.
Lässt sich so etwas in VBA umsetzen? Also erst ein Balken erstellen, die Grenzwerte (80% und 90 %) entsprechend einfärben und dann noch der Wert (als Vollfarbe) darstellen? Wenn ja, wie?
Der Gipfel wäre ein kleiner Marker in Form eines Pfeiles oder Striches bei der aktuellen Auslastung, wie oben z. B. 52 %.
Für Eure Hilfe schon mal besten Dank!
Michael
code:
Dim e As Double 'Variable für Auslastung dynamisch
e = wks.Cells(7, 33)
If e > 1 Then
ActiveSheet.Shapes("Entw5").Fill.ForeColor.TintAndShade = 0
ActiveSheet.Shapes("Entw10").Fill.ForeColor.TintAndShade = 0
ActiveSheet.Shapes("Entw15").Fill.ForeColor.TintAndShade = 0
ActiveSheet.Shapes("Entw20").Fill.ForeColor.TintAndShade = 0
ActiveSheet.Shapes("Entw25").Fill.ForeColor.TintAndShade = 0
ActiveSheet.Shapes("Entw30").Fill.ForeColor.TintAndShade = 0
ActiveSheet.Shapes("Entw35").Fill.ForeColor.TintAndShade = 0
ActiveSheet.Shapes("Entw40").Fill.ForeColor.TintAndShade = 0
ActiveSheet.Shapes("Entw45").Fill.ForeColor.TintAndShade = 0
ActiveSheet.Shapes("Entw50").Fill.ForeColor.TintAndShade = 0
ActiveSheet.Shapes("Entw55").Fill.ForeColor.TintAndShade = 0
ActiveSheet.Shapes("Entw60").Fill.ForeColor.TintAndShade = 0
ActiveSheet.Shapes("Entw65").Fill.ForeColor.TintAndShade = 0
ActiveSheet.Shapes("Entw70").Fill.ForeColor.TintAndShade = 0
ActiveSheet.Shapes("Entw75").Fill.ForeColor.TintAndShade = 0
ActiveSheet.Shapes("Entw80").Fill.ForeColor.TintAndShade = 0
ActiveSheet.Shapes("Entw85").Fill.ForeColor.TintAndShade = 0
ActiveSheet.Shapes("Entw90").Fill.ForeColor.TintAndShade = 0
ActiveSheet.Shapes("Entw95").Fill.ForeColor.TintAndShade = 0
ActiveSheet.Shapes("Entw100").Fill.ForeColor.TintAndShade = 0
End If
If e