Hallo liebe Excelfans,
ich habe auch mal wieder eine Frage an Euch und hoffe auf eine Hilfestellung.
Mit dem Makrorekorder habe ich mir das nachstehende Makro aufgezeichnet.
Bei dem Aufzeichnen funktionierte alles, aber beim späteren Ablaufen lief das Programm nur bis zum einsetzen des Filters ohne ihn jedoch auszuführen.
Durch das schrittweise Durchlaufen lassen konnte ich dann feststellen, daß die Bedingung gesetzt war, aber eben nicht ausgeführt wurde.
Das Makro hatte ich an der Stelle
Selection.AutoFilter Field:=3, Criteria1:="<>0,00", Operator:=xlAnd
abgebrochen und mir die Bedingung angesehen und wenn ich dann den OK-Button drücke, dann wird gefiltert - grrrrrr
Irgendwie hat das Makro beim Aufzeichnen nicht die OK-Bestätigung mitgenommen und auch ein wiederholtes Aufzeichnen ergab leider keine anderen Befehlszeilen.
In der Hoffnung das mir jemand helfen kann, danke ich allen denen, die ein Interesse an meinem Problem gezeigt haben und wünsche allen noch einen schönen Tag... Gruß Helmut
Das Makro....
Sheets("unprod.Min.").Select
Range("A1").Select
Columns("G:G").Select
Selection.EntireColumn.Hidden = True
Range("C3:H1653").Select
Selection.AutoFilter
Selection.AutoFilter Field:=3, Criteria1:="<>0,00", Operator:=xlAnd
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Selection.AutoFilter
Columns("F:H").Select
Selection.EntireColumn.Hidden = False