Office: Probleme bei Suche in Namensbereich mit VBA

Hallo

Ich weiss nicht was ich falsch mache, aber ich kriege immer eine Fehlermeldung dass "Else ohne If" vorhanden sei.
Was mache ich falsch? Ich will überprüfen ob ein Wert in einem Namensbereich ist oder nicht.

Danke
Massimo

Code:

Function Kunden(Kunde As String) As String

Dim istKunde As Boolean


If (WorksheetFunction.CountIf(Range("Kunden_mit_Einzelauftrag"), Kunde) >= 0 Or WorksheetFunction.CountIf(Range("Kunden_mit_Abo"), Kunde) > 0) Then istKunde = True
Else: istKunde = False
End If

   

End Function

 

Hallo!

Eigentlich brauchst du dazu gar kein If...

Code:

istKunde = (WorksheetFunction.CountIf(Range("Kunden_mit_Einzelauftrag"), Kunde) >= 0 Or WorksheetFunction.CountIf(Range("Kunden_mit_Abo"), Kunde) > 0)

Wenn du's dennoch mit If machen willst, dann fehlt dir dazu lediglich ein Zeilenumbruch hinter Then:

Code:

Function Kunden(Kunde As String) As String
Dim istKunde As Boolean
If (WorksheetFunction.CountIf(Range("Kunden_mit_Einzelauftrag"), Kunde) >= 0 Or WorksheetFunction.CountIf(Range("Kunden_mit_Abo"), Kunde) > 0) Then
istKunde = True
Else: istKunde = False
End If
End Function