Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Diagramm erstellen

Forumthread: Diagramm erstellen

Diagramm erstellen
thomas3
Hallo zusammen,
ich habe eine Tabelle, aus der ich ein Diagramm erstellen möchte. Der Bereich dieser Tabelle ist variabel. Das hätte ich so gelöst
'Bereich zum Erstellen des Diagrammes festlegen
lzeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
lspalte = ActiveSheet.Cells(2, Columns.Count).End(xlToLeft).Column
Set dbereich = Range(Cells(3, 1), Cells(lzeile, lspalte))
Dann möchte ich das Diagramm erstellen (lassen). Das mache ich so.
'Diagramm erstellen
Sheets("Auswahldaten").Select
Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Sheets("Auswahldaten").Range(dbereich), _
PlotBy:=xlRows
und da bleibe ich hängen.
Mit dem Range(dbereich) kommt das Makro nicht zurecht.
Wüßte bitte jemand warum?
Freue mich für jeden Hinweis.
Thomas
Anzeige

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

Betreff
Benutzer
Anzeige
AW: Diagramm erstellen
31.08.2010 11:27:17
Tino
Hallo,
dbereich ist bereits ein zugewiesener Zellbereich, ich würde es mal so versuchen. (nicht getestet)
ActiveChart.SetSourceData Source:=dbereich, _
PlotBy:=xlRows
Gruß Tino
AW: Diagramm erstellen
31.08.2010 11:40:04
thomas3
Hallo Tino
hmmm... dann kommt folgender Fehler
Laufzeitfehler 438
Objekt unterstützt diese Eigenschaft oder Methode nicht
Vielleicht noch eine Idee?
Grüße
Thomas
Anzeige
dann hilft eine Beispieldatei. oT.
31.08.2010 11:48:14
Tino
dann hilft eine Beispieldatei ;-) oT.
31.08.2010 11:48:32
Tino
AW: dann hilft eine Beispieldatei ;-) oT.
31.08.2010 12:03:43
thomas3
meinst du, ich soll die gesamte Datei zum Hochladen bereit stellen?
dann müßte ich erst die wichtigen daten alle löschen.....
lg
thomas
Anzeige
es reicht auch ein Beispiel...
31.08.2010 13:32:10
Tino
Hallo,
wo Dein Problem ersichtlich und nachvollziehbar ist.
Gruß Tino
AW: es reicht auch ein Beispiel...
06.09.2010 16:46:41
thomas3
Hallo Tino,
bitte entschuldige, dass ich nach so langer Zeit mich erst jetzt melde. Ich hatte was ganz wichtiges zu erledigen.
Ich weiß jetzt, woran es gelegen hat
in dieser Zeile
ActiveChart.SetSourceData Source:=Sheets("Auswahldaten").Range(dbereich), _
PlotBy:=xlRows
muß der 'dbereich' als String definiert werden.
In meinen Falle wäre das so gewesen : bereich = "A2:" & buchstabe & lzeile
Das klappt wunderbar.
Sorry noch einmal und liebe Grüße
Thomas
Anzeige
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
14.05.2026 09:50:42
13.05.2026 19:14:18