Gruppe
Druck
Problem
Die Werte aus A:B aus den Datenblättern sollen sortiert, in dasDruckblatt kopiert und dort gedruckt werden.Wenn der Schlüssel in Zelle E2 den Wert 0 hat, wird nicht gedruckt.
StandardModule: Modul1
Sub Drucken()
Dim iWks As Integer
Application.ScreenUpdating = False
For iWks = 1 To 1
With Worksheets(CStr(iWks))
If .Range("E2") <> 0 Then
Worksheets("Print").Cells.Clear
.Columns("A:B").NumberFormat = "dd.mm.yyyy"
.Range("A2").AutoFilter Field:=1, _
Criteria1:="=" & Format(CDate(.Range("E1").Value), "dd.mm.yyyy")
.Range(.Cells(1, 1), .Cells(.Cells(1, 2).End(xlDown).Row, 2)).Copy _
Worksheets("Print").Range("A2")
With Worksheets("Print")
.Visible = True
.PrintPreview
.Visible = xlVeryHidden
End With
.AutoFilterMode = False
End If
End With
Next iWks
Application.ScreenUpdating = True
End Sub
Sub BlaetterEinAus()
Worksheets("1").Visible = xlSheetVeryHidden
Worksheets("Print").Visible = xlSheetVeryHidden
'Worksheets("1").Visible = xlSheetVisible
'Worksheets("Print").Visible = xlSheetVisible
End Sub