Makro um eine xls zu erstellen
27.08.2020 18:15:16
Felix
ich möchte mir folgendes Makro so umbauen, dass die Datei nicht als .pdf gespeichtert wird sondern als .xlsx
Sub SpeichernalsPDF()
Const DateiPfad = "C:\Users\Felix\Desktop\-TEST-\"
Dim DateiName As String
DateiName = DateiPfad & Range("H10") & ("_") & Range(" B12") & ".pdf" ' K+R
ActiveSheet.ExportAsFixedFormat Type:=xlTypexlExcl8, Filename:= _
DateiName, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub
Freue mich auf euere Antworten.
Grüße Felix