Dateinamen aus 2 Zellen zusammensetzen
11.12.2016 10:29:28
Andi
Mein funktionierender Code für das Speichern funktioniert ganz gut- gleichzeitig Excel und PDF der Tabelle1 aus der Arbeitsmappe.
Der Speicherort ist bereits voreingestellt.
Kann man auch den Dateinamen- "bei Speichern unter" von einem anderen offenen Tabellenblatt übernehmen? Es sind im Blatt "Bearbeiten" die Zellen " Z14S23 und Z15S23 "
Also ein Doppelname zusammengefügt.
Geht das?
Wo müsste ich was im Code verändern?
Option Explicit
Public Sub Speichern_in_PDF_XLSX()
Dim varPath As Variant
On Error GoTo Fin
varPath = Application.GetSaveAsFilename( _
InitialFileName:="D:\Eigene Datein\Neuer Ordner\\", _
FileFilter:="Excel(*.xlsx), *.xlsx", _
Title:="Save as XLSX and PDF")
If Not varPath = False Then
If Dir(varPath) "" Then
Select Case MsgBox("Datei überschreiben?", 4 Or 32 Or 0, "Datei")
Case vbYes
With Application
.ScreenUpdating = False
.DisplayAlerts = False
End With
Sheets("Tabelle1").Copy
With ActiveWorkbook
.SaveAs varPath, 51
.ExportAsFixedFormat Type:=xlTypePDF, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=True
.Close False
End With
End Select
Else
Sheets("Tabelle1").Copy
With ActiveWorkbook
.SaveAs varPath, 51
.ExportAsFixedFormat Type:=xlTypePDF, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=True
.Close False
End With
End If
Else
MsgBox "Abgebrochen..."
End If
Fin:
With Application
.ScreenUpdating = True
.DisplayAlerts = True
End With
If Err.Number 0 Then MsgBox "Fehler: " & _
Err.Number & " " & Err.Description
End Sub
Grüße Andi
Anzeige