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
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
Please also mark the comments that contributed to the solution of the article
Content-Key: 154414
Url: https://administrator.de/contentid/154414
Printed on: April 25, 2024 at 01:04 o'clock
5 Comments
Latest comment
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 Sub
Gruß Diete