Excel Makro setzt Filter aktualisiert allerdings nicht
Excel Marko setzt Filter "Akzeptiert" diese jedoch nciht.
Hallo Liebe Community,
ich habe ein Problem mit einem meiner Excel Makros:
Sub Filter001()
Range("E17").Select
Selection.AutoFilter Field:=5
Range("E26").Select
Selection.AutoFilter Field:=5
Range("E16").Select
Selection.AutoFilter Field:=5, Criteria1:="<>0,0000", Operator:=xlAnd
Range("E26").Select
Selection.AutoFilter Field:=5, Criteria1:="<>0,0000", Operator:=xlAnd
Selection.AutoFilter Field:=5, Criteria1:="<>0,0000", Operator:=xlAnd
Range("E16").Select
Selection.AutoFilter Field:=5, Criteria1:="<>0,0000", Operator:=xlAnd
End Sub
Dieses Makro blendet bei meinen selbst erstellten Listen (inkl. Filter) alle EInträge ein und soll dann alle ausblenden, die als Wert 0,0000 enthalten.
Soweit so gut.
Beim aktivieren des Makros werden die Filter gesetzt, allerdings bleiben alle Werte mit 0,0000 noch stehen. Erst wenn ich per Hand die Filter nochmal bestätige werden die genannten Werte ausgeblendet.
Weiß jmd. was ich bzw. das Makro falsch gemacht hat?
Danke im Voraus
Stefan
Hallo Liebe Community,
ich habe ein Problem mit einem meiner Excel Makros:
Sub Filter001()
Range("E17").Select
Selection.AutoFilter Field:=5
Range("E26").Select
Selection.AutoFilter Field:=5
Range("E16").Select
Selection.AutoFilter Field:=5, Criteria1:="<>0,0000", Operator:=xlAnd
Range("E26").Select
Selection.AutoFilter Field:=5, Criteria1:="<>0,0000", Operator:=xlAnd
Selection.AutoFilter Field:=5, Criteria1:="<>0,0000", Operator:=xlAnd
Range("E16").Select
Selection.AutoFilter Field:=5, Criteria1:="<>0,0000", Operator:=xlAnd
End Sub
Dieses Makro blendet bei meinen selbst erstellten Listen (inkl. Filter) alle EInträge ein und soll dann alle ausblenden, die als Wert 0,0000 enthalten.
Soweit so gut.
Beim aktivieren des Makros werden die Filter gesetzt, allerdings bleiben alle Werte mit 0,0000 noch stehen. Erst wenn ich per Hand die Filter nochmal bestätige werden die genannten Werte ausgeblendet.
Weiß jmd. was ich bzw. das Makro falsch gemacht hat?
Danke im Voraus
Stefan
Kommentieren
Teilen
Auf Facebook teilen
Auf X (Twitter) teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 154414
Url: https://administrator.de/forum/excel-makro-setzt-filter-aktualisiert-allerdings-nicht-154414.html
Ausgedruckt am: 08.06.2025 um 11:06 Uhr
5 Kommentare
Neuester Kommentar
kann es sein, das die Felder als Text erkannt werden und er deshalb die sachen drinnlässt?
Die Felder sind alles Zahlenfelder. Text steht zwar ebenfalls in selbigen Zeilen aber in anderen Spalten
und was ist, wenn du den "Operator:=xlAnd" rausnimmst... oder übershee ich deinen zweiten Filterbegriff?
Nein den übersiehst du nicht. Es gibt keinen. Das ganze wurde mir aber so angezeigt...
Makro mit dem Assistant erstellt und dann das ganze im VB Editor kopiert.
Makro mit dem Assistant erstellt und dann das ganze im VB Editor kopiert.
Hallo Stefan89!
Also, wenn Du in Spalte E z.B den Bereich E16:E26 filtern willst, dann in etwa so
Wobei Spalte E entsprechend Range("E15:E26") Field:=1 ist und die erste Zeile als Überschrift bzw Filteranzeige genutzt wird. D.h. gefiltert wird Range("E16:E26"). Der And-Operator ist überflüssig, da hierzu ein 2. Kriterium (Criteria2:=?) mit angegeben werden müsste.
Gruß Diete
Also, wenn Du in Spalte E z.B den Bereich E16:E26 filtern willst, dann in etwa so
Sub Filter001()
Range("E15:E26").AutoFilter Field:=1, Criteria1:="<>0", VisibleDropDown:=False
End SubGruß Diete
