Hallo,
ich möchte in meiner Sparkline die Säule mit dem aktuellen Monatswert anderes farbig darstellen oder mindestens eine animierte Linie über die Sparkline legen, sodass deutlich wird, welche der Säulen den aktuellen Monat darstellt.
gibt es hierzu eventuell eine VBA Möglichkeit?
Viele GRüße
Christoph
Hallöchen,
es wäre mit und ohne VBA möglich.
Ohne VBA nimmst Du einfach ein Diagramm mit gestapelten Säulen und zwei Datenreihen. Die erste mit der "normalen" Farbe und die zweite mit der "markierten". Die Daten holst Du Dir per Formel rein. Unter "Monat" würden hier die Daten stehen, habe einfach nur 1 2 3 4 viele genommen. Du musst dann ggf. noch bei den Daten oder im Diagramm die Nullwerte ausblenden.
| Arbeitsblatt mit dem Namen 'Tabelle1' |
| | A | B | C |
| 1 | Monat | Blau | Rot |
| 2 | 1 | 1 | 0 |
| 3 | 2 | 2 | 0 |
| 4 | 3 | 3 | 0 |
| 5 | 4 | 4 | 0 |
| 6 | 5 | 5 | 0 |
| 7 | 6 | 0 | 6 |
| 8 | 7 | 7 | 0 |
| 9 | 8 | 8 | 0 |
| Zelle | Formel |
| B2 | =WENN(MONAT(HEUTE())=ZEILE(A1);0;A2) |
| C2 | =WENN(MONAT(HEUTE())=ZEILE(A1);A2;0) |
| Diese Tabelle wurde mit Tab2Html (v2.5.0) erstellt. ©Gerd alias Bamberg |
Per VBA könnte man z.B. beim Öffnen der Datei die Datenpunkte einfärben. Ich habe hier mal den 6. aufgezeichnet, das müsste man dann ausbauen für alle 12.
Code:
Sub Makro1()
'
' Makro1 Makro
'
'
ActiveChart.FullSeriesCollection(1).Select
ActiveChart.FullSeriesCollection(1).Points(6).Select
With Selection.Format.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 0, 0)
.Transparency = 0
.Solid
End With
Range("N21").Select
End Sub