Arrays und Zeichenketten (Strings)
einheitlich deklarierte Datentypen:
Variant, Long ‚String, Integer,… (Felder können auch Felder/Arrays aufnehmen)
ReDim:
Dim array_test() As Long ReDim array_test (1 To 5) |
'eindimensionale Arrays (Liste):
Dim array_test(0 To 11) As Long 'Array mit 12 Feldern in der ersten Dimension |
'zweidimensionalen Array (Tabelle mit Zeilen und Spalten)
Dim array_test(0 To 3, 0 To 5) As Long 'Array mit 4 Zeilen und 6 Spalten |
Arrays Werte zuweisen:
'1. manuell
Monate(1) = "Januar" Monate(2) = "Februar" Monate(3) = "März" MonateFilms(4) = "April" MsgBox Monate(3) |
'2. über eine Schleife
For i = 1 To 5 Array_eindimensional(i) = i 'oder aus Tabelle: sheets("Tabelle1").cells(1,i) Next i MsgBox Array_eindimensional(3) |
'3. über Split-Funktion, der Index beginnt automatisch bei 0
String_Monate = "Januar,Februar,März,April,Mai" Array_Monate = Split(String_Monate, ",") Laenge_Monate = UBound(Array_Monate) For i = 0 To Laenge_Monate MsgBox Array_Monate(i) Next i |
'4. über das Einlesen einer Tabelle (sehr schnell)
Zeile_arr_ferien = Sheets("Ferien").UsedRange.SpecialCells(xlCellTypeLastCell).Row |