Office: String mit counter verbinden?

Hallo,

Es geht immernoch um mein BubbleChart, das ich schon mal gepostet habe.
Leider kann ich von den gegebenen Funktionene aus nicht meine verschiedenen Serien ausfuellen lassen.
Deshalb muss ich es wohl in eine Schleife packen.

Dabei habe ich das Problem, dass ich die Range hochzaehlen muesste. Also Spalte bleibt immer gleich, nur Zeile wird bei jedem Durchlauf um 1 groesser.
Die Range wird aber als String angegeben, soweit ich das gesehen habe kann ich den counter nur als Zahl nehmen (wie sollte er auch einen String hochzaehlen?)

So sieht das ganze aus ohne Schleife:

ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "=Sheet6!R" + z + "C8"
ActiveChart.SeriesCollection(1).Values = "=Sheet6!R6C7"
ActiveChart.SeriesCollection(1).Name = "=Sheet6!R6C2"
ActiveChart.SeriesCollection(1).BubbleSizes = "=Sheet6!R6C6"

ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(2).XValues = "=Sheet6!R7C8"
ActiveChart.SeriesCollection(2).Values = "=Sheet6!R7C7"
ActiveChart.SeriesCollection(2).Name = "=Sheet6!R7C2"
ActiveChart.SeriesCollection(2).BubbleSizes = "=Sheet6!R7C6"

Waere toll, wenn jemand was dazu einfaellt.
Danke schoen *Smilie

:)

 

Hallo grünohr,

das range kann man aus einem String für die Spalte und einem integer für die Zeile zusammensetzen.

Code:

Der Code gibt dir für jede Zelle in Spalte A von Zeile 1 bis 100 eine msgbox mit dem entsorechenden Feldwert aus.

Vielleicht hilft dir das weiter.

 

In der Zeile

Code:

hast Du doch schon den richtigen Ansatz. z kannst Du hochzählen. Die Umwandlung zu String erfolgt in VBA meist automatisch.

mfg Rita

 

Hi,

Danke fuer die viele Hilfe.
Ich habe einiges davon angewendet. Leider hat das

For i=1 to 100
msgbox range("A" & i).value
Next i

nicht ganz so funktioniert und ich bin bei der "do untill ... loop" Schleife gelandet.
Bei "=Sheet6!R" + z + "C8" hat er auch ein bischen rumgemeckert, aber mit "=Sheet6!R" & z & "C8" laeuft er jetzt.

Vielen Dank *10points