Thema Datum  Von Nutzer Rating
Antwort
Rot Datei als pdf speichern mit Überprüfung des Dateinamens
 13.07.2020 09:52:33 Krzysztof
Solved
13.07.2020 18:25:02 ralf_b
NotSolved
13.07.2020 22:22:57 Krzysztof
NotSolved

Ansicht des Beitrags:
Von:
Krzysztof		 Datum:
13.07.2020 09:52:33		 Views:
1199		 Rating:
     
Antwort:
 Nein
Thema:
Datei als pdf speichern mit Überprüfung des Dateinamens

Hallo liebe VBA-Gemeinde,

ich habe folgendes Problem: Ich möchte Excel-Dateien in einem festgelegten Ort als pdf speichern.  Name soll aus dem Inhalt eine Zelle (R5) und dem aktuellen Datum bestehen. Soweit habe ich es geschafft und es scheint auch zu funktionieren. Leider wird aber eine existierende Datei (mit dem gleichen Namen) gnadenlos ersetzt. Ich möchte, dass der Ordner vor dem Speichern überprüft wird. Wenn eine Datei schon existiert, soll diese nicht überschrieben, sondern mit  Endung (1), (2)....... erweitert werden. Meine VBA-Kentnisse sind leider sehr bescheiden.  Ich hoffe auf eure Unterstützung.

Hier mein Code:

Sub pdf()
ChDir "C:\Users\FAMILY\Documents\"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    Range("R5").Value & " " & Format(Date, "_DD_MM_YYYY") & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=True, OpenAfterPublish:=True
        End If
End Sub

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Datei als pdf speichern mit Überprüfung des Dateinamens
 13.07.2020 09:52:33 Krzysztof
Solved
13.07.2020 18:25:02 ralf_b
NotSolved
13.07.2020 22:22:57 Krzysztof
NotSolved