Hallo,
ich habe folgenden Code erstellt um mit eine Klick auf den CommandButton1 die Maske "PDF speichern" zu öffnen. Ich möchte nun aber noch, das der Dateiname aus zwei Zellen (A1 und I7) zusammengesetzt wird und dieser automatisch als
Dateiname in der Maske "PDF speichern" hinterlegt wird. Ich bekomme das einfach nicht hin. Wer könnte mir da helfen ?
Hier der bis jetzt gebastelte Code:
Private Sub CommandButton1_Click()
Dim strTitel As String
Dim strFilter As String
Dim varRetVal As Variant
strTitel = "PDF Speichern"
strFilter = "PDF-Dateien (*.pdf),*.pdf"
ChDir "\"
ChDrive "C:\"
ChDir "C:\"
varRetVal = Application.GetSaveAsFilename(, strFilter, , strTitel)
If varRetVal = False Then Exit Sub
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=varRetVal, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub
|