Haben Sie schon mit Arrays gearbeitet?
Normalerweise definiert man ein Array ja z.Bsp. Dim MeinArray(99) As String
Dies würde ein Array für 100 Einträge definieren, die
gleichzeitig als Zeichenketteneinträge definiert wurden.
Möchten Sie einen Wert zuweisen gilt
Meinarray(0) = "Das ist Wert 1"
Meinarray(49) = "Das ist Wert 50"
Genau so einfach auch das Auslesen der Werte
Wert1 = Meinarray(0)
Wert50 = Meinarray(49)
Soviel nur zum Verständnis.
Was aber sind nun zweidimensionalen Arrays?
Dim MeinArray(99,5) As String
Dies erstellt wieder ein Array, daß in der ersten Ebene
für 100 Einträge vorbereitet ist.
Gleichzeitig erhält aber jeder dieser Einträge noch fünf Unterpunkte.
Zum besseren Nachvollziehen verringern wir unser zweidimensionales Array und machen es
visuell sichtbar.
Dim MeinArray(3,3) As String
MeinArray(0,0) |
MeinArray(0,1) |
MeinArray(0,2) |
MeinArray(0,3) |
MeinArray(1,0) |
MeinArray(1,1) |
MeinArray(1,2) |
MeinArray(1,3) |
MeinArray(2,0) |
MeinArray(2,1) |
MeinArray(2,2) |
MeinArray(2,3) |
MeinArray(3,0) |
MeinArray(3,1) |
MeinArray(3,2) |
MeinArray(3,3) |
Um einen Wert zuzuweisen müßte man dann angeben :
Meinarray(0,0) = "Das ist der erste Eintrag im
ersten Wert "
Meinarray(2,1) = "Das ist der zweite Eintrag im dritten Wert "
Und um einen Wert auszulesen,
Wert1_Eintrag1 = Meinarray(0,0)
Wert3_Eintrag2 = Meinarray(2,1)
Vorteilhaft ist dies vor allem durch die Möglichkeit,
zusammengehörende Werte in einem Arraywert abzulegen.
Name = Meinarray(0,0) ; Vorname = Meinarray(0,1) ; Plz = Meinarray(0,2) usw.
Außerdem spart man sich einige Schreibarbeit.
... und so ganz zum Schluß, man kann den Spaß auch noch
ausbauen und drei und mehr dimensionale Arrays erstellen. |