Office: Suche VBA Hilfe beim Excelarbeitsblatt in PDF Speichern

Hallo zusammen,

ich mächte per Knopfdruck ein Tabellenblatt in PDF abspeichern.

Der Pfad wo die PDFDatei gespeichert werden soll ist vorgegeben und
der Name der Datei soll aus (Angebot) und zwei unterschiedlichen zellen mit Leerzeichen hervorgehen.


zb: Angebot & Leerzeichen & (B8)= 2013-0001 & Leerzeichen & (C14) = Max Mustermann

Ergebnis soll dann sein: Angebot 2013-0001 Max Mustermann.pdf


Ich habe mir einen Ansatz zusammengeschustert, allerdings sollte ich hilfe haben, da die Ausführung noch nicht klappt.


im voraus schon mals besten dank!

Code:
With ThisWorkbook.Worksheets("Angebot")
.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:="\\CAMAHOMESERVER\Public\\Angebote & Rechnungen\Angebot " & .Range("B8").Text & " " & .Range("C14").Text.pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End With



vor und nach dem code wird ein blattschutz aufgehoben bzw wieder gesetzt.

Wie gesagt, würde mich für hilfe bedanken.

LG

 

Hi,

und WAS genau klappt nicht?

Bis später,
Karin

 

Hi,

bei der Ausführung kommt immer debuggen.

in dieser zeile:

Filename:="\\CAMAHOMESERVER\Public\\Angebote & Rechnungen\Angebot " & .Range("B8").Text & " " & .Range("C14").Text.pdf", _

Pfad stimmt. ich vermute das was bei der benennung der neuen datei nicht hin haut?!
Aber ich komme nicht drauf :-(

Wäre nett, wenn du weiter weißt.

Danke!!

 

Hi,

in diesem Teil ist etwas zu viel: .Range("C14").Text.pdf"

Bis später,
Karin

 

danke, jetzt funzt es!


Vielen Dank!!