Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1984to1988
1984to1988
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Tabelle als pdf abspeichern mit name aus Zelle

Forumthread: Tabelle als pdf abspeichern mit name aus Zelle

Tabelle als pdf abspeichern mit name aus Zelle
02.08.2024 11:44:51
Thanh
Hallo Zusammen

ich habe folgendes Problem, ich möchte via macro ein Formular abspeichern und in ein PDF umwandel, Die Dateiname nimmt es aus zwei Zellen. Soweit klappt es auch, nur wenn in der eine Zelle ein Sonderzeichen ist das von Windows nicht erlaubt ist als Dateiname dann kann er das Macro nicht ausführen.
Mein Code sieht so aus:
Sub PDF_Speichern_1()
Const DateiPfad = "C:\Rechnungen\"
Dim DateiName As String
DateiName = DateiPfad & Range("W10") & Range("AB18") & ".pdf" ' Kunde + Rechnungsnr
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
DateiName, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False

End Sub

Ist es möglich dass so einzustellen dass wenn ein Sonderzeichen vorhanden ist, dies einfach weggelassen wird beim abspeichern der Datei?

Für eure Hilfe bedanke ich mich recht herzlich.
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabelle als pdf abspeichern mit name aus Zelle
02.08.2024 12:44:37
Thanh
Hallo Jochen

Sorry wenn ich da nachfrage, aber wie bau ich dass in meinem code ein, leider habe ich da zuwenig Erfahrung.
Wäre schön wenn du mir da weiterhelfen könntest.

LG

Thanh
AW: Tabelle als pdf abspeichern mit name aus Zelle
02.08.2024 14:42:45
JoWE
Hallo Nochmal,

so: 


Option Explicit



Sub PDF_Speichern_1()

  Const DateiPfad = "C:\Rechnungen\"      '"C:\temp\"

  Dim DateiName As String

  DateiName = Range("W10") & Range("AB18") & ".pdf" ' Kunde + Rechnungsnr

  DateiName = DateiPfad & CleanFilename(DateiName)

  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

  DateiName, Quality:=xlQualityStandard, IncludeDocProperties:=True, _

  IgnorePrintAreas:=False, OpenAfterPublish:=False

  ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _

  IgnorePrintAreas:=False

End Sub



Public Function CleanFilename(ByVal sFilename As String, _

  Optional ByVal sChar As String = "") As String

  Dim oRegExp As RegExp

  Set oRegExp = New RegExp

  With oRegExp

    .IgnoreCase = True

    .Global = True

    .MultiLine = True

    .Pattern = "[\\/:?%*^"">|]"

    CleanFilename = .Replace(sFilename, sChar)

  End With

  Set oRegExp = Nothing

End Function

Gruß
Jochen
Anzeige
AW: Tabelle als pdf abspeichern mit name aus Zelle
02.08.2024 12:40:57
UweD
Hallo

so? 

Sub PDF_Speichern_1()

    Const DateiPfad = "C:\Rechnungen\"

    Dim DateiName As String, Tw10 As String, Tab18 As String

    Tw10 = Sonderz(Range("TW10"))

    Tab18 = Sonderz(Range("TAB18"))

    

    DateiName = DateiPfad & Tw10 & Tab18 & ".pdf" ' Kunde + Rechnungsnr

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

        DateiName, Quality:=xlQualityStandard, _

        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _

        False

    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _

        IgnorePrintAreas:=False



End Sub



Function Sonderz(strText As String)

    Dim strNa, i As Integer

    strNa = Split("# & "" { } | / \ ~ %  > : ? * ", " ") 'nicht erlaubte Zeichen, getrennt durch Leerzeichen

    

    For i = LBound(strNa) To UBound(strNa)

        strText = Replace(strText, strNa(i), "")

    Next

    Sonderz = strText

End Function


LG UweD
Anzeige
AW: Tabelle als pdf abspeichern mit name aus Zelle
02.08.2024 13:04:42
Thanh
Hallo UweD

Danke für den Code,

Nun kommt immer ein fehler : Laufzeitfehler '-2147024773 (8007007b)': Das Dokumment wurde nicht abgespeichert.

Was Nun?

LG

Thanh
AW: Tabelle als pdf abspeichern mit name aus Zelle
02.08.2024 13:41:29
Thanh
Hallo Zusammen

Ich wollte mich nochmals herzlich bedanken, habe nun herausgefunden wo der fehler lag und jetzt klappt es auch, ich musse nur die Zellennamen korrigieren :-)

Vielen Dank für die schnelle hilfe.

LG und einen sonnigen Tag

Thanh
Anzeige
AW: Tabelle als pdf abspeichern mit name aus Zelle
02.08.2024 15:20:51
UweD
Hi

Habs gerade auch erst gemerkt.

muss ja so heißen: 



    Tw10 = Sonderz(Range("W10"))

    Tab18 = Sonderz(Range("AB18"))


LG UweD

Forumthreads zu verwandten Themen

VAB, Tabellenblatt als PDF mit Bedingungen speichern
Stefan
Einen schönen guten Abend Gemeinde

