Hallo,
ich möchte gerne eine zweidimensionales Array dynamisch erweitern.
eindimensionale Arrays gehen ja mit
Aber wie funktioniert das denn mit zweidimensionale Arrays.
Ich habe nur eine Lösung gefunden mit einer weiteren Funktion.
(quelle :vbarchiv.net)
So ganz verstehe ich diese Lösung nicht. Gibt es keine andere Lösung dafür?
Gruß
Strolli
ich möchte gerne eine zweidimensionales Array dynamisch erweitern.
eindimensionale Arrays gehen ja mit
Aber wie funktioniert das denn mit zweidimensionale Arrays.
Ich habe nur eine Lösung gefunden mit einer weiteren Funktion.
Visual Basic-Quellcode
- Public Sub ReDimEx(ByRef MyArray As Variant, _
- ByVal iDimX As Integer, _
- ByVal iDimY As Integer)
- Dim MyTempArray As Variant
- Dim I As Integer
- Dim J As Integer
- MyTempArray = MyArray
- ReDim MyArray(iDimX, iDimY)
- For I = LBound(MyTempArray, 1) To UBound(MyTempArray, 1)
- For J = LBound(MyTempArray, 2) To UBound(MyTempArray, 2)
- If I <= iDimX And J <= iDimY Then
- MyArray(I, J) = MyTempArray(I, J)
- End If
- Next J
- Next I
- End Sub
- Aufruf: (ohne Fehlermeldung) Dim MyArray() As Variant
- ReDim MyArray(2, 4)
- ' Größe beider Dimensionen ändern!
- ReDimEx MyArray, 5, 7
So ganz verstehe ich diese Lösung nicht. Gibt es keine andere Lösung dafür?
Gruß
Strolli