Rückkehr in VBA-Code-Beispiele

VBA Array Länge / Größe

In diesem Tutorial lernen Sie, die Länge (Größe) eines Arrays in VBA zu ermitteln.

Array-Länge ermitteln

Die Länge eines Arrays zu ermitteln, erfordert die Kenntnis über die Start- und Endposition eines Arrays. Dies erreichen Sie mit den VBA-Funktionen UBound und LBound.

LBound und UBound Funktionen

Diese Prozedur demonstriert die Anwendung der UBound und LBound Funktionen auf ein eindimensionales Array:

Sub UBoundLBound()
    Dim exArr(1 To 4) As String
    
    MsgBox UBound(exArr)
    MsgBox LBound(exArr)
End Sub

Die Subtraktion beider Werte voneinander ergibt die Array-Länge (UBound – LBound +1).

Funktion zur Array-Längen-Ermittlung

Diese Funktion berechnet die Größe (Länge) eines eindimensionalen Arrays:

Public Function GetArrLength(a As Variant) As Long
   If IsEmpty(a) Then
      GetArrLength = 0
   Else
      GetArrLength = UBound(a) - LBound(a) + 1
   End If
End Function

2D-Array-Größe ermitteln

Diese Funktion berechnet die Anzahl der Positionen eines zweidimensionalen Arrays:

Sub TestArrayGroesse()
    Dim arr2D(1 To 4, 1 To 4) As Long
    
    MsgBox ArrGroesseErmitteln_2D(arr2D)

End Sub


Public Function ArrGroesseErmitteln_2D(a As Variant) As Long
   Dim x As Long, y As Long
   
   If IsEmpty(a) Then
      ArrGroesseErmitteln_2D = 0
   Else
      x = UBound(a, 1) - LBound(a, 1) + 1
      y = UBound(a, 2) - LBound(a, 2) + 1
      ArrGroesseErmitteln_2D = x * y
   End If
End Function

VBA Coding Made Easy

Stop searching for VBA code online. Learn more about AutoMacro - A VBA Code Builder that allows beginners to code procedures from scratch with minimal coding knowledge and with many time-saving features for all users! vba save as


Learn More!