Sparkline aktuelle Datum highlighten

[karl-christoph-koehler]

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

[schauan]

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