Arrays in Variant-Variablen speichern
Veröffentlicht am 30.12.2003
Variablen des Typs Variant können alle beliebigen Standarddatentypen ersetzen.
Seit Access 7.0 ist es sogar möglich, ein Array innerhalb einer Variant-Variablen zu speichern.
Um mehrere einzelne Ausdrücke einer Variant-Variablen in Form eines Arrays zuzuweisen, verwenden Sie einfach die Array-Funktion.
Der Array-Funktion können beliebig viele Parameter unterschiedlichen Datentyps übergeben werden. Das Ergebnis ist ein sogenanntes Variant-Array, das einer Variant-Variablen zugewiesen werden kann.
Das folgende Beispiel definiert ein solches Variant-Array mit insgesamt 5 Elementen:
Sub VariantTest()
Dim VarArray As Variant
Dim Element As Variant
VarArray = Array(1, "Text", #1/30/01#, 1.6, 1000000)
For Each Element In VarArray
Debug.Print Element
Next Element
End Sub
Die einzelnen Elemente werden mittels einer For Each-Schleife im Testfenster ausgegeben. Als Alternativ kann auch eine herkömmliche For-Next-Schleife zum Einsatz kommen:
Sub VariantTest2()
Dim VarArray As Variant
Dim i As Integer
VarArray = Array(1, "Text", #1/30/01#, 1.6, 1000000)
For i = LBound(VarArray) To UBound(VarArray)
Debug.Print VarArray(i)
Next i
End Sub
Der große Vorteil von Variant-Arrays gegenüber normalen Arrays besteht darin, dass Sie Elemente mit unterschiedlichen Datentyypen aufnehmen können. Außerdem ist keine Pflege der Array-Grenzen beim Hinzufügen oder Löschen von Elementen erforderlich.