Re: Diagramme via Makros
08.12.2002 08:26:38
andre
hallo andreas,
habe mal aufgezeichnet:
das sind nun zwar nicht Deine beschriebenen Zellen, aber die kannst Du einfach einbauen - in Range("A1:A17,C1-C17") usw.
Wenn Du es flexibel mit Variablen und / oder über eine Inputbox realisieren willst dann dieser code im sub:
~begin~
DatenBereich = Inputbox("DatenBereich: ")
ActiveSheet.ChartObjects("Diagramm 3").Activate
ActiveChart.ChartArea.Select
ActiveChart.SetSourceData Source:=Sheets("Tabelle1").Range(Datenbereich) _
, PlotBy:=xlColumns
~end~
der code ist eine variante mit dem namen des charts. wenn der user es vorher anklickt, brauchst du die erste zeile nicht.
Einbinden kannst Du das z.B. mit einer Schaltfläche aus der Steuerelemente-Tollbox.
Nicht dabei ist eine Fehlerbehandlung. Es kann ja schnell passieren, dass der user was anderes eingibt als einen bereich, oder im bereich stehen keine zahlen ...
gruss andre