Autofilter
PeterS
habe nachfolgenden Code (passt genau für meine Anwendung) hier aus dem Forum und möchte nun aber die ersten 2 Zeilen für Überschriften frei haben. Habe versucht den Code anzupassen, sodass die Auswahl in Zeile 3 steht. Irgendwo mache aber etwas falsch. Kann mir bitte jemand sagen was geändert werden muss ?
Danke. Gruß Peter
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
With Target(1, 1)
If .Row = 1 Then
Set rng = Range("A2:H" & Application.Max(2, Cells(Rows.Count, 1).End(xlUp).Row))
If .Value = "" Then
rng.AutoFilter Field:=.Column, VisibleDropDown:=False
Else
rng.AutoFilter Field:=.Column, Criteria1:="=" & .Value & "*", _
Operator:=xlAnd, VisibleDropDown:=False
End If
End If
End With
Set rng = Nothing
End Sub
Anzeige