ReDim, was ist falsch?
HaPe
ich versuche ein Array mit ReDim mit zusätzlichen Spalten zu versehen. Leider funktioniert das nicht. Warum?
Sub daten()
Dim Arr() As Variant
Dim intZeile As Integer
Arr = Range("A2:B" & leZeile).Value
ReDim Preserve Arr(leZeile - 1, 10)
' weitere Zeilen
End Sub
Redim löst einen Fehler aus. Ich möchte zwei Spalten, A und B aus einer Liste verwenden. Die entnehme ich mit dem Array. Dann sollen acht weitere Spalte für zusätzliche Werte eingefügt werden. Aber die ReDim Zeile löst einen Fehler aus.
leZeile bekommt den Wert über eine Funktion.
Es grüßt Hans-Peter
Anzeige