---

Hallo Forum,

wie kann ich abfragen, ob ein mit Dim X() as Variant dimensioniertes Datenfeld Daten enthält.
Mit UBound kommt immer eine Fehlermeldung.
IsEmpty passt nicht.
Wie geht das, ohne eine Fehlerabfangroutine zu bemühen?

------------------
Grüße aus München
Christian

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ungetestet - Aus dem Bauch heraus würde ich auf IsNothing testen, denn um eine Variable zu löschen setzt man ja auch
set xx = Nothing

Grüße
Klaus  

[Edit] Gerade getestet weil es ein blödes Gefühl war. Klappt so nicht da es sich um ein Datenarray handelt (davon abgesehen dass es heißen müßte if XX is Nothing then ... )
Wenn Du weißt dass es sich um ein Datenarray handelt würde ich dennoch mit UBound arbeiten und den Fehler (9)
Probiere mal:

Code:

---

  On Error Resume Next
  Debug.Print LBound(X), UBound(X)
  If Err <> 0 Then
    Debug.Print "Feld nicht dimensioniert"
    Debug.Print "Fehler " & Err.Number & vbCrLf & Err.Description
    Err.Clear
  End If
  On Error GoTo 0

---

Könntest natürlich vorher testen ob es wirklich ein Variantarray ist:

Code:

---

Debug.Print VarType(X)
' ergibt 8204 aus vbVariant(12) + vbArray(8192)

---

[Diese Nachricht wurde von KlaK am 08. Jul. 2021 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP