Prüfen ob ein String den Wert Null oder Leer hat

1 1 1 1 1 1 1 1 1 1 Rating 5.00 (1 Vote)

Details: Kategorie: Codeschnipsel Strings; Geschrieben von TommyK; Zugriffe: 6854

Problemstellung:

Für 32Bit und 64Bit Office Versionen

Wie kann ich ermitteln ob ein String Leer ist?

Public Function TestTextNull(varAusdruck As Variant) As Boolean
'*******************************************
'Name:      TestTextNull (Function)
'Purpose:   prüft ob ein Objekt leer ist oder nicht
'Author:    Thomas Keßler
'Date:      Februar 02, 2003, 05:26:47
'Inputs:    beliebig
'Output:    True=wenn Objekt leer,Null oder "" ist, sonst False
'*******************************************
On Error Resume Next
    If IsNull(varAusdruck) Then TestTextNull = True: Exit Function
    If Len(Trim(varAusdruck)) = 0 Then TestTextNull = True: Exit Function
    TestTextNull = False
End Function

Aufruf:

Dim x As Boolean
x = TestTextNull("")

da der String Leer ist würde x = True sein