Office: Fehler End If ohne End Block

Hallo,
ich habe ein Problem mit einem Code es kommt eine Fehlermeldung:
End If ohne End Block

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("Suchkriterium")) Is Nothing Then Call Suche
End If

If Intersect(Target, Range("G4:G150")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub 'Bearbeiten mehrerer Zeilen wird abgefangen
If Target = "" Then
Target.Offset(0, 1).ClearContents
Else
Target.Offset(0, 1) = CDate(Format(Now, "dd.mm.yyyy hh:mm"))
End If

End Sub

Was mache ich falsch?
Wer kann mir helfen?

Danke

 

Hallo,

nach dem 1. Intersect gehört die nächste Zeile mit "End If" entfernt. Dadurch kommt der VBA-Compiler durcheinander und muss schließlich einen Syntaxfehler (End If ohne End Block) melden.

 

Und bitte immer .CountLarge statt .Count verwenden.
Schließlich ist .Count "nur" long, was seit 2007 überschritten werden kann und somit einen LZF 9 "Überlauf" generieren kann.

Gruß Ralf