Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect Password:="passw"
Dim rngTreffer As Range
Dim strKey As String
Dim strCol As Integer
On Error GoTo Fehler
If InStr(Target.Address, ":") Then Exit Sub
If Target.Column <> 2 Then Exit Sub
strKey = Target.Value
strCol = Target.Column
Range("B18:BB1000").Sort key1:=Range("B18:BB1000"), order1:=xlAscending, Header:=xlYes
ActiveSheet.Protect Password:="passw"
Set rngTreffer = Range("A:BB").Find(what:=strKey, Lookat:=xlWhole)
If Not rngTreffer Is Nothing Then rngTreffer.Select
Exit Sub
Fehler: MsgBox "Taret Fehler aufgetreten"
End Sub