X-Achsen Beschriftung wiederholen KW
15.06.2017 15:23:25
Niko
ich würde gern die x-Achse nach Werten aus der Tabelle abhängig machen.
Bis jetzt geht dies ohne Probleme von zum Beispiel: Kalenderwoche 42 bis 52.
chtChart.Axes(xlValue).MinimumScale = Sheets("Sheet1").Range("J9")
chtChart.Axes(xlValue).MaximumScale = Sheets("Sheet1").Range("K9")
chtChart.Axes(xlValue).MajorUnit = Sheets("Sheet1").Range("L9")
Bekomme somit den kleinsten und größten Kalenderwochen Wert aus der Tabelle und habe die Einheit auf 1 gesetzt.Sowie dem ganzen eine Beschriftung gegeben.
chtChart.Axes(xlColumns).TickLabels.NumberFormat = "0 KW"
Das Problem ist jetzt ein Jahrwechsel. Dann haben wir als Beispiel: min Wert 42 und als max Wert 5 dies ist natürlich ein Problem. Ich weiß aber auch nicht wie ich diese Beschriftung insofern manipulieren kann, dass sie immer bis 52 geht (wenn ein Projekt über einen Jahreswechsel verläuft) und dann wieder bei 0 anfängt.Gruß Niko