Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1480to1484
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
1480to1484
1480to1484
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ein PDF aus mehreren Exceldateien generieren

Ein PDF aus mehreren Exceldateien generieren
10.03.2016 09:48:28
Frank
Hallo zusammen,
ich habe folgendes Problem:
In einem Dateiordner befinden sich mehrere Exceldateien. Die Dateien haben jeweils ein Tabellenblatt (Sheet).
Ich möchte nun per Makro erreichen, dass all diese Sheets in einer PDF-Datei gebündelt ausgegeben werden.
Ich habe bisher nur ein Makro gefunden, welches die Sheets innerhalb einer Exceldatei in eine PDF bündelt.
Hat jemand dazu eine Idee? Freue mich über jede Anregung (meine VBA-Kenntnisse sind aber eher minimal).
Gruß

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ein PDF aus mehreren Exceldateien generieren
10.03.2016 09:55:25
Beverly
Hi Frank,
öffne alle Arbeitsmappen und kopiere das betreffende Blatt in eine neue Mappe - am Ende erstellst du die PDF-Datei dann aus dieser neuen Mappe.

AW: Ein PDF aus mehreren Exceldateien generieren
10.03.2016 10:16:08
Michael
Hallo Frank!
Beverlys Vorgehensweise als Makro:
Sub PdfSammlung()
Dim SuchDialog As FileDialog
Dim Pfad As String
Dim Datei As String
Dim QuellMappe As Workbook
Dim ZielMappe As Workbook
Application.ScreenUpdating = False
Set ZielMappe = Workbooks.Add
'Auswahl-Dialog für durchsuchtes Verzeichnis
Set SuchDialog = Application.FileDialog(msoFileDialogFolderPicker)
With SuchDialog
.Title = "Bitte Verzeichnis wählen"
.AllowMultiSelect = False
If .Show  -1 Then
MsgBox "Vorgang abgebrochen", vbInformation
Exit Sub
Else: Pfad = .SelectedItems(1) & "\"
End If
End With
'Durchlaufen der .xlsx-Dateien im o.a. Verzeichnis
Datei = Dir(Pfad & "*.xlsx", vbDirectory)
'Abbruch wenn keine .xlsx-Dateien im o.a. Verzeichnis sind
If Len(Datei) = 0 Then
MsgBox "Keine [.xlsx] vorhanden. Abbruch!"
Exit Sub
End If
'Mappen in ausgewählten Verzeichnis nacheinander öffnen
'Jeweils erstes Blatt in neue Mappe kopieren
Do While Len(Datei) > 0
Set QuellMappe = Workbooks.Open(Filename:=Pfad & Datei)
With QuellMappe
.Worksheets(1).Copy _
after:=ZielMappe.Worksheets(ZielMappe.Worksheets.Count)
.Close savechanges:=False
End With
Datei = Dir
Loop
'Neue Mappe als PDF-Speichern und Mappe verwerfen
'Pdf wird angezeigt und als "Export.pdf" im o.a. Pfad gespeichert
With ZielMappe
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Pfad & "Export.pdf", _
ignoreprintareas:=False, openafterpublish:=True
.Close savechanges:=False
End With
'Aufräumen
Set QuellMappe = Nothing
Set ZielMappe = Nothing
Set SuchDialog = Nothing
Application.ScreenUpdating = True
End Sub
LG
Michael

Anzeige
AW: Ein PDF aus mehreren Exceldateien generieren
10.03.2016 10:39:29
Frank
Hallo Karin, hallo Michael,
lieben Dank Euch beiden. Ich probiere das so mal aus und bin recht zuversichtlich das ich das dann dank Eurer Hilfe hinbekomme.
Gruß

Zusatzfrage
10.03.2016 11:04:44
Gerhard
Hallo Michael,
dieses Macro kann auch ich gut gebrauchen!
Ist es möglich dass nach der Ordnerauswahl im Dialog alle darin enthaltenen Excel-Dateien (.xls, .xlsx, .xlsm) angezeigt werden und für die PDF-Datei herangezogen werden?
Das wäre eine weitere Hilfe für meine Anwendung.
Gruß
Gerhard E.

AW: Zusatzfrage
10.03.2016 11:09:51
Beverly
Hi Gerhard,
ändere diese Zeile
Datei = Dir(Pfad & "*.xl*", vbDirectory)

