Autofilter
30.01.2005 15:05:51
Joachim
ich habe im Büro noch Excel 97, jetzt bekomme ich jeden Tag eine große Datei dort kann ich natürlich mit Autofilter die einzelnen für meinen Bereich gültigen Datensätze per filter auswählen und drucken, aber das geht doch sicher auch einfache. Nur ich stehe im moment auf dem Schlauch.
ich habe das im Moment so gelöst, ist halt sehr langsam.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Worksheets("EUROPLUS (2)").Range("A2").Value = "" Then
'Abbrechen
Cancel = True
End If
End Sub
und das ist das eigentliche Makro
Sub Drucken_zb05()
'
'
Sheets("EUROPLUS (2)").Select
Range("A2:I40").Select
Selection.ClearContents
Sheets("EUROPLUS").Select
Rows("1:1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="5"
Selection.AutoFilter Field:=2, Criteria1:="1"
Range("A2:I335").Select
Range("A335").Activate
Selection.Copy
Sheets("EUROPLUS (2)").Select
Range("A2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.PageSetup.PrintArea = "$A$1:$L$20"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("EUROPLUS (2)").Select
Range("A2:I40").Select
Selection.ClearContents
Sheets("EUROPLUS").Select
Selection.AutoFilter Field:=2, Criteria1:="2"
Range("A2:I335").Select
Range("A335").Activate
Selection.Copy
Sheets("EUROPLUS (2)").Select
Range("A2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.PageSetup.PrintArea = "$A$1:$L$20"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("EUROPLUS").Select
End Sub
Criteria1:="2" geht bis 90
geht das nicht einfacher? ich habe schon an eine Schleife gedacht der erste Wert ist ja klar doch der zweite ist halt immer unterschiedlich heute 1,3,5,6,7 usw. und morgen eventuel 1,2,3,10,12,20.
Gruß
Joachim