Hallo,
ich habe ein Schleife und möchte Daten zwischenspeichern um sie später anzugeben.
Es steht aber nicht fest wie viele Daten es werden.
Problem ist, dass ich bei dem Array (laut Google) nicht die erste Dimension ändern kann also die Zeilenzahl.
Hat jmd. eine Idee wie das ganze gehen kann?
hier der CODE:
dim arr as variant
dim arr3()
z = 1
For i = LBound(arr) To UBound(arr) Step 1
For d = LBound(arr1) To UBound(arr1) Step 1
If arr(i, 2) = arr1(d, 1) Then
Range("E" & d + 2) = arr(i, 1)
Range("F" & d + 2) = arr(i, 4)
GoTo ende
ElseIf d = UBound(arr1) Then
ReDim Preserve arr3(1 To z, 1 To 4) <------- dieser Teil klappt nicht
arr3(z, 2) = arr(i, 2)
arr3(z, 1) = arr(i, 1)
arr3(z, 3) = arr(i, 3)
arr3(z, 4) = arr(i, 4)
z = z + 1
End If
Next
ende:
Next