Dynamisches Anhängen eines Arrays in VBA

8

Ich möchte ein Array mit einer Zahl anhängen, die von der Bedingung verschiedener Variablen abhängt. Hier ist der Code, den ich mir ausgedacht habe: Ich beginne mit einem leeren Array.

%Vor%

Offensichtlich ist dies ein Beispiel, also nicht die eleganteste Art, es zu setzen, aber es funktioniert nicht, da ich das Array anscheinend nicht neu erstellen kann, da es anfänglich kein ubound oder ein lbound hat. Wenn ich es als myArr(0 to 0) abblinde, scheitert dies ebenfalls.

Irgendwelche Ideen?

    
harryg 30.01.2013, 11:23
quelle

2 Antworten

6

Bevor Sie das Array myArr zum ersten Mal verwenden, führen Sie Folgendes aus:

%Vor%

Wenn Sie dann zur dynamischen ReDim -Anweisung kommen, verwenden Sie ReDim nur, wenn bestimmte Bedingungen erfüllt sind, z. If UBound(myArr) > 1 then etc.

%Vor%     
Olle Sjögren 30.01.2013, 11:46
quelle
1

Olle's Lösung kann mit ein paar mehr checks and balances erweitert werden, wenn es Sie interessiert.

Siehe die Funktion InsertElementIntoArray hier: Ссылка

    
ecoe 04.04.2014 17:54
quelle

Tags und Links