Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
16.04.2024 17:05:25
formatierten Text direkt in Zelle einfügen
16.04.2024 16:47:14
Wörter in verschiedenen Zellen suchen und Wert zurückgeben
16.04.2024 16:22:58
Pivot
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1652to1656
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1652to1656
1652to1656
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro für Drucken aus mehreren Tabellenblättern

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

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

Betreff
Datum
Anwender
Anzeige
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
Anzeige
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
Anzeige
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

328 Forumthreads zu ähnlichen Themen

zwei Diagramme auf eine Seite drucken, ohne Tabell
Christian

Hallo Forum,
ich möchte zwei Diagramme auf einer A4 Seite ausdrucken, ohne die Zellen im Hintergrund mitzudrucken.
Dazu wähle ich die beiden Diagramme, klicke auf "Drucken", aber es werden immer die Zellen die neben den Diagrammen vorgucken mit ausgedruckt. Wenn ich nur ein Diagramm wäh...
14.07.2009 09:59:49
Thread-ID: 1088376
5 Beiträge
Anzeige
mehrere Seiten auf ein Blatt drucken
Joachim

Hallo,
ich hab ne Tabelle mit 10 Zeilen und 885 Spalten. Auf dem Plotter ergibt das bei DinA0 quer 26 Seiten.
Frage:
Kann ich die einzelnen Seiten untereinander (blockweise) auf eine oder zwei DinA0-Seiten drucken?
Also auf einem DinA0 Blatt so gedruckt werden:
Seite1
Le...
10.03.2011 13:49:31
Thread-ID: 1205114
2 Beiträge
2 Bereiche auf ein Blatt drucken
Matthias

Hallo Helferinnen u. Helfer,
Prosit,..allen ein frohes, gesundes," 2010 "
So, mein Problem:
Vorgabe Tabellenblättern 1 - 12 ist der Aufbau identisch somit eine gute Grundlage,
aber wenn ich nun in Blatt 1 , mir 2 Bereiche markiere z.B. A10 : AJ24 und A47 : AJ68
dann druc...
02.01.2012 18:23:01
Thread-ID: 1244283
7 Beiträge
Anzeige
2 Druckbereiche auf einer Seite drucken
Armin

Hallo zusammen,
ich möchte gerne die Druckbereiche B1:F16 und B37:F46
auf einer Seite ausdrucken.
Bisher macht Excel immer 2 Seiten daraus.
Kennt jemand eine Lösung dafür?
Besten Dank für eure Hilfe
Armin
15.05.2014 12:54:03
Thread-ID: 1361745
4 Beiträge
Mehrere Diagramme auf ein Blatt mit For- Schleife
Nemyk

Hallo Zusammen,
seit vielen Tagen setze ich vor dem Rechner und versuche herauszufinden, was ich fasch gemacht habe bzw. wo der Fehler im unterstehenden Code ist.
In den Spalten B bis O habe ich die Monaten. Jeder einzelner Monat ist dreimal vorhanden (d. h. in der Spalte B = Jan15, Sp...
29.09.2014 19:08:01
Thread-ID: 1383996
11 Beiträge
Menüs ändern bei Aufrufen eines Blattes
Mike S.

Hallo,
gibt es in Excel die Möglichkeit, bei Aufrufen eines Arbeitsblattes im Excel-Menü automatisch Änderungen vorzunehmen?Der Hintergrund ist folgender: Ich möchte in einem Arbeitsblatt per Makro eine bestimmte Ansicht wieder herstellen lassen, falls diese verändert wurde (Das Arbeitsblatt...
01.08.2002 10:51:33
Thread-ID: 143477
9 Beiträge
Makro zum Drucken mehrerer Tabellenblätter
Martin

Hallo zusammen,
ich benötige ein Makro zum Drucken mehrerer Tabellenblätter. Der Name der Tabellenblätter steht in einem Übersichtsblatt in der Range B4:B70, wobei nicht alle Zeilen gefüllt sind. Des Weiteren muss es ein Error Handling geben, falls es kein Tabellenblatt mit einem der Namen...
23.05.2015 11:30:37
Thread-ID: 1427446
5 Beiträge
Makro zum Drucken mehrerer Tabellenblätter
Martin

Hallo zusammen,
ich benötige ein Makro zum Drucken mehrerer Tabellenblätter. Der Name der Tabellenblätter steht in einem Übersichtsblatt in der Range B4:B70, wobei nicht alle Zeilen gefüllt sind. Des Weiteren muss es ein Error Handling geben, falls es kein Tabellenblatt mit einem der Namen...
23.05.2015 14:10:46
Thread-ID: 1427459
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
3
1
6
3
3
10
8
4
1
3
1
2
2
3
8
4
2
3
1
1
1
2
2
8