Schleife mit Redim Preserve
17.10.2005 13:05:07
Matthias
ich dem Makro:
Sub Zielgewicht_speichern()
Dim matzielgewicht() As Variant
Dim i As Integer
i = 1
Do Until Range("Isin_zielport").Offset(i, 0) = ""
If Range("Zielgewicht").Offset(i, 0) > 0 Then
ii = ii + 1
ReDim Preserve matzielgewicht(ii, 2)
matzielgewicht(ii, 1) = Range("Isin_zielport").Offset(i, 0)
matzielgewicht(ii, 2) = Range("zielgewicht").Offset(i, 0)
End If
i = i + 1
Loop
End Sub
kommt es an der Stelle ReDim Preserve matzielgewicht(ii, 2) im 2. Durchlauf zu einem Fehler den ich nicht erklären kann. Wer kann helfen?
Danke.
Matthias