Anzahl der Dimensionen eines Arrays

Sprache / Programm: Access ab Version 97 · Excel ab Version 97 · VBA ab Office 97

Beschreibung

In VBA können Arrays zwar angelegt werden, aber VBA hat keine Funktion, um die Anzahl der Dimensionen eines Arrays zu bestimmen. Dieses Programm liefert die Anzahl der Dimensionen eines beliebigen Arrays.

VBA-Quelltext

' Findet die Anzahl der Matrixdimensionen eines Arrays heraus
Private Function AnzahlDimensionen(Matrix) As Byte
Dim DimNr As Byte
On Error GoTo Ende
For DimNr = 1 To 64
AnzahlDimensionen = LBound(Matrix, DimNr)
Next DimNr
Ende:
AnzahlDimensionen = DimNr - 1
End Function

Argumente der Funktion/Prozedur

A: Array, dessen Dimensionen zu bestimmen sind.

Rückgabewert

Rückgabewert ist die Anzahl der Dimensionen.

Anwendungsbeispiel(e)...

Sub Teste_AnzahlDimensionen()

Dim A(6, 5), B(2, 2, 3), C(5)

Debug.Print AnzahlDimensionen(A)

Debug.Print AnzahlDimensionen(B)

Debug.Print AnzahlDimensionen(C)

End Sub

Das Programmbeispiel gibt in das Direktfenster drei Zeilen mit den Werten 2, 3, 1 aus.