exportieren button xlsm
21.10.2022 14:53:00
Johnny
1. Der erste code funktioniert einwandfrei, bricht nur ab wenn die Datei schon vorhanden ist. Kann man das abfangen?
2. Beim zweiten komme ich nicht weiter, ich will dasselbe wie beim ersten nur als .xlsm. Wäre super, wenn ihr mir die Lösung zeigt, danke.
Sub speichern_pdf()
Dim Name As String
Dim FullPath As Variant
Name = ActiveWorkbook.Sheets("makros").Range("A2")
FullPath = Application.GetSaveAsFilename(InitialFileName:=Name)
'Prüfen, ob etwas ausgewählt wurde
If FullPath False Then
ActiveSheet.Range("A1:I94").ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=FullPath, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End If
End Sub
Sub speicherun_xlsm()
Dim Name As String
Dim FullPath As Variant
Name = ActiveWorkbook.Sheets("makros").Range("A3")
FullPath = Application.GetSaveAsFilename(InitialFileName:=Name)
'Prüfen, ob etwas ausgewählt wurde
If FullPath False Then
ActiveSheet.Range("A1:I94").SaveAs FullPath
End If
End Sub
Anzeige