wie müsste ich folgenden Befehl ändern, damit der Filter immer z.B. von A5 bis Ende rowscount gesetzt wird? Im Moment wird der Filter trotzdem in Zeile 1 gesetzt.
.Range("A5").CurrentRegion.AutoFilter Field:=1, Criteria1:="ABC"
Grüße, Constantin
Sub aatest()
Dim wks As Worksheet, Zeile As Long, Spalte As Long
Set wks = ActiveSheet
With wks
Spalte = .Cells(5, 1).End(xlToRight).Column: If Spalte = .Columns.Count Then Spalte = 1
' Spalte = .Cells(5, Columns.Count).End(xlToLeft).Column
Zeile = .Cells(5, 1).End(xlDown).Row: If Zeile = .Rows.Count Then Zeile = 6
' Zeile = .Cells(.Rows.Count, 1).End(xlUp).Row: If Zeile = 5 Then Zeile = 6
.Range(.Cells(5, 1), .Cells(Zeile, Spalte)).AutoFilter Field:=1, Criteria1:="ABC"
End With
End Sub