Zeilen ausblenden

Private Sub Worksheet_Change(ByVal Target As Range)
Dim z As Range, lz As Long, i As Long, ze As Long
Dim Such As String, l As Long
If Target.Address <> "$C$1" Then Exit Sub
Columns("a:a").Interior.ColorIndex = xlNone ' löscht die farblichen Markierungen
Such = UCase(Target.Value)
l = Len(Such)
If l = 0 Then Exit Sub 'Abbruch bei leerer Zelle
lz = Sheets("Tabelle2").Range("A65536").End(xlUp).Row
For i = 1 To lz
If UCase(Left(Sheets("Tabelle2").Cells(i, 1).Value, l)) = Such Then
Cells(i, 1).Interior.ColorIndex = 4
End If
Next i
End Sub