Anzeige
AW: Zusatzfrage
10.03.2016 11:22:33
Michael
Hallo Gerhard!
Ja, ist möglich.
Tausche diese Zeile 
Datei = Dir(Pfad & "*.xlsx", vbDirectory)
mit 
Datei = Dir(Pfad & "*.xls*", vbDirectory)
LG
Michael

AW: Danke für den Stern *
10.03.2016 11:38:02
Gerhard
Danke für den Stern!
Gruß
Gerhard

Sterne gibt's genug ;-), owT
10.03.2016 12:48:33
Michael

303 Forumthreads zu ähnlichen Themen

Excel Tabelle als Leerz. getrennte txt speichern
Eddie

Mahlzeit,
ich will gerne meine Tabelle als Leerzeichen getrennte Datei speichern, nur leider macht das prn-Format nur 240 Zeichen in einer zeile .... gibt es einen anderen Weg, umd das layout zu behalten, und dann als leerzeichen getrennte Datei zu speichern ?
Vielleicht kann man auch b...
01.01.1970 00:00:00
Thread-ID: 1014969
34 Beiträge
Anzeige
Tabelle als PDF speichern
PeTeR

Hallo VBA-Freaks,
ich suche seit Stunden - finde aber nicht den exakt passenden Code, obwohl es zig Einträge zu dem Thema gibt.
Ich will eine Tabelle per VBA in PDF umwandeln u. drucken. Mein Code:
Application.ActivePrinter = "Adobe PDF auf Ne01:"
ActiveWindow.SelectedSheets.Pri...
25.10.2008 23:06:00
Thread-ID: 1019291
5 Beiträge
Tabellenblätter einzeln als Datei speichern
murat

Hallo,
ich habe einen tollen VBA Code hier im Forum gefunden!
Ich möchte die einzeln Tabellenblätter als Datei Speichern. ich habe 20 Tabellenblätter in einer Datei aus der sollen 20 Dateien werden. Dateiname steht immer in Zelle C2 des jeweiligen tabellenblattes.
Der Code unten i...
13.01.2009 11:46:16
Thread-ID: 1039178
3 Beiträge
Anzeige
Tabelle als Text speichern, Dateiname aus Zelle
Jürgen

Hallo Excel-Profis,
ich möchte über ein Makro folgendes ausführen:
- das aktuelle Tabellenblatt soll im Textformat gespeichert werden
- das Dialogfeld "Speichern unter" soll am Bildschirm erscheinen
- der Dateiname soll aus der Zelle I1 in das Dialogfeld übernommen werden
Im...
08.04.2009 13:05:46
Thread-ID: 1067706
2 Beiträge
PDF-File als neues Tabellenblatt
StefanS

Hallo,
meine Vorgesetzten treiben mich noch in den Wahnsinn!!!!
Besteht generell die Möglichkeit per Hyperlink auf eine Pdf-Datei (z.B. in Sheet("Register_1")),
diese als neues Tabellenblatt (z.B. Sheet("Datenblatt")) einzufügen? Habe keine Ahnung, ob so etwas überhaupt mit Excel mö...
18.05.2009 15:42:00
Thread-ID: 1075923
3 Beiträge
Markierter Bereich als Text Datei speichern
Roland

Hallo,
Ich brauche von einem Excelblatt nur einen ausgewählten Bereich an Daten. Diese Daten müssen in einen bestimmten Format als Text Datei bespeichert werden, damit sie ein anderes Programm wieder lesen kann.
Am besten wäre es, wenn ich die Daten einfach markieren könnte und dann übe...
21.08.2009 23:44:54
Thread-ID: 1097867
6 Beiträge
tabelle per makro als pdf drucken ohne abfrage
Jens

hi leute
hab mal ne frage
ist es möglich die speicher abfrage vom pdf drucker zu umgehen?
ich möchte einen festen ordner vorgeben und die datei soll auch bei jedem druck überschrieben werden ohne nachfrage.
vielen dank im voraus
23.11.2009 08:59:36
Thread-ID: 1119332
3 Beiträge
Tabellenblatt als pdf und speichern
Horst

Hallo,
ich möchte über VBA ein Tabellenblatt als pdf speichern.
Momentan kann ich dank dem Makrorecorder ein pdf Dokument mit der BroadGun PDF Machine erstellen,
Acrobat Reader startet und zeigt das Dokument an.
Mein Wunsch wäre jedoch , dass das PDF Dokument auch gleich mit e...
27.11.2009 15:18:04
Thread-ID: 1120555
3 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
33
1
4
2
8
1
2
5
2
2
1
5
5
5
3
3
3
2
1
5
1
5
5
3
7