Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1448to1452
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1448to1452
1448to1452
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Diagramm Reihenname mit festen Zellbezug

Diagramm Reihenname mit festen Zellbezug
08.10.2015 08:58:40
Falco
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Diagramm Reihenname mit festen Zellbezug
10.10.2015 10:09:13
Beverly
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.

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige