26.02.2021, 18:10
Hallo
Falls es interessiert: Ich habe zwei Makros: Eines, um den Filter einzuschalten, und ein zweites, um den Filter wieder auszuschalten. Das zweite wäre nach meiner Ueberlegung nötig, wenn Du an den Tabellen Aenderungen vornimmst.
Zitat:Ich musste nur den Autofilter in den Makros verwenden und jetzt passt alles.Wie heissen denn jetzt die Makros?
Falls es interessiert: Ich habe zwei Makros: Eines, um den Filter einzuschalten, und ein zweites, um den Filter wieder auszuschalten. Das zweite wäre nach meiner Ueberlegung nötig, wenn Du an den Tabellen Aenderungen vornimmst.
Code:
Sub FilterEin()
lzr = Cells(Rows.Count, 11).End(xlUp).Row
ActiveSheet.Range(Cells(2, 11), Cells(lzr, 12)).AutoFilter Field:=1, Criteria1:=">=0", _
Operator:=xlAnd
End Sub
Sub FilterAus()
lzr = Cells(Rows.Count, 11).End(xlUp).Row
ActiveSheet.Range(Cells(2, 11), Cells(lzr, 12)).AutoFilter Field:=1
End Sub