VBA - Blatt drucken & Blatt als PDF speichern in einem Marko

[SteBen]

Guten Morgen,

ich brauche mal wieder Eure Hilfe.

Habe folgendes Makro erstellt:

Sub druck2()

Range("A1:G40").Select
Selection.PrintOut Copies:=1

ThisWorkbook.Sheets("BILLING SHEET").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
  "hier steht mein Speicherpfad" & Sheets("BILLING SHEET").Range("D4").Text & ".pdf", Quality:=xlQualityStandard, _
  IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

End Sub

Aber aus irgend einem Grund kann ich die beiden Makros, die einzeln super funktionieren, nicht zusammenführen. Wenn ich das Makro wie oben genannt ausführen lasse, übernimmt er nicht den defnierten Dateinamen, sondern will immer, dass man ihn manuell eingibt... -.-

Wie löse ich das Problem?

Danke Euch
Viele Grüße
SteBen

[Mase]

Moin SteBen,

a) gibt es eine Fehlermeldung?
b) Zeichenketten zuvor in einer Stringvariablen gesetzt und dann probiert?

edit:

Code:

Sub druck2()
    Dim s As String
        Range("A1:G40").Select
        Selection.PrintOut Copies:=1
            s = "C:\" & Range("d4").Text & ".pdf"
   
        ThisWorkbook.Sheets("BILLING SHEET").ExportAsFixedFormat Type:=xlTypePDF, Filename:=s, Quality:=xlQualityStandard, _
          IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

und achte darauf, dass der Code sich auch in ThisWorkbook befindet. (Stichwort: Personal.XLSB)

[SteBen]

Hi Marco,

klappt - Danke :)