Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.04.2024 12:08:58
Mittelwertwenn - ich kapiere es nicht :-(
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1920to1924
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
1920to1924
1920to1924
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mehrere Tabellenblätter als einzelne PDF

Mehrere Tabellenblätter als einzelne PDF
22.02.2023 13:59:12
Bogdan
hallo,
ich habe 40 Tabellenblätter, welche ich automatisch exportieren möchte.
Auf diversen Foren habe ich gelesen, dass es mit Makro funktioniert. Leider funktioniert das noch nicht ganz ...
Dim Ws As Worksheet
For Each Ws In Worksheets
Ws.ExportAsFixedFormat xlTypePDF, _
"H:\Pfad\Ordner1" & "\" & Ws.Name
Next
End Sub
Vielleicht hat jemand eine Lösung?

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mehrere Tabellenblätter als einzelne PDF
22.02.2023 14:38:42
UweD
Hallo
Schreibfehler beim Verzeichnis?
Bei mir klappt das.
Sub GDGDG()
    Dim Ws As Worksheet, strPfad As String
    strPfad = "E:\Excel\temp\test\"
    If Dir(strPfad, vbDirectory) = "" Then
        MsgBox "Das Verzeichnis existiert nicht"
    Else
        For Each Ws In Worksheets
            Ws.ExportAsFixedFormat xlTypePDF, _
                strPfad & Ws.Name
        Next
    End If
End Sub
LG UweD
AW: Mehrere Tabellenblätter als einzelne PDF
22.02.2023 14:48:26
Bogdan
Bei mir kommt auch jetzt Laufzeitfehler '5' mit der option den Fehler zu "debuggen".
Dann wird dieser Teil der Formel gelb markiert:
Ws.ExportAsFixedFormat xlTypePDF, _
strPfad & Ws.Name
Anzeige
AW: Mehrere Tabellenblätter als einzelne PDF
22.02.2023 15:00:21
Daniel
Hi
bei mir kommt der Laufzeitfehler 5, wenn ich versuche, ein Tabellenblatt zu exportieren, das ausgeblendet ist.
wenn du also solche ausgeblendeten Blätter hast und diese auch nicht als PDF exportiert werden sollen, dann kannst du diese so überspringen:
For Each Ws In Worksheets
    If Ws.Visible = xlSheetVisible Then Ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strpfad & Ws.Name
Next Ws

AW: Mehrere Tabellenblätter als einzelne PDF
22.02.2023 15:09:17
Bogdan
Das war tatsächlich der Fehler. Vielen Dank!
AW: Mehrere Tabellenblätter als einzelne PDF
22.02.2023 14:39:28
Nepumuk
Hallo Bogdan,
teste mal:
Public Sub Test()
    Dim Ws As Worksheet
    For Each Ws In Worksheets
        Call Ws.Select(Replace:=False)
    Next
    ActiveSheet.ExportAsFixedFormat xlTypePDF, "H:\Pfad\Ordner1\Gesamt.pdf"
    Call ActiveSheet.Select(Replace:=True)
End Sub
Gruß
Nepumuk
Anzeige
AW: Mehrere Tabellenblätter als einzelne PDF
22.02.2023 14:54:24
Bogdan
Kommt leider Laufzeutfehler 1004
wenn ich auf debuggen klicke wird folgender Bereich markiert:
Call Ws.Select(Replace:=False)
AW: Mehrere Tabellenblätter als einzelne PDF
22.02.2023 14:41:23
Benjamin
Moin Bogdan,
dein Vorgehen ist eigentlich richtig, ich denke du hast nur Syntaxfehler drin. In Zukunft wäre eine Fehlermeldung o.ä. hilfreich.
Probier mal das hier aus, das sollteauf jeden Fall funktionieren:
Dim Ws As Worksheet
For Each Ws In Worksheets
Ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:="H:\Pfad\Ordner1" & "\" & Ws.Name
Next Ws
End Sub
Sonst überprüf nochmal den Dateipfad. Wenn du den ersten angegebenen String durch Thisworkbook.Path ersetzt, wird im aktuellen Ordner gespeichert.
LG
Benjamin
Anzeige
AW: Mehrere Tabellenblätter als einzelne PDF
22.02.2023 14:51:38
Bogdan
Habe deinen Code so reinkopiert mit korrektem Pfad.
Kommt leider Laufzeitfehler '5'
wenn ich auf debuggen klicke, wird der folgende Bereich gelb markiert:
Ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:="H:\Pfad\Ordner1" & "\" & Ws.Name
AW: Mehrere Tabellenblätter als einzelne PDF
22.02.2023 15:00:23
Bogdan
witzigerweise kriege ich die ersten drei Blätter exportiert. Danach kommt der Fehler '5'
AW: Mehrere Tabellenblätter als einzelne PDF
22.02.2023 15:04:59
Daniel
Hi
dann kann das 4. Blatt nicht exportiert werden.
ein möglicher Grund dafür kann sein, dass es ausgeblendet ist.
lass dir mal, wenn der Fehler auftritt, den Namen des verursachenden Blattes anzeigen (mit ?ws.Name im Direktfenster) und vergleiche dieses Blatt mit den anderen drei Blättern die exportiert werden konnten und versuche herauszufinden, was der Unterschied zu diesen Blättern ist.
Gruß Daniel
Anzeige
AW: Mehrere Tabellenblätter als einzelne PDF
22.02.2023 15:09:58
Bogdan
das war der Fehler. Danke!

312 Forumthreads zu ähnlichen Themen

per Makro passwortgeschützes PDF erstellen
Frank

Hallo!
Ich hoffe mal wieder aud fachkundige Hilfe. Bei meinem aktuellen Projekt müssen aus Excel heraus täglich viele passwortgeschützte PDF-Doumente erstellt werden. Das Passwort ist immer gleich. Es geht lediglich darum die Dateien vor unautorisiertem Zugriff zu schützen, falls jemand das...
15.08.2008 09:20:00
Thread-ID: 1002042
3 Beiträge
Anzeige
VBA, PDF drucken und speichern
georg

Hallo liebe Excellenzen,
ich habe mich früher des öfteren im Spotlight Forum herumgetrieben. Leider fehlt mir heute die Zeit mich mehr einzubringen.
Hier bei Herber ist es mein erster Beitrag. Vielen Dank dafür dass es hier eine solche Plattform gibt!
Ich habe einen kleinen Server....
12.05.2009 13:23:15
Thread-ID: 1074578
3 Beiträge
VBA Makro erweitern um Funktion "als pdf drucken"
Sandra

Hallo zusammen,
ich hab da mal wieder eine Hürde die ich nicht alleine überwinden kann.
Ich habe ein Makro "bekommen", welches super funktioniert. Es bewirkt, dass die farbigen Markierungen erhalten bleiben, aber nicht auf dem Ausdruck erscheinen.
Nun soll aber der Druck nicht über...
04.08.2009 16:53:32
Thread-ID: 1093571
14 Beiträge
Anzeige
Makro Datei als Kommentar in PDF implementieren
Alex

Hallo zusammen,
ich habe ein ziemlich umfrangreiches excel tool, dieses simuliert einige technische zusammenhänge, erstellt daraus resultierend, angebote, füllt automatisch Förderanträge aus uvm....
Am Ende erhält jeder Kunde eine Vielzahl von PDF Dateien.
Für diese ganzen Dateien h...
01.10.2009 08:01:37
Thread-ID: 1106504
2 Beiträge
Blatt per VBA mit FreePDF als PDF-Datei sichern
Mike

Hallo,
wer kann mir einen Weg oder Beispiel zeigen, wie ich per VBA mit FreePDF ein Worksheet als PDF-Datei speichern kann?
Vielen Dank, Mike.
02.10.2009 00:05:48
Thread-ID: 1106727
5 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
Blatt als PDF speichern (Excel 2007)
Gerhard

Hallo,
in einem gelegentlich langsamen Intranet muss ein Excel-Blatt von verschiedenen Netzwerk-PC aus mit diesem Code in einen vorhandenen oder neu erzeugten Ordner gespeichert werden.
Immer wieder kommt es vor, dass nicht in den mit If Dir(spath, 16) = "" Then MkDir (spath) erzeug...
10.03.2010 12:31:39
Thread-ID: 1144818
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
2
4
2
13
1
1
4
2
2
2
3
1
1
5
5
2
2
5
1
2
2
1
2
15
12