ReDim; mehrdimensionalem Array
27.05.2021 13:42:58
JoWE
ich versuche mich gerade an Arrays um irgendwann auch Dictionary und/oder Collections (vllt. sortiert und ohne Duplikate) kennen zu lernen.
Zu Beginn stoße auf die Frage, wie das ReDim-Statement einzusetzen ist um ein dynamisches Array zu füllen.
Hier mein (ev tl. zu verbesserndes) Beispiel, bei dem ich Hilfe benötige:
Wie genau ändere ich den Code um mein Datenfeld dynamisch zu machen?
Sub my3DArray()
Dim myArr(25, 25, 25) As String
Dim a As Long, b As Long, c As Long
'Einlesen
For a = 1 To 25
myArr(a, 0, 0) = Cells(a, 1)
For b = 1 To 25
myArr(a, b, 0) = Cells(a, 2)
For c = 1 To 25
myArr(a, b, c) = Cells(a, 3)
Next
Next
Next
'Ausgabe
For e = LBound(myArr) To UBound(myArr) - 1
Cells(e + 1, 5) = myArr(e + 1, 0, 0)
Cells(e + 1, 6) = myArr(e + 1, 1, 0)
Cells(e + 1, 7) = myArr(e + 1, 2, 1)
Next
End Sub
GrußJochen