Laufzeitfehler 9
21.05.2002 16:04:55
ltrader
Um ein Zweidimensionales Array zumächst mit Zufallszahlen zu fütter und diese dann nach deren Gräße zu sortieren, bin ich zu dem Schluß gekommen, diese Prozedur zu schreiben, die die Werte des Zweidimensionalen Array an ein Eindimensionales weitergibt.
Das Eindimensionale Array habe ich als Dynamisches deklariert.
In der Zeile, wo die Zuweisung stattfinden sollte, bekomme ich aber immer den Laufzeitfehler 9 "Index ausserhalb des gültigen Bereiches".
Was mache ich falsch ?
Vielen Dank für jeden Wink !!
Sub ArrayChange(IntArr() As Integer) 'Vom mehr- zum eindimensionalen Array
'Dim Array1Dim(ASize) As Integer
Dim Array1Dim() As Integer
Dim R As Integer
Dim C As Integer
Dim K As Integer
K = 0
For C = 1 To UBound(IntArr, 2)
For R = 1 To UBound(IntArr, 1)
K = K + 1
Array1Dim(K) = IntArr(R, C)
Next R
Next C
Show1Dim Array1Dim
'MsgBox "Nächste Sub"
Sorter Array1Dim
End Sub
Anzeige