xls abspeichern von doppelten Dokumenten
14.03.2023 13:54:38
doppelten
derzeit habe ich einen Code der Super Funktioniert aber doppelte Dokumente "Killt".
Ich möchte hier aber jetzt wenn ein Name doppelt vorkommt eine Zahl hinten dran, die Automatisch erweitert wird.
Hat jemand da eventuell gleich einen Ansatz?
schonmal Vielen Dank und Viele Grüße
Martin
Sub Erledigt()
Application.DisplayAlerts = False
Dim Dateiname As String
Dateiname = "Deviceänderung_" & Sheets("Deviceänderung").Cells(5, 15).Value
Worksheets("Deviceänderung").Activate
Range("A11").Value = Environ("username") & " - " & Date & " - " & Time
ActiveWorkbook.SaveAs Filename:="\\xxxxxxxxxxx\02_Erledigt\" & _
Dateiname & ".xlsm" _
, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
If Dir("\\xxxxxxx\01_Devices\" & Dateiname & ".xlsm") > "" _
And Dir("\\xxxxx\02_Erledigt\" & Dateiname & ".xlsm") > "" Then
Kill "\\xxxxxxx\01_Devices\" & Dateiname & ".xlsm"
End If
If Dir("\\xxxxxxx03_HOLD\" & Dateiname & "-Hold" & ".xlsm") > "" _
And Dir("\xxxxx\02_Erledigt\" & Dateiname & ".xlsm") > "" Then
Kill "\\xxxxxxDeviceantrag\03_HOLD\" & Dateiname & "-Hold" & ".xlsm"
End If
Call EmailSenden_Erstellt