Tabelle als PDF - Dateiname aus Zelleninhalt zusammensetzen

[Daniel Albert]

Hallo,

Ich möchte über ein Makro den Speichernamen und den Dateityp festlegen.

dazu habe ich folgendes Makro gefunden.

Code:

Sub dateiname()
Dim name As String
name = Range("a1") & "_" & Range("b1") & "_" & _
   Format(Range("b3").Value, "dd_mm_yyyy") & ".xls"
MsgBox name
End Sub

Über MsgBox sehe ich die Zusammenstellung des Dateinamen. Aber ich möchte das sich "Speichern unter" öffnet der Dateiname und der dateityp schon vorgeschlagen wird. Der Pfad soll noch nicht festgelegt sein. Ist das möglich ?


Gruß Daniel

[Daniel Albert]

Hallo,

habe den Code aus mehreren Vorschlägen im Internet zusammengesetzt und funkioniert. In Zelle I3 habe ich mehrere Zellen zu einer zusammengesetzt.

Code:

Sub vb_SaveAs()
   Dim myPath, myFileName As String
   myPath = ThisWorkbook.Path
   myFile = ThisWorkbook.Sheets("Ausdruck").Range("I3") & ".xls"
      ThisWorkbook.Sheets("Ausdruck").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
       myPath & "\" & myFile, Quality:= _
       xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
       OpenAfterPublish:=True
   MsgBox "Die Kündigung wurde unter folgenden Pfad abgelegt " & myPath
End Sub