Diese Webseite nutzt Cookies

Diese Webseite nutzt Cookies zur Verbesserung des Erlebnisses unserer Besucher. Indem Sie weiterhin auf dieser Webseite navigieren, erklären Sie sich mit unserer Verwendung von Cookies einverstanden.

Einige dieser Cookies sind technisch zwingend notwendig, um gewissen Funktionen der Webseite zu gewährleisten.

Darüber hinaus verwenden wir einige Cookies, die dazu dienen, Informationen über das Benutzerverhalten auf dieser Webseite zu gewinnen und unsere Webseite auf Basis dieser Informationen stetig zu verbessern.

MENU-1 ###MENU-2###MENU-2 ###MENU-3###MENU-3 ###MENU-4###MENU-4 ###MENU-5###MENU-5 ###MENU-6###MENU-6 ###MENU-7###MENU-7 ###MENU-8###MENU-8
###CONTENT-MENU### ###SUBTITEL###

Arrays (deutsch: Felder)

Arrays und Zeichenketten (Strings)

 

einheitlich deklarierte Datentypen:

Variant, Long ‚String, Integer,… (Felder können auch Felder/Arrays aufnehmen)

ReDim:

  • ändert die Größe einer oder mehrerer Dimensionen eines Arrays
  • dimensioniert Feld neu und löscht alte
  • der Typ eines Feldes kann nicht durch ReDim geändert werden!
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
Spalte_arr_ferien = Sheets("Ferien").UsedRange.SpecialCells(xlCellTypeLastCell).Column

Sheets("Ferien").Activate
arr_ferien = Sheets("Ferien").Range(Cells(1, 1), Cells(Zeile_arr_ferien, Spalte_arr_ferien))

'Testweise Ausgabe des Arrays in der Tabelle "test"
Sheets("test").Activate
'Ausgabe des Array in einer Tabelle
Sheets("test").Range(Cells(1, 1), Cells(Zeile_arr_ferien, Spalte_arr_ferien)) = arr_ferien

'Größenermittlung der Dimensionen eines Arrays
'LBound(array_test,1) : Untergrenze der ersten Dimension.
'UBound(array_test,1) : Obergrenze der ersten Dimension.
'LBound(array_test,2) : Untergrenze der zweiten Dimension.
'UBound(array_test,2) : Obergrenze der zweiten Dimension.

'L = Lower = Untergrenze
'U = Upper = Obergrenze

 

 

###ELEMENT_TEST### ###LAYOUT###
###RECHTS### ###ANMELDUNG###
###POWERED###