Makro als pdf abspeichern

[DeLaGhetto]

Hallo zusammen,

ich habe momentan ein Makro, dass mir ein pdf mit einem bestimmten Namen (er nimmt den Namen aus einer Zelle) und dem aktuellem Datum abspeichert.
Allerdings speichert Excel das pdf automatisch auf dem Desktop ab.

Wie kriege ich Excel dazu, den Pfad ebenfalls aus einer Zelle (H28) zu nehmen und dann unter diesen Pfad das .pdf abzuspeichern?

Mein aktueller Code sieht wie folgt aus:

Code:

Sub aktivesBlattToPdf()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "\" & Range("B11").Value & Format(Date, " YYYY.MM.DD") & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End Sub

Danke für eure Hilfe

[schauan]

Hallöchen,

ich vermute, dass Deine Datei mit dem Makro auch auf dem Desktop liegt. Mit dem vorhandenen Code müsstest Du die Datei mit dem Makro dorthin legen, wo Du die PDF speichern willst. Ansonsten müsstest Du den Code ändern.

[DeLaGhetto]

Hallo,

danke schon mal für die Antwort.
Könntest du mir auch bei der Änderung des Codes helfen?
Ich weiß leider nicht wie ich das machen soll...

[schauan]

Hallöchen,

im Code steht

ThisWorkbook.Path

Das musst Du durch Deinen Wunschpfad ersetzen, z.B. "C:\Temp"

[DeLaGhetto]

Ja aber, wenn ich (wie oben geschrieben) den Pfad in eine Zelle schreiben will, und das Makro den Pfad aus der Zelle nehmen soll?

[Kuwer]

Ja aber, wenn ich (wie oben geschrieben) den Pfad in eine Zelle schreiben will, und das Makro den Pfad aus der Zelle nehmen soll?

Ich kann es fast nicht glauben, dass die Frage ernst gemeint ist. Du hast doch schon einen Teil mit Zellbezug drin, so dass Du doch siehst, wie das geht.

Range("H28").Value & "\" & Range("B11").Value & Format(Date, " YYYY.MM.DD") & ".pdf"

Gruß Uwe

[DeLaGhetto]

Ok, alles perfekt geklappt.
Danke schön