Office: (Office 2013) Excel mit Makro als Pdf speichern

Hallo

Ich möchte gerne eine Excel Datei via Makro automatisch als PDF speichern.
Der Dateiname der PDF sollte:
Den Zeileninhalt F5 haben + das aktuelle Datum

Ist das möglich in dieser Excel Datei eine Schaltfläche (Button) einzufügen auf den ich dann drücke und in den Speicherort der Datei automatisch mit dieser Dateibezeichnung eine PDF gespeichert wird?

Das wäre super
Bin da leider total überfragt wie das funktioniert.

Bitte um hilfe

Danke

:)

 

Hi,

Code:

 

Dankeschön

wenn ich den pfad von oben rauskopiere und einfüge kommt die Meldung:

Laufzeitfehler '76':
Pfad nicht gefunden

muss ich in dieser zeile noch was ändern:
ChDir "c:\Temp\" 'anpassen 'oder thisworkbook.path

?

 

Hallo,

Du sollst statt C:\Temp\ den Pfad eintragen, in dem du speichern willst.

VG

 

danke

ich will immer in den pfad speichern wo die Excel gespeichert

 

Dann so:
Code:

 

Vielen Dank
es funktioniert schon ansatzweise
jedoch speichert mir das makro immer aufs Desktop

hab den text hier

Sub aktivesBlattToPdf()
ChDir ThisWorkbook.Path
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Range("F5").Value & Format(Date, "YYYYMMDD") & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End Sub

 

Hi,

Code:

ansatzweise ist gut...
dann wird dieser Code wohl auch auf dem Desktop speichern. *Smilie

 

Jetzt Klappts Vielen Vielen Dank

 

Hallo,

der VBA Code ist schon fast was ich suche. Ich müsste jedoch anstelle des Datums einen Text einfügen "gültig ab 02.05.2018". Habe es selber versucht bin aber leider kläglich gescheitert.

Vielleicht kann mir jemand dabei helfen?

Gruß,
Nika

 

Du schreibst statt der Zeile

Code:

diese Zeile

Code:

Damit hat dann aber wirklich jede Datei die Endung "gültig ab 02.05.2018.pdf". Ist das wirklich in deinem Sinn?

 

Hallo. Ich hab nach der hier geschilderten Anweisung soweit alles eingerichtet. Und habe dieses Makron in die Excel-Schnellzugriffleiste eingefügt (damit ich Es auf unterschiedlichen Excel-Dateien anwenden kann). Mein Problem ist, dass Es mir die „unterschiedlichen“ Excel-Dateien (als PDF) in den Ort ablegt wo die Excel-Datei liegt in der ich dieses Makron erstellt habe.
Ich möchte gerne, dass Es mir die PDF-Datei in den Ort ablegt wo die aktuell bearbeitete Excel-Datei liegt.
Kann mir bitte hier jemand damit weiterhelfen?
Danke im Voraus!

Hier ist das Programm:
Sub SPEICHERNndPDF()

ChDir ThisWorkbook.Path
ActiveWorkbook.Save
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "" & Range("C1").Value & "_" & Range("C2").Value & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub

Hier hab ich noch ein Speichervorgang eingefügt “ActiveWorkbook.Save”

 

Hi,

ersetze ThisWorkbook durch activeworkbook

lg

 

hallo Zusammen, eigentlich habt ihr hier schon fast das was ich benötige.

Ich habe eine Excel Mappe erstellt:
1. Registerkarte: Daten für Dropdownlisten etc.
2. Registerkarte: Eingabeformular
3. Registerkarte: Ausgabemaske

Mein Problem ist das ich nicht weiß, wie ich NUR die Ausgabemaske als PDF abspeichern kann, vorallem so, das die darin stehenden Daten nicht verloren gehen. Die Daten werden alle vom Eingabeformular abgerufen :-)

Ich will jetzt noch einen Knopf im Eingabeformular anlegen, der einmal die Ausgabemaske ausdruckt (das habe ich schon gefunden):

PHP:

         Sub Drucken()

Sheets("Tabelle2").PrintOut

End Sub


 

1. Aktiviere den Makrorekorder
2. Speichere das gewünschte Tabellenblatt als .pdf ab
3. Beende den Makrorekorder

Den Teil verstehe ich nicht. Wieso sollten durch ausdrucken/speichern Daten verloren gehen?