als Säule für Autofilter (VBA) verwenden variable

Question

Ich mag würde eine Variable als eine Säule für Autofilter in vba verwenden, ich glaube, ich bin nicht der sintax richtig hinzubekommen, weil es `s nicht funktioniert:

With ActiveSheet 
.AutoFilterMode = False 
With .Range("A1:" & LastCol + 1 & "1") 
.AutoFilter 
.AutoFilter field:=5, Criteria1:="Approved" 
.AutoFilter field:=6, Criteria1:="Open" 
.AutoFilter field:=LastCol + 1, Criteria1:="1" 
End With 
End With 

Answer 1

Wenn es keine leeren Spalten sind, können Sie die CurrentRegion verwenden stattdessen (ähnlich einem Strg + A in A1)

ActiveSheet.AutoFilterMode = False 
With Cells.CurrentRegion 
    .AutoFilter 5, "Approved" 
    .AutoFilter 6, "Open" 
    .AutoFilter .Columns.Count, "1" 
End With