Diagram per Makro

02/03/2009 - 17:34 von Günter Griesbach | Report spam
Hallo NG,

schon wieder ich.
Ich möchte mit einem Makro verschiedene Dateien öffnen und aus den Daten
automatisch ein Diagramm erstellen lassen (nacheinander). Die Dateien sind
alle gleich aufgebaut, haben aber haben unterschiedliche Datenmengen.
Den Dateien gebe ich im Makro eine Variable (DName) als Namen mit. Wie
bekomme ich aber die Auswahl der Spalten und Zeilen in den Code?
Beispiel:

ActiveChart.SetSourceData Source:=Sheets(DName).Range( _
"A4:B8548"), PlotBy:=xlColumns

Die nàchste Datei hat aber "A4:B9856". Ich wàhle die Zeilenanzahl mit

Range(Selection, Selection.End(xlDown)).Select

aus (wenn es dann mal funzt).
Der 'Block' sieht so aus:

Range("A4:B4").Select
Range("B4").Activate
Range(Selection, Selection.End(xlDown)).Select
Charts.Add
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Sheets(DName).Range( _
"A4:B8548"), PlotBy:=xlColumns

Ist ein bisschen viel Text, bedanke mich aber bereits vorab für eure Hilfe.

Gruß
Günter
 

Lesen sie die antworten

#1 Andreas Killer
02/03/2009 - 18:11 | Warnen spam
Günter Griesbach schrieb:

Den Dateien gebe ich im Makro eine Variable (DName) als Namen mit. Wie
bekomme ich aber die Auswahl der Spalten und Zeilen in den Code?


...
Der 'Block' sieht so aus:

Range("A4:B4").Select
Range("B4").Activate
Range(Selection, Selection.End(xlDown)).Select
Charts.Add
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Sheets(DName).Range( _
"A4:B8548"), PlotBy:=xlColumns

Ist ein bisschen viel Text, bedanke mich aber bereits vorab für eure Hilfe.


Nee, viel zu wenig! Bytes im Netz kosten doch nix. .-) Wenn Du schon
ein Makro hast, dann poste es bitte komplett, auch wenn es nicht geht,
es làßt sich viel besser helfen wenn man das ganze sieht.

Deinen Block kannst Du so optimieren:

Dim S As String
S = Range(Range("B4"), Range("B4").End(xlDown)).Address
Charts.Add
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData _
Source:=Sheets(DName).Range(S), PlotBy:=xlColumns

Andreas.

Ähnliche fragen