Verwendung von „leer“ in Array()

Question

aProducts(lRow) = Array("Id Product", "Value A", "Value B") 

'To copy value A 
aProducts(lRow) = Array(.Cells(aPos(1)).Value2, .Cells(aPos(2)).Value2, Empty) 

'To copy value B 
aProducts(lRow) = Array(.Cells(aPos(1)).Value2, Empty, .Cells(aPos(3)).Value2) 

Hallo Jungen,

ich dieses Stück Code in einer Schleife verwenden, um einige Werte und ihre ID zu kopieren, aber wie auch immer, jetzt würde Ich mag das verstehen Verwendung von "Empty" in diesem Code, um mehr Wert hinzuzufügen.

Ich habe versucht:

aProducts(lRow) = Array("Id Product", "Value A", "Value B", "Value C") 

'To copy value A 
aProducts(lRow) = Array(.Cells(aPos(1)).Value2, .Cells(aPos(2)).Value2, Empty) 

'To copy value B 
aProducts(lRow) = Array(.Cells(aPos(1)).Value2, Empty, .Cells(aPos(3)).Value2) 

'To copy value C 
aProducts(lRow) = Array(.Cells(aPos(1)).Value2, Empty, Empty, .Cells(aPos(4)).Value2) 

"Execusiion Fehler 9"

Vielen Dank im Voraus und sorry für mein ungefähres Englisch:/

EDIT 1

Sie können das bekommen Datei hier: https://drive.google.com/file/d/0B5DpGwPWsIfbWWlJRDAzZldYek0/view?usp=sharing

EDIT

Dank euch allen, ich habe gerade, dass ich vergessen habe für Sie

ReDim Preserve aProducts(lRow) 

Answer 1

schreiben folgendes:

Option Explicit 

Sub TestMe() 

    Dim arr_var  As Variant 

    arr_var = Array(Empty, Empty, 5) 
    Stop 
End Sub 

es dann laufen. Klicken Sie mit der Maus über arr_var, drücken Sie Shift + F2 und Sie werden sehen: "Leer" bedeutet "leer" in Deutsch.

Answer 2

Ist diese Arbeit zu entfernen? Es sieht so aus, als hätten Sie vergessen, das letzte zu aktualisieren, als Sie es kopiert haben.

aProducts(lRow) = Array("Id Product", "Value A", "Value B", "Value C") 

'To copy value A 
aProducts(lRow) = Array(.Cells(aPos(1)).Value2, .Cells(aPos(2)).Value2, Empty, Empty) 

'To copy value B 
aProducts(lRow) = Array(.Cells(aPos(1)).Value2, Empty, .Cells(aPos(3)).Value2, Empty) 

'To copy value C 
aProducts(lRow) = Array(.Cells(aPos(1)).Value2, Empty, Empty, .Cells(aPos(4)).Value2) 

Ich glaube, Sie auch eine 4 anstelle eines 3 aktualisieren .Cells(aPos(4)).Value2) haben wollte.