Guten Morgen,
ich habe im Archiv folgenden Code gefunden:
<pre>Sub Pruefen()
Dim strFile As String
strFile = "c:\temp\test.xls"
If Dir(strFile) = "" Then
'MsgBox "Datei fehlt!"
ActiveWorkbook.SaveAs strFile
Else
If MsgBox("Datei vorhanden!" & vbLf & "Überschreiben?", vbYesNo) = vbYes Then
Kill strFile
ActiveWorkbook.SaveAs strFile
End If
End If
End Sub</pre>
Jetzt benötige ich aber für den weiteren Verlauf eure...