Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Variabler Blattname unter VBA

344 views
Skip to first unread message

Berolinea

unread,
Jun 6, 2002, 11:00:02 AM6/6/02
to
Hallo,
ich möchte den Blattnamen unter VBA variabel gestallten.
Die Variable reiter beinhaltet diesen.
ActiveChart.SetSourceData Source:=reiter.Range("A1:A20,P1:S20"),
PlotBy:=xlColumns
bringt Laufzeitfehler 424 objekt erforderlich

ctiveChart.SetSourceData
Source:=Sheets(reiter).Range("A1:A20,P1:S20"), PlotBy:=xlColumns
bringt Laufzeitfehler 9 Index außerhalb des gültigen Bereiches

ActiveChart.SetSourceData
Source:=Sheets("Tabelle1").Range("A1:A20,P1:S20"), PlotBy:=xlColumns
geht, aber nur mit den festen Namen "Tabelle1"

Wie mache ich es richtig ?

Und bei dieser Gelegenheit :
Wie mache ich Tabelle1 Variabel in z.B.
"=Tabelle1!R3C2:R20C2"

Wie läßt sich so etwas realisieren?
Danke im Voraus

Berolinea

Robert Gelbmann

unread,
Jun 6, 2002, 11:32:47 AM6/6/02
to
Hi Berolinea!

---"Berolinea" <bero...@lycos.de> schrieb im Newsbeitrag
news:c9d4d7c8.02060...@posting.google.com...


> ich möchte den Blattnamen unter VBA variabel gestallten.
> Die Variable reiter beinhaltet diesen.
> ActiveChart.SetSourceData Source:=reiter.Range("A1:A20,P1:S20"),

> [...]


> Wie läßt sich so etwas realisieren?

Was genau enthält deine Variable "reiter" eigentlich? Den Blattnamen als
Zeichenkette oder das Tabellenblatt als Objekt?

Anyway, hier die zwei Grundvarianten:

(1) Entweder du speicherst den Blattnamen in einer Variablen (als String =
Zeichenkette):

reiter = "Mein Tabellenblatt"
ActiveChart.SetSourceData Source:=Worksheets(reiter). _


Range("A1:A20,P1:S20"), PlotBy:=xlColumns

( 2) Oder du verwendest eine Objektvariable:
Set reiter = Worksheets("Mein Tabellenblatt")
ActiveChart.SetSourceData Source:=reiter. _


Range("A1:A20,P1:S20"), PlotBy:=xlColumns


--
In der Hoffnung geholfen zu haben, verbleibe ich mit einem leisen

Servus aus Wien,
-Robert Gelbmann-

---
MS MVP für Excel
EML: rgel...@mvps.org
Excel-FAQ's: http://www.roehrenbacher.at/erc/faq/


Berolinea

unread,
Jun 7, 2002, 4:42:18 AM6/7/02
to
"Robert Gelbmann" <rgel...@mvps.org> wrote in message news:<eO#qU9WDCHA.2072@tkmsftngp02>...

Danke, und ob es geholfen hat :-) .
Es ist übrigens eine Zeichenkette ;-) .

0 new messages