Anzeige
Archiv - Navigation
1468to1472
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
Inhaltsverzeichnis

Name für Datenreihe abhängig von aktiver Zelle

Name für Datenreihe abhängig von aktiver Zelle
18.01.2016 10:21:05
aktiver
Hallo da draußen!
Ich fummle hier nun seit ein paar Tagen recht erfolglos rum und komme auf keinen grünen Zweig... Folgendes möchte ich machen:
Ich habe eine Tabelle mit tausenden von Messwerten und möchte blockweise Diagramme (x,y) erstellen. Dazu markiere ich von Hand die Zellen (in einer Zeile) mit den y-Werten, erstelle das Diagramm und möchte dann mit einem Makro die Formatierung (Skalierung etc.) machen. Das klappt so weit. Was mir jetzt partout nicht gelingt, ist für die jeweilige Datenreihe einen Namen aus Spalte 1 der markierten Zeile zu vergeben. Sprich, ich will für
activeChart.SeriesCollection(1).Name den jeweiligen Namen vergeben, der in
ActiveCell.Offset(0, -4).Select eingetragen ist. Der Name ist nicht immer in derselben Zelle, sondern immer in Spalte A der jeweils markierten Zeile. Ich hoffe, dies ist verständlich...
Danke für Eure Hilfe!!

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Name für Datenreihe abhängig von aktiver Zelle
18.01.2016 10:30:03
aktiver
Hi,
so?
Cells(ActiveCell.Row, 1)
otto

AW: Name für Datenreihe abhängig von aktiver Zelle
18.01.2016 10:37:55
aktiver
Danke, Otto, das funktioniert so weit für die eine Zeile, ich bin schon ganz begeistert. Leider trägt es aber nicht die Zelladresse in das Feld Reihenname ein (Daten auswählen - Bearbeiten - Reihenname). Sprich, ich kann den Bereich nicht erweitern, so dass es automatisch für alle weiteren Datenreihen auch funktioniert. Hat jemand noch eine Idee?
So hatte ich es jetzt eingetragen:
ActiveChart.SeriesCollection(1).Name = Cells(ActiveCell.Row, 1)

AW: Name für Datenreihe abhängig von aktiver Zelle
18.01.2016 10:58:54
aktiver
Hi,
vielleicht mit Variable?
Dim Cname as String
Cname = Cells(ActiveCell.Row, 1)
...
ActiveChart.SeriesCollection(1).Name = Cname
otto

Anzeige
AW: Name für Datenreihe abhängig von aktiver Zelle
18.01.2016 11:20:05
aktiver
Hallo Otto, danke nochmals, das macht dasselbe wie vorher. Das Makro läuft durch und tut auch für die eine Datenreihe das, was es soll, ich möchte aber gerne, dass tatsächlich der Eintrag in Daten auswählen - Bearbeiten - Reihenname liegt. Denn wenn ich die erste Datenreihe erstellt und formatiert habe, ziehe ich die Markierung für das Diagramm nach unten, um weitere Datenreihen zu hinzuzufügen (ist je nach Bereich immer unterschiedlich groß, daher muss ich das von Hand machen). Diese neuen Datenreihen aktualisieren sich nur, wenn tatsächlich im Feld Reihenname etwas eingetragen ist. Die bisherige Lösung benennt zwar den Reihennamen korrekt, trägt aber nicht z.B. =Tabelle1!$A$1541 ein.

Anzeige
AW: Name für Datenreihe abhängig von aktiver Zelle
18.01.2016 10:30:25
aktiver
So hab ich es aktuell probiert:
Sub DatName()
' DatName Makro
ActiveCell.Offset(0, -4).Select
Dim DatNam As String
DatNam = ActiveCell.Value
ActiveChart.SeriesCollection(1).Name = DatNam
End Sub
Es kommt allerdings gleich anfangs ein Fehler:
Laufzeitfehler '1004': Anwendungs- oder objektdefinierter Fehler

AW: Name für Datenreihe abhängig von aktiver Zelle
18.01.2016 11:29:33
aktiver
So sieht es nun aktuell komplett aus:
Sub Dia_formatieren()
' Dia_formatieren Makro
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).XValues = "=Tabelle1!$E$2:$L$2"
ActiveChart.Axes(xlCategory).Select
ActiveChart.Axes(xlCategory).MinimumScale = 50
ActiveChart.Axes(xlCategory).MaximumScale = 100
ActiveChart.Axes(xlCategory).MajorUnit = 7
ActiveChart.Axes(xlValue).Select
ActiveChart.Axes(xlValue).MinimumScale = 0
ActiveChart.Axes(xlValue).MaximumScale = 3
ActiveChart.SeriesCollection(1).Name = Cells(ActiveCell.Row, 1)
End Sub
Das Makro läuft durch und tut auch für die eine Datenreihe das, was es soll; ich möchte aber gerne, dass tatsächlich der Eintrag in Daten auswählen - Bearbeiten - Reihenname liegt. Denn wenn ich die erste Datenreihe erstellt und formatiert habe, ziehe ich die Markierung für das Diagramm nach unten, um weitere Datenreihen hinzuzufügen (ist je nach Bereich immer unterschiedlich groß, daher muss ich das von Hand machen). Diese neuen Datenreihen aktualisieren den Namen der Datenreihe nur, wenn tatsächlich im Feld Reihenname etwas eingetragen ist. Die bisherige Lösung benennt zwar den Reihennamen korrekt, trägt aber nicht z.B. =Tabelle1!$A$1541 (was ja jedes Mal in einer anderen Zeile liegen soll) ein.

Anzeige
AW: Name für Datenreihe abhängig von aktiver Zelle
24.01.2016 10:45:16
aktiver
Hi,
vielleicht so:
Sub DiaErstellen()
Dim chrDia As ChartObject
Set chrDia = ActiveSheet.ChartObjects.Add(ActiveCell.Left, ActiveCell.Top, 350, 200)
With chrDia.Chart
.ChartType = xlXYScatterLines
With .SeriesCollection.NewSeries
.Name = "=" & ActiveSheet.Name & "!" & Cells(ActiveCell.Row, 1).Address
.XValues = Range("E2:L2")
.Values = Range(Cells(ActiveCell.Row, 5), Cells(ActiveCell.Row, 12))
End With
With .Axes(xlCategory)
.MinimumScale = 50
.MaximumScale = 100
.MajorUnit = 7
End With
With .Axes(xlValue)
.MinimumScale = 0
.MaximumScale = 3
End With
End With
Set chrDia = Nothing
End Sub


Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige