| Hallo Peter,
ja der Fehler tritt in Zeile 190 auf.
und hier die Funktion:
Public Function Ungleich(varString1 As Variant, varString2 As Variant) As Boolean
Dim bolVergleich As Boolean
If Len(varString1) = 0 Or IsNull(varString1) Then
bolVergleich = (Len(varString2) = 0 Or IsNull(varString2))
Else
If Len(varString2) = 0 Or IsNull(Len(varString2)) Then
bolVergleich = False
Else
bolVergleich = (varString1 = varString2)
End If
End If
Ungleich = Not bolVergleich
End Function
Danke und Gruß
Ferdinand |