"Name definieren" flexibel aufbauen

Hallo Excel Spezialisten,
ich habe eine Arbeitsmappe erstellt mit einem Tabellenblatt als Template. Diesem Template habe ich Namen zugewiesen, die ich dazu benutze um Diagramme dynamisch an täglich aktualisierte Werte anzupassen. Der definierte Name lautet: "DIA_Datum" und bezieht sich auf "=BEREICH.VERSCHIEBEN('Status-Template'!$A$3;0;0;ANZAHL2('Status-Template'!$A$3:$A$400);1)"
Wenn ich nun diese Template-Arbeitsmappe kopiere beziehen sich alle Kopien auf die Template-Arbeitsmappe.
Hier mal eine kleine Beispieldatei: https://www.herber.de/bbs/user/58617.xls
Hat jemand eine Idee, wie ich o.g. Bezug variabel gestalten kann, so dass sich der Bezug auf die jeweilige Kopie bezieht?
Vorab schon mal vielen Dank für eure Mühe.
Gruß Hermann

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Hermann,
hier ein Makro, das die im aktiven Blatt vorhandenen Namen (Werte und Datum) -diese werden ja beim Kopieren des Blattes aus der Template-Datei mitkopiert- der Reihe(1) des Diagramms im Blatt zuweist.
Wenn man experimentiert, dann wird die Lösung plötzlich sehr einfach.
Der Code meines 1. Lösungsansatzes war 3 mal so lang und kreierte neue Namen, die dann zugewiesen wurden.
Das Makro muss in einem Modul der Datei angelegt werden, in das die Tabellenblätter kopiert werden.
Nach dem Kopieren eines Blattes aus dem Template muss das Makro ausgeführt werden.
Gruß
Franz


Sub DiagrammNeuVerknuepfen()
Dim wksAktiv As Worksheet
Dim objDiagramm As Chart, objReihe As Series
Dim strDatumNeu As String, strWerteNeu As String
Const strWerte As String = "Werte" 'Name für Wertebereich im Template
Const strDatum As String = "Datum" 'Name für Datumsbereich im Template
Const strReihe As String = "B8" 'Zell-Addresse für Namen der Reihe
On Error GoTo Fehler
Set wksAktiv = ActiveSheet
Set objDiagramm = wksAktiv.ChartObjects(1).Chart 'Eingebettetes Diagramm
'Neue Namen ermitteln
strDatumNeu = "'" & wksAktiv.Name & "'!" & strDatum
strWerteNeu = "'" & wksAktiv.Name & "'!" & strWerte
'Namen der Datenreihe im Diagramm zuweisen
With objDiagramm
Set objReihe = .SeriesCollection(1)
objReihe.Formula = "=SERIES(""" & wksAktiv.Range(strReihe).Text & """," _
& strWerteNeu & "," & strDatumNeu & ",1)"
End With
Fehler:
With Err
If .Number  0 Then
MsgBox "Fehler-Nr.: " & .Number & vbLf & .Description
End If
End With
End Sub

Beliebteste Forumthreads (12 Monate)

"Name definieren" flexibel aufbauen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

"Name definieren" flexibel aufbauen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread