Public <\/span>strMonat01 As String<\/span>\r\nPublic <\/span>strMonat02 As String<\/span>\r\nPublic <\/span>strMonat03 As String<\/span>\r\n...\r\nPublic <\/span>strMonat12 As String<\/span><\/pre>\nIn einer Prozedur namens MonateInVariablen <\/b>füllen Sie diese mit den entsprechenden Werten:<\/p>\nPublic Sub <\/span>MonateInVariablen()\r\n strMonat01 = \"Januar\"\r\n strMonat02 = \"Februar\"\r\n strMonat03 = \"März\"\r\n ...\r\n strMonat12 = \"Dezember\"\r\nEnd Sub<\/span><\/pre>\nFühren Sie diese Prozedur aus, indem Sie die Einfügemarke in der Prozedur platzieren und auf F5 <\/b>drücken. Danach können Sie die Werte der einzelnen Variablen etwa im Direktfenster (Strg + G<\/b>) wie folgt abfragen:<\/p>\nDebug.Print<\/span> strMonat03\r\nMärz<\/pre>\nWenn Sie per VBA auf eine der Variablen zugreifen möchten, um den Namen des Monats zu ermitteln, müssen Sie immer den genauen Variablen verwenden. Es gibt keine Möglichkeit, die zwölf Variablen beispielsweise innerhalb einer Schleife schnell auszugeben.<\/p>\n
Dies ist ein tolles Betätigungsfeld für Array. Ein Array, das eine bestimmte Menge Daten gleichen Datentyps aufnehmen soll (dies ist eine Einschränkung, die Sie beachten müssen), deklarieren Sie fast genauso wie eine normale Variable dieses Datentyps. Der einzige Unterschied ist, dass Sie den größten zu erwartenden Wert für den Index hinter dem Variablennamen in Klammern angeben:<\/p>\n
Public <\/span>strMonate(11) As String<\/span><\/pre>\nIm Gegensatz zu den weiter unten besprochenen dynamischen Arrays handelt es sich hierbei um ein statisches Array.<\/p>\n
Sicher werden Sie sich fragen, warum hier die Zahl 11 <\/b>und nicht die der Anzahl der Monate entsprechende Zahl 12 <\/b>angegeben wird. Der Grund ist, dass die Indexwerte standardmäßig immer mit 0 <\/b>beginnen. Das bedeutet, das die Variable strMonate Werte für die Indexwerte 0 bis 11 aufnehmen kann. Der erste Eintrag des Arrays strMonate <\/b>wird also mit dem Indexwert 0<\/b>, der zweite mit 1 <\/b>und so weiter festgelegt:<\/p>\nPublic Sub <\/span>MonateInArray()\r\n strMonate(0) = \"Januar\"\r\n strMonate(1) = \"Februar\"\r\n strMonate(2) = \"März\"\r\n ...\r\n strMonate(11) = \"Dezember\"\r\nEnd Sub<\/span><\/pre>\nDementsprechend liefert etwa die Abfrage des Wertes mit dem Index 3 <\/b>den vierten Eintrag des Arrays, hier April<\/b>:<\/p>\nDebug.Print<\/span> strMonate(3)\r\nApril<\/pre>\nNun scheint es unkomfortabel zu sein, nicht die dem Monat entsprechende Zahl für den Zugriff auf das Array zu verwenden. Dies lässt sich jedoch leicht ändern. Wenn Sie nur einen Wert für die Anzahl der Elemente angeben, geht VBA davon aus, dass der Index 0-basiert verwaltet wird. Sie können den Wertebereich für den Indexbereich jedoch detailliert festlegen. In diesem Fall möchten wir gern die Indexwerte 1 bis 12 verwenden. Dazu deklarieren Sie die Array-Variable wie folgt:<\/p>\n
Public <\/span>strMonate(1 To 12) As String<\/span><\/pre>\nDie Monatsnamen weisen Sie dementsprechend nun mit den Indexwerten 1 bis 12 zu:<\/p>\n
Public Sub <\/span>MonateInArray()\r\n strMonate(1) = \"Januar\"\r\n strMonate(2) = \"Februar\"\r\n strMonate(3) = \"März\"\r\n ...\r\n strMonate(12) = \"Dezember\"\r\nEnd Sub<\/span><\/pre>\nSomit liefert das Array nun auch bei der Ausgabe die gewünschten Werte:<\/p>\n
Debug.Print<\/span> strMonate(3)\r\nMärz<\/pre>\nWas aber geschieht, wenn Sie das Array nullbasiert deklarieren, aber dann nicht die Indexwerte 0 <\/b>bis 11<\/b>, sondern 1 <\/b>bis 12 <\/b>verwenden Dann tritt der Fehler aus Bild 1 auf.<\/p>\n
![\"Versuch,](\"..\/tl_files\/images\/pic_183_001.png\")
<\/a><\/p>\nBild 1: Versuch, ein Array mit einem zu großen Indexwert zu füllen<\/p>\n
Das Array wurde nur für Indexwerte bis maximal 11 <\/b>deklariert, also ist der Indexwert 12 <\/b>nicht zulässig. Das gilt andersherum genauso – wenn Sie also ein Array für die Indexwerte 1 <\/b>bis 12 <\/b>deklarieren und das Element mit dem Indexwert 0<\/b> füllen wollen, lösen Sie ebenfalls einen Fehler aus.<\/p>\nAlle Werte auslesen<\/h2>\n
Kommen wir gleich zu einem wesentlichen Vorteil von Arrays gegenüber einzelnen, durchnummerierten Variablen: Sie können diese mit wenigen Zeilen per Code durchlaufen.<\/p>\n
Wenn Sie wissen, welche für welche Indexwerte Sie die Elementinhalte ausgeben möchten, benötigen Sie nur die folgende Prozedur dazu:<\/p>\n
Public Sub <\/span>MonateDurchlaufen()\r\n Dim <\/span>i As Integer<\/span>\r\n Call<\/span> MonateInArray\r\n For i = 1 To 12\r\n Debug.Print<\/span> strMonate(i)\r\n Next<\/span> i\r\nEnd Sub<\/span><\/pre>\nDie Prozedur deklariert eine Laufvariable namens i <\/b>und füllt das Array strMonate()<\/b> mit der oben erläuterten Prozedur MonateInArray<\/b>. Danach durchläuft es eine Schleife und füllt dabei die Laufvariable i <\/b>nacheinander mit den Werten von 1 <\/b>bis 12<\/b>. Die einzige Anweisung innerhalb der Schleife gibt den jeweiligen Wert des Arrays strMonate()<\/b> für den Index i <\/b>aus.<\/p>\nEindimensionale Arrays mit For Each durchlaufen<\/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