IsEmptyArray: Unterschied zwischen den Versionen

Aus Thomas Wiki
Zur Navigation springen Zur Suche springen
 
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)
  Dim lb As Long
  On Error Goto 0
 
 
  lb = LBound(arr)
   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