Inhaltsverzeichnis
In diesem Tutorial erfahren Sie, wie Sie die Länge (Größe) eines Arrays in VBA ermitteln.
Array-Länge abrufen
Um die Länge eines Arrays zu ermitteln, müssen Sie die Start- und Endpositionen des Arrays kennen. Sie können dies mit den UBound- und LBound-Funktionen von VBA tun.
LBound- und UBound-Funktionen
Dieses Verfahren zeigt, wie Sie die UBound- und LBound-Funktionen in einem eindimensionalen Array verwenden:
| 123456 | Unter UBoundLBound()Dim exArr(1 bis 4) als StringMsgBox UBound(exArr)MsgBox LBound(exArr)End Sub |
Wenn Sie die beiden subtrahieren, erhalten Sie die Array-Länge (UBound - LBound +1).
Holen Sie sich die Array-Länge-Funktion
Diese Funktion berechnet die Größe (Länge) eines eindimensionalen Arrays:
| 1234567 | Öffentliche Funktion GetArrLength(a As Variant) As LongWenn IstLeer(a) DannGetArrLength = 0AndersGetArrLength = UBound(a) - LBound(a) + 1Ende WennEndfunktion |
2D-Array-Größe abrufen
Diese Funktion berechnet die Anzahl der Positionen in einem zweidimensionalen Array:
| 12345678910111213141516171819 | UntertestArrySize()Dim arr2D(1 bis 4, 1 bis 4) so langMsgBox GetArrSize_2D(arr2D)End SubÖffentliche Funktion GetArrSize_2D(a As Variant) As LongDim x so lang, y so langWenn IstLeer(a) DannGetArrSize_2D = 0Andersx = UBound(a, 1) - LBound(a, 1) + 1y = UBound(a, 2) - LBound(a, 2) + 1GetArrSize_2D = x * yEnde WennEndfunktion |
