Makro Druck
23.11.2003 18:39:28
Sascha
hab mit hilfe dieses Forums eine Makro zusammengestellt welches nur die Zeilen druckt, wenn in Spalte N kein Eintrag ist.
Das funktioniert einwandfrei, nur wenn ich jetzt vorab noch einen Autofilter setze, kann es vorkommen, das in Spalte N immer was steht.
In diesem Fall druckt excel 1600 Zeilen. Das soll natürlich nicht sein. Wie bringe ich das meinem Makro jetzt bei?
Sub Druck_a()
Application.ScreenUpdating = False
Sheets("AES Daten").Select
Range("A20:O65536").Select
Selection.Sort Key1:=Range("N20"), Order1:=xlAscending, Key2:=Range("B20" _
), Order2:=xlAscending, Key3:=Range("E20"), Order3:=xlAscending, Header _
:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Selection.AutoFilter Field:=2, Criteria1:="0411"
von = Range("N65536").End(xlUp).Row
bis = Range("A65536").End(xlUp).Row
If von < bis Then Range(von + 1 & ":" & bis).Select
Selection.Sort Key1:=Range("B20"), Order1:=xlAscending, Key2:=Range("E20") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom
Selection.PrintOut Copies:=1, Collate:=True
ActiveSheet.ShowAllData
Range("A20:O65536").Select
Selection.Sort Key1:=Range("N20"), Order1:=xlAscending, Key2:=Range("B20" _
), Order2:=xlAscending, Key3:=Range("E20"), Order3:=xlAscending, Header _
:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A1").Select
Sheets("Ende").Select
Application.ScreenUpdating = True
End Sub
Danke
Sascha