Office: arrays gleichzeitig setzen

Hallo

kann man diese Variante auch mit einem Schritt lösen??

Code:

Dim lngZaehler(2) As Long
lngZaehler(0) = 2: lngZaehler(1) = 2: lngZaehler(2) = 2

Folgende Versuche funktionieren nicht:

Code:

lngZaehler() = 2
lngZaehler(0 To 2) = 2
lngZaehler = 2

Vielen Dank für die Hilfe!!

 

Hallo!

For i = 0 To 2
lngZaehler(i) = 2
Next i

 

Hallo @schatzi

Danke für die Antwort!
Allerdings ganz so einfach wollte ich mir das eigentlich nicht machen. Zumal ich in "For Next Schleifen" immer einen Zeitverlust (wenn auch gering) habe. Wie ich schon in den Versuchen dokumentiert habe, schwebt mir da nur ein einziger Befehl vor.
Das Problem liegt weiter als hier nur sichtbar, weil ich die Arrays mit Teilen schon vorbelegen will (Bsp. Verzeichnispfade etc.) und in dem Bereich sind das schon mal locker 10000 Arrays. In denen wird dann auch ein Zeitunterschied messbar. Hier bietet sich sicherlich als Äquivalent die Do while loop wend Fraktion eher an. Ähnlich wäre sicherlich in der weitergehenden Abfrage eine Grundpfad & Array(xy) Definition. Ich hoffe immer noch auf eine "ein Befehl" Lösung. Schon um mein Wissen hierbei zu erweitern.
(so wie hier Beispielsweise ==> Erase Array)

 

Hi,

Code:

   Dim arrWerte()
   arrWerte = Array(2, 2, 2)

Bis später,
Karin

 

Vielen Dank @Beverly!!!

Das war des Rätsels Lösung!
Manchmal sieht man den Wald vor lauter Bäumen nicht.
Woran ich mir in dieser Definition immer ein wenig schwer tue ist, das ich das normalerweise in mehrdimensionalen Arrays verwende und da hat diese ähnliche Syntax Formulierung eine ganz andere Bedeutung...
In jedem Fall funktioniert nun alles so wie es soll!
Ein wenig hadere ich zwar immer mit dieser Speicher fressenden Variant Dimensionierung, aber manche Sachen soll man nicht zu sehr hinterfragen und sie so nehmen wie sie sind.

Vielen Dank!