2-dim Feld erweitern .... nur mit Transponieren?
15.09.2005 13:58:34
Philipp
ich kann mir zwar nicht vorstellen, dass mein Problem noch nie beantwortet wurde, konnte aber leider nichts Entsprechendes finden. Sorry daher, falls ich das zum x-ten Mal anspreche.
Ich habe folgendes Problem:
Ich möchte ein 2-dimensionales Feld, das bereits dimensioniert und mit Werten gefüllt wurde in der ersten Dimension erweitern. Also z.B. sowas:
Sub testdim()
Dim testfeld() As String
ReDim Preserve testfeld(1, 1)
testfeld(0, 0) = "nullnull"
testfeld(0, 1) = "nulleins"
testfeld(1, 0) = "einsnull"
testfeld(1, 1) = "einseins"
ReDim Preserve testfeld(2, 1) <--- hier gibts den Fehler
testfeld(2, 0) = "zweinull"
testfeld(2, 1) = "zweieins"
For i = 0 To UBound(testfeld, 1)
For j = 0 To UBound(testfeld, 2)
MsgBox (testfeld(i, j))
Next j
Next i
End Sub
Jetzt bekomme ich jedesmal an der markierten Stelle die Fehlermeldung "Index außerhalb des gültigen Bereichs". Ich habe bereits herausgefunden, dass es wohl funktioniert, wenn man das Feld transponiert.
- Ist das die einzige Möglichkeit?
Falls ja, wie funktioniert das?
Kann/Muss ich das Feld transponieren, dann die 2te Dimension erweitern und wieder zurücktransponieren? Wie sähe ein Methode dazu aus?
Sorry, dass es soviele Fragen sind, aber Transponieren ist völliges Neuland für mich. Ich hoffe ihr könnt mir da helfen.
Vielen Dank schonmal!
Gruß,
Philipp