Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Frame
BildScreenshot zu Frame Frame-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen

VBA X-Achse durch Zelle beschriften

Betrifft: VBA X-Achse durch Zelle beschriften von: KatiFeld
Geschrieben am: 05.10.2020 12:50:19

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

Betrifft: doppelt (owT)
von: Pierre
Geschrieben am: 05.10.2020 13:29:07