ich möchte Tabellenblätter als PDF mit VBA speichern.

Ich sehe gerade den Wald vor lauter Bäumen nicht und mache dadurch Fehler.

Es existiert auf meiner Festplatte ein Ordner Archiv "C:\Users\info\Desktop\XXX\Archiv\" mit den "Maschinennu...
25.08.2024 21:46:28
Thread-ID: 1989186
2 Beiträge
VBA PDF & Mail bestimmte Register
Felizia Seekers
Liebe Excel-Profis,
ich hoffe Ihr könnt mir helfen.

Ich muss eine Liste von Anschreiben mit Anlagen erstellen (Datenbank ähnlich) und diese dann auch als PDF erzeugen, speichern und gleich auch versenden.

Die Excel besteht also aus 5 Registerblättern:
1. die Liste (Regist...
12.06.2023 17:04:05
Thread-ID: 1933538
30 Beiträge
über VBA Dateien auf einen SSH Server Laden
Stefan
Guten Abend Gemeinende

Ich habe etwas gesucht aber nicht wirklich etwas passendes gefunden.

Folgende Ausgangssituation:
im Tabellen Blatt "BMB" in der Zeile M9 wird eine Kundennummer/ Maschinennummer eingegeben.
wenn diese im Tabellen Blatt "Kundenliste" existiert, werden...
12.09.2024 21:45:38
Thread-ID: 1990878
1 Beitrag
VBA: Blatt als pdf per Mail. Blatt mit anderen pdfs vereinen
Jörg Bergmann
Hallo! Ich habe mir mit Chatgpt ein Makro erstellen lassen, welches ein Blatt speichert und dann in eine Mail packt. Nun wollte ich, dass der erstellen pdf noch Anhänge als Seiten beigefügt werden und bekomme immer eine Fehlermeldung: "Fehler beim Ausführen des Ghostscript Befehls, Ungültiger Prozed...
23.04.2024 10:20:37
Thread-ID: 1974876
4 Beiträge
Serienbrief erzeugt und gespeichert keine Mail möglich
Holger
Hallo Zusammen, Vorab ich habe sehr bescheidene VBA Kenntnisse, alles was ich da zusammengebaut habe ist aus dem Netz geholt.
Ich habe eine größere Excel Kundendatei erzeugt Es sind 50 Kunden die Arbeitsnachweise bekommen sollen. Ich erzeuge die Berichte per Serienbrief in einem Ordner der nach...
05.02.2024 15:33:04
Thread-ID: 1963555
13 Beiträge
Excel VBA, einen Wert setzten?
Peter

Hallo zusammen,
ich benötige bitte Unterstützung:
Ich habe ein VBA welches auch sauber funktioniert, damit erstelle ich Dienstpläne
Nun soll aber oben in der Liste also Z.B.Zelle B7 die Personalnummer rein und zwar nur einmal? Die Nummer steht immer in der Spalte J. Die soll sich na...
25.02.2019 16:12:37
Thread-ID: 1677722
4 Beiträge
Worksheets als PDFs var. Speicherpfad
Marvin
Hallo zusammen,
ich habe mich hier schon durchgesucht und denke den Code für folgende Thematik ganz gut zusammengebaut. Ich möchte jedes Worksheet der Arbeitsmappe als ein einzelnes PDF speichern. Soweit so gut, das klappt auch, wenn ich für jedes Worksheet separat im VBA einen Code habe und dor...
30.05.2021 18:26:07
Thread-ID: 1833234
4 Beiträge
vba makro
Manfred

Hallo,
ich habe ein Problem mit einer Excel Datei aus der eine PDF_Datei erzeugt werden soll. Bei der PDF Erzeugung bekomme ich nachher 4 pdf-dateien heraus und ich werde während der pdf-erzeugung 4 mal nach dem Dateinamen und dem Dateiort zum speichern gefragt. die excel datei besteht aus...
16.06.2005 18:23:49
Thread-ID: 624973
1 Beitrag
Tabellenblatt pdf speichern
Thomas

Guten Abend,
leider verzweifel ich grade an einer sicherlich einfachen Aufgabe: ich würde gerne per VBA-Button das aktuelle Tabellenblatt in einen Ordner als .pdf speichern. Soweit klappt auch alles, der Dateiname ist auch so wie ich ihn möchte...
Es soll jedoch vorab gefragt werden, ob...
09.10.2019 21:58:12
Thread-ID: 1716975
4 Beiträge
VBA Speicherung XLS*+PDF+PDF in anderen Ordner
Heike

Hallo- Excel VBA Expertenteam-
meinen Code hier konnte ich soweit anpassen, das er
*Die Tabelle1 aus der Mappe in einem Speicherort meiner Wahl als XLSX sowie gleichzeitig mit gleichen Namen, im selben Ordner als PDF abspeichert.
Und nicht nur ein Blatt- sondern alle Blätter in der...
05.12.2016 21:47:59
Thread-ID: 1528732
1 Beitrag
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum