mit nachfolgendem Makro drucke ich mir die gefilterten Tabellenblätter aus.
------------------------------------------------------
Sub FilternNachKW()
Dim varStartKW, varEndeKW, varFilter As Variant
varStartKW = InputBox("Start KW") 'z.B. 36
varEndeKW = InputBox("Ende KW") 'z.B. 39
varFilter = InputBox("Filter Code 2") 'z.B. s
For varStartKW = varStartKW To varEndeKW
Range("L2") = varFilter
Range("F2:J2") = varStartKW
Range("A4:L4").Select
Selection.AutoFilter
Selection.AutoFilter field:=12, Criteria1:="1"
Selection.AutoFilter field:=11, Criteria1:=">0"
ActiveWindow.SelectedSheets.PrintOut
Selection.AutoFilter
Next
End Sub
--------------------------------------------------------
Das heißt, dass für jede KW eine Seite ausgedruckt wird, egal ob leer oder nicht.
Was muß ich ändern, um nur die Seiten zu drucken, die auch Datensätze enthalten?
Ich hoffe auf eure Hilfe.
Und tschüß
andreas