HERBERS Excel-Forum - die Beispiele

Thema: Daten sortieren und bedingt drucken

Home

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.

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

Beiträge aus dem Excel-Forum zu den Themen Druck und Serie

PDF Drucken VBA Generierung von Tabs per VBA + Sammeldruck
Akt. Datum und Uhrzeit am gedruckten Dokument UserForm im Querformat drucken
zoom auf Druckbereichsbreite anpassen Bilder in Registerblatt drucken
PDF eventuell Ausdruck sperren? Druckprobleme....
SeriesCollection(1).Values Fehler 1004 Serienmail
Tabellenblätter Ausdruck gruppieren Drucken mit VBA
Bestimmte Zeilen/ Spalten nicht mitdrucken Diagramme DIN A3 drucken
Automatischen Andruck auf Standartdrucker erzeugen ActiveChart.SeriesCollection
Druckerauswahl Blätter autom. ein-/ausblenden + drucken
Kann bestimmten Drucker nicht auswählen Drucker nicht vorhanden, dann Meldung
Arbeitsmappendruck Abfrage ob Druckbereich zu groß für Seitenbreite
Druck PDF-Datei Serien Zählen, kurz auswerten
Fehler 1004 beim Druck einer PDF - mit Screenshot Druckeinstellungen für mehrere Drucke übernehmen
Grafik drucken Mit Change() o. Calculate() Filtern und Drucken
Druckparameter an neue Datei Button zum Ausdrucken
Druckparameter an Datei mitgeben Makro für ereignisabh. Druck verschiedener Seiten
Excel Seriendruck im PDF-Format Per VBA drucken - Adobe PDF on ne0x
Drucken, nur wenn Bedingung erfüllt ist! variablen Druckbereich definieren
Mit Makro Virtuelle Drucker (PDF) ansteuern Standarddrucker festsetzen??
Wann zuletzt ausgedruckt Excel druckt keine Bilder!
sql Ausdruck like Excel Druckmakro - VBA Experten gesucht
CommandButton nicht mit ausdrucken SeriesCollection.Name macht Probleme
Druckvorschau Druckerdialog
mehrere Sheets farbig ausdrucken, weshalb ... Chart SeriesCollection per VBA dynamisch ändern
Laufzeitfehler Nr. 9 bei Druckerauswahl Tabelle drucken