moellfe - 12.03.13 00:05
ja der Fehler tritt in Zeile 190 auf.
[...]
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