Guten Tag,
ich möchte gerne die X-Achse eines Diagramms in Excel mit VBA beschriften. Die Beschriftung soll in einer Zelle AD3:AD6 änderbar sein. Es sollen in der X-Achse des Diagramms drei Bezeichnungen stehen. Leider habe ich es bisher nicht geschafft die Zellen zu verlinken, stattdessen werden immer die Werte direkt eingetragen und sind somit nicht einfach änderbar.
Hier auch noch der Code dafür:
For j = 1 To Dia.Chart.SeriesCollection.Count
With Dia.Chart.SeriesCollection(j)
.XValues = "={" & Chr(34) & Trim(XAchse) & Chr(34) & "}" 'XWerte
If j <= 3 Then .Interior.Color = Farbe(j) 'Datenreihe 1 - 3 bearbeiten
With .DataLabels.Format.TextFrame2.TextRange.Font
.Fill.ForeColor.RGB = RGB(248, 248, 248) 'weiß machen
.Bold = msoTrue 'fett
.Size = 11 'Größe 11
End With
End With
Next j
XAchse = "" 'zurücksetzen der XAchse
Next i
.Cells(Zeile + 10, 1).Select 'Wieder zurücksetzen der Ansicht
End With
Ich hoffe jemand weiß da mehr als ich! Ich bin über jede Antwort dankbar.
Grüße
Kati |