Autom. Zeichnen eines Diagramms ( dynamisch)

Forumthread: Autom. Zeichnen eines Diagramms ( dynamisch)
1 Beitrag zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Autom. Zeichnen eines Diagramms ( dynamisch)

01.04.2005 12:01:49

Christian

Folgendes Problem: Wie kriege ich den 2. Range-Befehl so flexibel wie den ersten hingebastelt? Kriege immer nur Fehlermeldungen...
Vielen Dank!!! ;-)
Christian aus Berlin
++++


Sub xyz()
'Zellbereich der Datenquelle markieren.
Range([B5], [H65536].End(xlUp)).Select
'Diagrammerstellung.
Charts.Add
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Sheets("Datenquelle").Range("B5:H26"), _
PlotBy:=xlColumns
End Sub

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Autom. Zeichnen eines Diagramms ( dynamisch)

01.04.2005 14:47:27

Herbert

AW: Autom. Zeichnen eines Diagramms ( dynamisch)

01.04.2005 14:47:27

Herbert

hallo Christian,
probiers so:


Sub xyz()
Dim lz%
lz = [H65536].End(xlUp).Row
Charts.Add
With ActiveChart
.ChartType = xlLine
.SetSourceData Source:=Sheets("Datenquelle"). _
Range("B5:H" & lz), PlotBy:=xlColumns
End With
End Sub

gruß Herbert