"Speichern unter" ohne Überschreiben
08.07.2015 12:44:14
FK
ich hätte ein kleines Problem mit zwei bereits vorhandenen Makros:
Sub SpeichernUnter()
Filepath = "C:\Dokumente\Archiv\"
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filepath & Range("G24").Value & "_" & Range("G25") & "_" & Range("C21"). _
Value & ".xlsm"
Application.DisplayAlerts = True
End Sub
Sub Dokument_PDFdrucken()
Sheets(Array("Tabelle 1", "Tabelle 2")).Copy
Application.DisplayAlerts = False
With ActiveWorkbook
.ExportAsFixedFormat Type:=xltyppdf, _
filename:="C:\Dokumente\Archiv\" & Range("G24").Value & "_" & Range("G25") & "_" & _
Range("C21").Value & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
.Close Savechanges:=False
End With
Application.DisplayAlerts = True
End Sub
Wenn eine Datei mit dem gleichen Namen bereits vorhanden ist, wird diese direkt überschrieben. Gibt es die Möglichkeit, dass der Dateiname "hochgezählt" wird?
Datei 1: Name (1)
Datei 2: Name (2)
Datei 3: Name (3)
etc.
Vielen Dank schon einmal für die Hilfe!
Gruß FK