Clever-Excel-Forum

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

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)

Hi Marco,

klappt - Danke :)

SteBen

Mase

SteBen