ich definiere in einem Makro ein Array. Da ich nicht weiß wie groß das Array werden kann, möchte ich dieses während der Laufzeit gern anpassen:
Sub test()
ReDim aMaps(1, 1) As Variant
last_cell = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To last_cell
ReDim Preserve aMaps(i - 2, 1)
aMaps(i - 2, 1) = Cells(i, 1).Value
aMaps(i - 2, 2) = Cells(i, 2).Value
Next i
End Sub
Leider funktioniert dies nicht. Es erscheint der Fehler: Index außerhalb des gültigen Bereichs.Da ich mit Arrays bisher nicht gearbeitet habe bräuchte ich hier mal Eure Hilfe.
Danke Euch schon mal.
VG Steffen Schmerler