Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
460to464
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
460to464
460to464
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
xy diagramm
29.07.2004 15:39:22
Hagen
Hallo zusammen,
wieder einmal einer der so seine liebe Not mit VBA hat und nicht versteht, was Excel von ihm will. Hab mich schon versucht zu dem Thema schlau zu machen, aber habe entweder nichts gefunden oder die vorgeschlagenen Lösungen haben auch nicht so recht funktioniert.
Also nun zum Problem:
Versuche automatisiert Excel-XY-Diagramme zu erstellen (gelingt auch schon) und die Reihen ebenfalls automatisiert mit Werten zu füllen bzw Tabellenbereiche zuzuordnen. Die Werte liegen für X in Spalte (B,K,T)(5:14) und für Y in Spalte (G,P,Y)(4:14)(soll so sein). Nun der Code, der mich zum verzweifeln bringt! Vielleicht (hoffentlich) sieht einer den Fehler den ich mache.

Sub chartCreator()
Dim myDiagram As ChartObject
Dim myDataserie As Series
Dim strName As String
For y = 1 To 3 Step 1
ActiveWorkbook.Worksheets(7).Activate
strName = Worksheets(1).Range("A1")
Set myDiagram = ActiveSheet.ChartObjects.Add _
(Left:=0, Width:=720, Top:= _
Switch(y = 1, 0, y = 2, 408, y = 3, 816), Height:=396)
myDiagram.Chart.ChartType = xlXYScatterLines
'Es sollen 3 Reihen erstellt werden
For x = 1 To 3 Step 1
strName = Switch(x = 1, ActiveWorkbook.Worksheets(1).Range("A1"), _
x = 2, Worksheets(1).Range("J1"), _
x = 3, Worksheets(1).Range("S1"))
Set myDataserie = myDiagram.Chart.SeriesCollection.NewSeries
With myDataserie
.Name = strName
.XValues = "=Tabelle1!R5C2:R14C2" 'eigentlich steht hier auch Switch
.Values = "=Tabelle1!R5C7:R14C7"  'und bei dieser Zuweisung kommt Fehler
End With
Next
'nun kommen Beschriftung und Formatierung von Titel,X-Achse und Y_Achse
End Sub

Für alle Antworten im Vorraus meinen Dank!

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: xy diagramm
01.08.2004 01:44:57
Björn
Hallo Hagen,
kommt mir irgendwie bekannt vor.
Nimm einfach .Values = "=Tabelle1!Z5S7:Z14S7"
Gruß
Björn
P. S.: Vor gar nicht langer Zeit hatten wir das schon mal:
https://www.herber.de/forum/archiv/460to464/t460022.htm
Beiträge "Frag mich nicht warum..." und "Da kriegst du echt die Krise... :-)"
Ist aber über die Suchfunktion nicht zu entdecken.
Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige