Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Daten sortieren und bedingt drucken

Gruppe

Serie

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.

Lösung
Geben Sie den Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.


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