Mit diesen Variablen können Sie nun verschiedene Dinge im Code anstellen. Dies hat nur zwei Nachteile: Erstens müssen Sie jeden Zugriff auf einen dieser Werte separat durchführen, auch wenn Sie mal eben die Werte aller Variablen ausgeben möchten. Mal eben die Daten aus einer Tabelle in die Variablen schreiben Macht zehn Anweisungen. Die Daten im Debug-Fenster ausgeben Wieder zehn Anweisungen. Und der zweite Nachteil: Wenn ein elfter Wert hinzu kommt, müssen Sie den kompletten Code anpassen.<\/p>\n
Für solche Fälle gibt es Array. Für ein Array benötigen Sie nur ein einzige Variable, die beliebig viele Werte aufnimmt. Sie können gleich bei der Deklaration festlegen, wieviele Werte dies sind oder die Obergrenze später anpassen.<\/p>\n
Schauen wir uns an, wie dies funktioniert. Wenn Sie beispielsweise eine Variable mit vier Werten verwenden möchten, deklarieren Sie diese wie folgt:<\/p>\n
Dim <\/span>strZahlen(3)<\/pre>\nWieso lautet der Wert in Klammern 3<\/b>, wenn wir doch drei Werte benötigen Ganz einfach: Der hier angegebene Wert gibt den Wert des größten Index-Eintrags an. Normalerweise beginnt die Zählung des Index bei Arrays bei 0<\/b>, also können Sie die vier Indexwerte 0<\/b>, 1<\/b>, 2 <\/b>und 3 <\/b>verwenden.<\/p>\n
In der folgenden Prozedur versuchen wir, mehr als diese vier Einträge zu füllen:<\/p>\n
Public Sub <\/span>EinfachesArray()\r\n Dim <\/span>strZahlen(3) As String<\/span>\r\n strZahlen(0) = \"Null\"\r\n strZahlen(1) = \"Eins\"\r\n strZahlen(2) = \"Zwei\"\r\n strZahlen(3) = \"Drei\"\r\n strZahlen(4) = \"Vier\"\r\nEnd Sub<\/span><\/pre>\nDies führt zu dem Fehler aus Bild 1, und zwar in der Zeile, die versucht, einen Wert für den Index 4 <\/b>zu vergeben.<\/p>\n
![\"Fehler](\"..\/tl_files\/images\/pic_99_001.png\")
<\/a><\/p>\nBild 1: Fehler beim Versuch, einen nicht vorhandenen Eintrag im Array zu referenzieren<\/p>\n
Die Tatsache, dass der erste Indexwert 0 <\/b>lautet, ist nicht unumstößlich. Wenn Sie im Kopf des betroffenen VBA-Moduls die folgende Zeile einfügen, beginnt die Zählung bei 1<\/b>:<\/p>\nOption Base 1<\/pre>\nDer Fehler bei der obigen Prozedur tritt nun nicht erst in der vierten, sondern direkt in der ersten Zeile auf: den Index mit dem Wert 0 <\/b>gibt es nämlich nun nicht mehr. Normalerweise benötigen Sie aber keine Index-änderung – es sei denn, Sie möchten Daten zwischen einem Array und einem anderen Objekt hin- und hertransferieren, dessen Index erst bei 1 beginnt. Dann können Sie besser den kleinsten Index mit Option Base <\/b>festlegen als überall 1 abzuziehen oder hinzuzuaddieren, um mit gleichen Indexwerten arbeiten zu können.<\/p>\nIndexbereich<\/h2>\n
Sie können sich auch komplett von den vom System oder von Option Base <\/b>vorgegebenen Index-Grenzen freimachen. Dazu geben Sie einfach eigene Indexgrenzen an – die folgende Routine läuft dann ohne Fehler durch:<\/p>\nPublic Sub <\/span>EinfachesArrayMitBereich()\r\n Dim <\/span>strZahlen(0 To 4) As String<\/span>\r\n strZahlen(0) = \"Null\"\r\n strZahlen(1) = \"Eins\"\r\n strZahlen(2) = \"Zwei\"\r\n strZahlen(3) = \"Drei\"\r\n strZahlen(4) = \"Vier\"\r\nEnd Sub<\/span><\/pre>\nEigentlich ist die Angabe des Indexbereichs ohnehin die sinnvollste Art, ein Array zu deklarieren – vorausgesetzt, Sie kennen die Dimensionen des Arrays überhaupt bereits beim Deklarieren.<\/p>\n
Ein- und mehrdimensionale Array<\/h2>\n
Die bisher vorgestellten Beispiele basierten auf eindimensionalen Array. Ein Array kann aber durchaus mehrere Dimensionen annehmen.<\/p>\n
Wenn Sie beispielsweise ein Array mit zwei mal zwei Elementen deklarieren und mit entsprechenden Werten füllen möchten, verwenden Sie die folgende Routine:<\/p>\n
Public Sub <\/span>ZweiMalZwei()\r\n Dim <\/span>intZahlen(1 To 2, 1 To 2) As Integer<\/span>\r\n intZahlen(1, 1) = 1\r\n intZahlen(1, 2) = 2\r\n intZahlen(2, 1) = 3\r\n intZahlen(2, 2) = 4\r\nEnd Sub<\/span><\/pre>\nArrays durchlaufen<\/h2>\n
Wenn Sie die Indexgrenzen eines Array kennen, können Sie die im Array gespeicherten Werte problemlos mithilfe einer Schleife durchlaufen.<\/p>\n
Dazu verwenden Sie einfach eine For…Next<\/b>-Schleife mit einer Laufvariable, die Sie später als Index für den Zugriff auf die im Array gespeicherten Werte verwenden:<\/p>\nPublic Sub <\/span>EinfachesArrayMitBereich()\r\n Dim <\/span>strZahlen(0 To 4) As String<\/span>\r\n Dim <\/span>i As Integer<\/span>\r\n strZahlen(0) = \"Null\"\r\n ... weitere Zuweisungen\r\n For i = 0 To 4\r\n Debug.Print<\/span> strZahlen(i)\r\n Next<\/span> i\r\nEnd Sub<\/span><\/pre>\nIndexgrenzen ermitteln<\/h2>\n
Auch wenn Sie die Indexgrenzen nicht kennen, können Sie ein Array problemlos durchlaufen. Die Grenzen ermitteln Sie dabei mit den beiden Funktionen UBound <\/b>und LBound<\/b>, denen Sie einfach den Namen der Array-Variablen übergeben:<\/p>\nPublic Sub <\/span>IndexgrenzenErmitteln()\r\n Dim <\/span>strZahlen(3) As String<\/span>\r\n Dim <\/span>i As Integer<\/span>\r\n strZahlen(0) = \"Null\"\r\n ... weitere Zuweisungen\r\n Debug.Print<\/span> \"Untere Grenze: \" & LBound<\/span>(strZahlen)\r\n Debug.Print<\/span> \"Obere Grenze: \" & UBound<\/span>(strZahlen)\r\n For i = LBound<\/span>(strZahlen) To UBound<\/span>(strZahlen)\r\n Debug.Print<\/span> strZahlen(i)\r\n Next<\/span> i\r\nEnd Sub<\/span><\/pre>\nIndexgrenzen zur Laufzeit einstellen<\/h2>\nMöchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 400 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t