DisplayAlerts
30.10.2007 07:01:28
volker
ich hab folgenden Code zum speichern.
Beim ersten Pfad kommt tapfer einen Meldung wenn die Datei besteht (das möchte ich)
jedoch bei meinem SaveCopyAs wird einfach überschrieben, ohne Meldung! Die hätt ich gern.
Kann mir jemand helfen? Danke Gruss volker
Hier der Code
Sub Beschlaglistenauslesen()
'SpeichernUnter()
Speicher = ActiveWorkbook.Name
Dim DName, Dateiname, Pfad
Dim DName2, Pfad2
Pfad = "\\Server04\av\SharePoint_Beschlaglisten"
DName = Speicher
Dateiname = Pfad & "\" & DName
ThisWorkbook.SaveAs Filename:=Dateiname
Pfad2 = "\\Server04\av\Zuschnitt Test"
DName = Speicher
Dateiname2 = Pfad2 & "\" & DName
ThisWorkbook.SaveCopyAs Filename:=Dateiname2