Mehrdimensionales Array

02/11/2009 - 16:29 von Thomas Wolf | Report spam
Hallo NG

Soweit ich verstanden habe kann ich mittels dieser Prozedur ein
zweidimensionales Array erstellen:

Sub subTest()
Dim arrTest(9, 1) As Variant
Dim x
10 For x = 0 To 9
20 arrTest(x, 0) = x
30 arrTest(x, 1) = Now + x
40 Next x
End Sub

Was kann ich tun, wenn ich die Wertebereiche bei Dim noch nicht weiss? Denn
ein ReDim arrTest(15,1) hat die Meldung gebracht, dass das Array schon
dimensioniert wurde.
Kann ich die Anzahl der Ebenen 'arrTest(9,1,x,y,z)' auch nach Dim noch
einstellen?

Vielleicht steht das in der Hilfe, ich habe es aber nicht kapiert. Bin
deshalb froh um Beispiele.

Gruss
Thomas
 

Lesen sie die antworten

#1 Andreas Sperl
02/11/2009 - 17:12 | Warnen spam
Hallo Thomas,


Thomas Wolf schrieb:

Sub subTest()
Dim arrTest(9, 1) As Variant
Dim x
10 For x = 0 To 9
20 arrTest(x, 0) = x
30 arrTest(x, 1) = Now + x
40 Next x
End Sub




Verwende beim Dim eine leere Klammer (Siehe OH Redim unter Bemerkungen)

HTH

Andreas

Ähnliche fragen