Makro für Drucken aus mehreren Tabellenblättern

Forumthread: Makro für Drucken aus mehreren Tabellenblättern

05.11.2018 18:51:38

Stephan

Hallo, ich bräuchte ein Makro zum Ausdrucken aus mehrerer Tabellenblättern wenn eine Bedingung in Zelle EN545 = JA, der Tabellenbereich EE546 bis EN623 alle Tabellenblätternamen beginnen mit Projektgesamtdaten und der jeweiligen Projektnummer xyz.
Ziel soll es sein wenn in den Tabellenblätern in der Zelle die Bedingung JA ist, drucke den Tabellenbereich aus.
Danke für die Hilfe im voraus

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Makro für Drucken aus mehreren Tabellenblättern

05.11.2018 20:04:27

Werner

Hallo Stephan,
die Beschreibung ist recht mager.

Public Sub Druck()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name Like "Projektgesamtdaten" & "*" Then
If ws.Range("EN545") = "Ja" Then
ws.Range("EE546:EN623").PrintOut
End If
End If
Next ws
End Sub

Gruß Werner

AW: Makro für Drucken aus mehreren Tabellenblättern

06.11.2018 16:48:00

Stephan

Hallo Werner, vielen Dank für Deine schnelle Antwort. Habe das Makro eingebaut und es läuft super.
Jetzt sind aber schon Wünsche von den Kollegen geäußert worden. Kann man diese Ausdruckfunktion auch gesammelt in eine PDF-Datei erstellen. Damit diese per Mail versendet werden kann.
Grüße und Danke Stephan

AW: Makro für Drucken aus mehreren Tabellenblättern

06.11.2018 18:12:50

Werner

Hallo Stephan,
z.B. so:
Du mußt dir in der Excel Datei ein zusätziches Blatt anlegen und diesem den Namen "Dummy" geben.
Den Namen der PDF-Datei mußt du im Makro noch anpassen.
Die PDF-Datei wird ins gleiche Verzeichnis gespeichert, in dem auch deine Excel mit dem Makro ist.

Public Sub PDF_erstellen()
Dim ws As Worksheet, wsZiel As Worksheet
Dim Pfad As String, Dateiname As String
'Zielblatt festlegen
Set wsZiel = ThisWorkbook.Worksheets("Dummy")
'Speicherpfad = Pfad in dem diese Datei liegt
Pfad = ThisWorkbook.Path
'Dateiname der PDF festlegen
Dateiname = "DerNamederPDF_Datei"
For Each ws In ThisWorkbook.Worksheets
If ws.Name Like "Projektgesamtdaten" & "*" Then
If UCase(ws.Range("EN545")) = "JA" Then
ws.Range("EE546:EN623").Copy _
wsZiel.Range("A" & wsZiel.Cells(Rows.Count, 1).End(xlUp).Offset(1).Row)
End If
End If
Next ws
'Zielblatt als PDF exportieren und anzeigen
wsZiel.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Pfad & "/" & Dateiname & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
'Zielblatt leeren
wsZiel.Cells.ClearContents
'Variable aufräumen
Set wsZiel = Nothing
End Sub

Gruß Werner

AW: Makro für Drucken aus mehreren Tabellenblättern

06.11.2018 18:45:49

Stephan

Hallo Werner, vielen Dank für Deine super schnelle Antwort. Baue das Makro morgen gleich ein.
Grüße Stephan

ach ja...

08.11.2018 19:44:07

Werner

Hallo Stephan,
...und vor lauter "einbauen" reicht es dann auch nicht mehr für eine Rückmeldung.
Danke auch.
Gruß Werner

Beliebteste Forumthreads (12 Monate)

Makro für Drucken aus mehreren Tabellenblättern

Forumthread: Makro für Drucken aus mehreren Tabellenblättern

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Makro für Drucken aus mehreren Tabellenblättern

Forumthread: Makro für Drucken aus mehreren Tabellenblättern

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread