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
Public Function AnzArrayDim(Feld) As Long
AnzArrayDim = -1
If Not IsArray(Feld) Then Exit Function

On Error GoTo AusstiegLaufzeitFehler
Do
AnzArrayDim = AnzArrayDim + 1
Loop While UBound(Feld, AnzArrayDim + 1) >= 0
AusstiegLaufzeitFehler:
End Function

Argumente der Funktion/Prozedur

Feld: Array, dessen Dimensionen zu bestimmen sind.

Rückgabewert

Der Rückgabewert bedeutet:

Rückgabewert -1: Die übergebene Variable ist kein Array

Rückgabewert 0: Das Array wurde ohne Dimension angelegt. Es kann noch keine Daten enthalten.

Rückgabewert > 0: Anzahl der Dimensionen des Arrays

Anwendungsbeispiel(e)...

Sub BeispielDim()

Dim A(3, 5, 7, 1) As Long, B() As Object, C, D(0)

Debug.Print "A = "; AnzArrayDim(A) ' -> 4

Debug.Print "B = "; AnzArrayDim(B) ' -> 0

Debug.Print "C = "; AnzArrayDim(C) ' -> -1

Debug.Print "D = "; AnzArrayDim(D) ' -> 1

End Sub

Das Programmbeispiel gibt in das Direktfenster vier Zeilen mit den Werten 4, 0, -1, 1 aus.