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

fortlaufende Variable in VBA-Schleife einbinden

648 views
Skip to first unread message

Walter Heying

unread,
Jun 16, 2009, 7:27:12 AM6/16/09
to
Hallo Excel-Spezialisten,

mit einfachen Worten möchte ich eine Variable variabel gestalten. Was
heißt das?
Ich möchte in einer Do While - Schleife erreichen, dass sich der
Variablenname mit jedem Druchlauf verändert.
Beispiel:
Do While lfdNr < 20
Zähler = lfdNr
Zelleninhalt_lfdNr = Sheets("Test").Cells(Zähler, 5)
If Zelleninhalt_lfdNr <> Zähler Then lfdNr = Zähler
lfdNr = lfdNr + 1
Loop

Kann man einen Variablennamen variabel gestalten? Vielleicht
Variablennamen&lfdNr oder so ähnlich.

Gruß
Walter

Matthias Hübner

unread,
Jun 16, 2009, 7:31:23 AM6/16/09
to
Salut Walter,

Walter Heying wrote:

> Hallo Excel-Spezialisten,
>
> mit einfachen Worten m�chte ich eine Variable variabel gestalten. Was
> hei�t das?
> Ich m�chte in einer Do While - Schleife erreichen, dass sich der
> Variablenname mit jedem Druchlauf ver�ndert.


> Beispiel:
> Do While lfdNr < 20

> Z�hler = lfdNr
> Zelleninhalt_lfdNr = Sheets("Test").Cells(Z�hler, 5)
> If Zelleninhalt_lfdNr <> Z�hler Then lfdNr = Z�hler


> lfdNr = lfdNr + 1
> Loop
>
> Kann man einen Variablennamen variabel gestalten? Vielleicht

> Variablennamen&lfdNr oder so �hnlich.

daf�r nimmt man in VBA �blicherweise Arrays.

Dim ZZ(1 To 20) As Variant

Do While lfd < 20
ZZ(lfd) = Sheets("Test").Cells(lfd,5)
if ZZ(lfd) <> lfd Then ...
...

--
Gr��e
Matthias

Walter Heying

unread,
Jun 16, 2009, 8:04:21 AM6/16/09
to
On 16 Jun., 13:31, Matthias Hübner <i...@verkehrsberatung.net> wrote:
> Salut Walter,
>
>
>
>
>
> Walter Heying wrote:
> > Hallo Excel-Spezialisten,
>
> > mit einfachen Worten möchte ich eine Variable variabel gestalten. Was
> > heißt das?
> > Ich möchte in einer Do While - Schleife erreichen, dass sich der
> > Variablenname mit jedem Druchlauf verändert.

> > Beispiel:
> > Do While lfdNr < 20
> >     Zähler = lfdNr
> >     Zelleninhalt_lfdNr = Sheets("Test").Cells(Zähler, 5)
> >      If Zelleninhalt_lfdNr <> Zähler Then lfdNr = Zähler
> >      lfdNr =  lfdNr + 1
> > Loop
>
> > Kann man einen Variablennamen variabel gestalten? Vielleicht
> > Variablennamen&lfdNr oder so ähnlich.
>
> dafür nimmt man in VBA üblicherweise Arrays.

>
> Dim ZZ(1 To 20) As Variant
>
> Do While lfd < 20
>         ZZ(lfd) = Sheets("Test").Cells(lfd,5)
>         if ZZ(lfd) <> lfd Then ...
> ...
>
> --
> Grüße
> Matthias- Zitierten Text ausblenden -
>
> - Zitierten Text anzeigen -

Vielen Dank Matthias!

Matthias Hübner

unread,
Jun 16, 2009, 8:15:57 AM6/16/09
to
Walter Heying wrote:


>
> Vielen Dank Matthias!

Gern geschehen!

Schaue Dir in diesem Zusammenhang auch das ReDim Statement an und die
Auspr�gung des Variant als Array. Google bringt Dir diesbez�glich gen�gend
Beispiele.
--
Gr��e
Matthias

0 new messages