IsEmptyArray: Unterschied zwischen den Versionen
Zur Navigation springen
Zur Suche springen
Thomas (Diskussion | Beiträge) |
Thomas (Diskussion | Beiträge) |
||
| Zeile 4: | Zeile 4: | ||
<pre> | <pre> | ||
Public Function IsEmptyArray(arr As Variant) As Boolean | Public Function IsEmptyArray(arr As Variant) As Boolean | ||
Dim lb As Long | |||
On Error GoTo handler | On Error GoTo handler | ||
lb = LBound(arr) | |||
On Error Goto 0 | |||
IsEmptyArray = False | IsEmptyArray = False | ||
Exit Function | Exit Function | ||
Aktuelle Version vom 19. Dezember 2018, 11:37 Uhr
Leider gibt es keine eingebaute Funktion in Visual Basic for Applications um zu prüfen, ob ein Array im VBA leer ist. Folgende Funktion hilft hier:
Funktion IsArrayEmpty
Public Function IsEmptyArray(arr As Variant) As Boolean
Dim lb As Long
On Error GoTo handler
lb = LBound(arr)
On Error Goto 0
IsEmptyArray = False
Exit Function
handler:
IsEmptyArray = True
End Function