Problem beim Diagramm-Zeichnen
26.01.2006 12:05:54
Maddin
Ich habe folgendes Problem:
ich möchte ein Diagramm zeichnen und mit dem Befehl "ActiveChart.SetSourceData" die Quelle angeben.
Die Variablem xRowCount und xColCount geben jeweils das Ende der Spalte / Zeile an. Ich möchte gerne das "Range("A1:J9")" durch eben diese Angaben ersetzen, wie es auch in der ersten Zeile möglich war.
Kann mir jemand nen Tipp geben?
Gruß,
Maddin
Range(Cells(1, 1), Cells(xRowCount, xColCount)).Select
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Tabelle").Range("A1:J9"),PlotBy:=xlRows
ActiveChart.Location Where:=xlLocationAsNewSheet