Excel VBA Blatt als PDF speichern Dateiname?
Moin Leute,
ich habe da ein Programm in Excel erstellt und auch den Code, um das Blatt als .pdf in ein bestimmtes Verzeichnis zu speichern. Problem ist nun, dass ich in dem Code den Dateinamen eingeben muss. Der Speichert das also immer unter dem im Code angegebenen Namen. Ich möchte jetzt, dass der Dateiname so lautet, wie ein bestimmter Zelleninhalt von z.B. J5
Wie kann ich jetzt in meinem Code sagen, dass der Dateiname einem Zelleninhalt entsprechen soll?
Sheets("Sheetname").Range("A1:G95").ExportAsFixedFormat xlTypePDF, Filename:="C:\Users\Computername\Dokumente\Ablage\Angebote\Angebot.pdf"
anstatt des Fettgedruckten soll hier der Zelleninhalt von J5 rein
Danke schonmal
1 Antwort
Probiere es mit:
Sheets("Sheetname").Range("A1:G95").ExportAsFixedFormat xlTypePDF, Filename:="C:\Users\Computername\Dokumente\Ablage\Angebote\"&Worksheets("Sheetname").Cells(5, 10).Value&".pdf"
Ich habe jetzt kein Excel zur Hand um es selbst auszuprobieren, vielleicht mit Leerzeichen vor und nach dem &-Zeichen? Oder Sheets statt Worksheets? Bin schon etwas aus der Übung mit VBA :)
Ja, die fehlenden Leerzeichen sind zumindest bei mir im VBA-Editor erstmal das Problem. SO:
Sheets("Angebot 1 Seitig").Range("A1:G47").ExportAsFixedFormat xlTypePDF, Filename:="C:\Users\XXXXXX\Desktop\Ablage\Angebote 2018\" & Worksheets("Angebot 1 Seitig").Cells(5, 10).Value & ".pdf"
wird die Zeile zumindest akzeptiert. Ob sie FUNKTIONIERT kann ich nicht sagen.
Danke für die schnelle Antwort, das sieht sehr gut aus. Aber geht iwie nicht. Hab ich mit vertipp?
Private Sub CommandButton2_Click()
Sheets("Angebot 1 Seitig").Range("A1:G47").ExportAsFixedFormat xlTypePDF, Filename:="C:\Users\XXXXXX\Desktop\Ablage\Angebote 2018\"&Worksheets("Angebot 1 Seitig").Cells(5, 10).Value&".pdf"
End Sub