Wenn ich im VBA einen Code schreibe und ich möchte, dass beim speichern der Datei, automatisch der Name der Mappe verwendet wird, wie lautet der Code?
Es sollte eben kein statischer Wert sein, die Mappe wird je nach Produkt öfter umbenannt.
Danke!
P.s: so sieht der aktuelle Code aus, jedoch speichert der die Datei als Fehler. pdf.
Wenn ich den Dateispeicherort auswähle, ist das Feld auch leer und ich müsse jedes mal selbst namen vergeben
Sub PDF_erstellen()
'
' PDF erstellen und Tabelle schließen - Makro
'
'
Dim Pfad As String, Dateiname As String
Dateiname = Range("G6").Value & ".-I.O."
Pfad = Application.GetSaveAsFilename(InitialFileName:=Dateiname, _
FileFilter:="PDF-Datei (*.pdf),*.pdf")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Pfad, Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
ThisWorkbook.Close SaveChanges:=False
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
End Sub