If / Else / Enf If
25.05.2017 20:46:01
Tyroler
hätte eine kurze aber dringende Frage bzgl. der If/Else/End If funktion:
Es geht um folgenden Code:
Dim rngBereich As Range
Dim WsS As WorksheetFunction
Set WsS = Application.WorksheetFunction
With WsB
Set rngBereich = WsQ.Range("A:I")
If IsError(WsS.VLookup(WsB.Range("D10").Value, rngBereich, 2, False)) = True Then WsB("E10").Value = "Kein Treffer gefunden"
Else
WsB.Range("E10").Value = WsS.VLookup(WsB.Range("D10").Value, rngBereich, 2, False)
End If
End With
Es kommt immer die Fehlermeldung "Else ohne If"
Ich versteh leider nicht warum, ich komm nicht auf den Fehler.
Vielen Dank schon mal für eure Hilfe
Grüße
Tyroler