ich habe folgendes Makro mit dem Recorder aufgezeichnet. Funktioniert auch einwandfrei.
Jetzt mein kleines Problem: Bei z.B. Criteria1:="H20" gibt es nicht immer Werte in der Tabelle. Jedoch druckt das Makro die Spaltenüberschriften aus, das bedeutet ich habe ein Blatt verschwendet.
Kann mir jemand helfen, das das Kriterium zb "H20" nur ausgedruckt werden soll, wenn Werte in der Tabelle stehen.
ActiveSheet.Range("$A$17:$AC$1191").AutoFilter Field:=1, Criteria1:="33"
ActiveSheet.Range("$A$17:$AC$1191").AutoFilter Field:=9, Criteria1:="H20"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
ActiveSheet.Range("$A$17:$AC$1191").AutoFilter Field:=9, Criteria1:="H21"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
ActiveSheet.Range("$A$17:$AC$1191").AutoFilter Field:=9, Criteria1:="M20"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
ActiveSheet.Range("$A$17:$AC$1191").AutoFilter Field:=9, Criteria1:="M21"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
ActiveSheet.Range("$A$17:$AC$1191").AutoFilter Field:=9, Criteria1:="ZD"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False