Dim larray() As Variant

For i = 1 To rowscount
ReDim larray(1 To rowscount) As Variant
If merker = "DEM" Then
    MsgBox "lol DEM"
    larray(i) = "xbeliebigerWert"
End If
Next i

MsgBox larray(1)
MsgBox larray(2)
MsgBox larray(3)
MsgBox larray(4)

Hallo community,

ich habe bisher selten mit Arrays gearbeitet und habe jetzt ein vermeindlich einfaches Problem. Ich möchte in einer Schleife ein Array step by step befüllen. die variable rowscount ist z.b. 4 und gibt die anzahl an zeilen die ausgelesen werden an. xbeliebert Wert spricht denke ich für sich selbst.

Nachdem die Schleife fertig ist möchte ich nun an den Positionen 1,2,3 und 4 das Array auslesen. Allerdings ist der Wert immer leer. Was mach ich falsch?

Gruß Max