Diagramm Reihenname mit festen Zellbezug

Bild

Betrifft: Diagramm Reihenname mit festen Zellbezug
von: Falco
Geschrieben am: 08.10.2015 08:58:40

Guten Tag alle zusammen,
ich habe ein Diagramm in einem Worksheet (ein Bericht) welches die Daten aus einer anderen Excel-Datei bezieht. Nun möchte ich in meinem Bericht alles soweit einfrieren und schützen das man mit wenig aufwand immer den gleichen Standardbericht erstellen kann. D.h. es soll feste Legeneneinträge/ Datenreihennamen geben mit zB Reihe 1-10 heisst dann Kanal 1 bis 10.
Mir ist nur bekannt das wenn man im Diagramm per Rechtsklick die Daten neu bezieht, das dann auch die Namen "neu" erstellt werden bzw der Excel Standard (Datenreihe 1...) entsteht wenn kein Name bei den neuen Daten enthalten ist.
Kann man feste Name vergeben über VBA? Sodass ich nur die reinen Datenwerte immer neu manuell ansteuern muss?
Ich hoffe man versteht was ich mein :)
MfG
Falco

Bild

Betrifft: AW: Diagramm Reihenname mit festen Zellbezug
von: Beverly
Geschrieben am: 10.10.2015 10:09:13
Hi Falco,
z.B. nach diesem Prinzip:

Sub ReihenNamen()
    Dim arrNamen()
    Dim lngReihe As Long
    arrNamen = Array("Reihe A", "Reihe B", "Reihe C", "Reihe D")
    With ActiveChart
        For lngReihe = 1 To .SeriesCollection.Count
            .SeriesCollection(lngReihe).Name = arrNamen(lngReihe - 1)
        Next lngReihe
    End With
End Sub

Das Diagramm muss dabei aktiv sein - das wird im Code nicht geprüft. Der Code beinhaltet auch keine Fehlerbehandlung, falls nicht ausreichend Namen im Array stehen.



 Bild

Beiträge aus den Excel-Beispielen zum Thema "Diagramm Reihenname mit festen Zellbezug"