Tipp 10.8 - Ist Array dimensioniert

Wie überprüfe ich, ob ein Array dimensioniert ist?

Mit dieser Funktion können Sie überprüfen, ob ein Array dimensioniert ist. Kopieren Sie einfach nachfolgenden Quellcode in die Zwischenablage und fügen Sie anschließend den Inhalt der Zwischenablage in ein neues Modul ein. Die Aufrufparameter finden Sie im Quellcode beschrieben.

Beispiel:

Option Explicit
 
Public Function IsValidArray(vArray, _
                Optional Dimension = 0) As Boolean
'// --------------------------------------------------------
'// Funktion:  |Überprüft, ob es sich um ein
'//            |gültiges Array handelt
'// --------------------------------------------------------
'// Parameter: |vArray - zu prüfendes 'Array'
'//            |Dimension - optionale Array-Dimension
'// --------------------------------------------------------
'// Rückgabe:  |True, wenn es sich um ein gültiges
'//            |Array handelt, sonst False
'// --------------------------------------------------------
'// Autor:     | Stefan Kulpa
'//            | EDV Innovation & Consulting - Dormagen
'// --------------------------------------------------------
    On Error Resume Next
    Dim bResult As Boolean
    bResult = VBA.IsArray(vArray)
    If Dimension = 0 Then
        If bResult Then bResult = (UBound(vArray) >= 0)
        IsValidArray = (bResult And (Err.Number = 0))
    Else
        If bResult Then bResult = _
                    (UBound(vArray, Dimension) >= 0)
        IsValidArray = (bResult And (Err.Number = 0))
    End If
    On Error GoTo 0
 
End Function


Zurück Tipp 10.7 - Runden | Inhalt | Tipp 10.9 - Tastenkombinationen sperren Weiter