ich möchte gern, dass geprüft wird, ob eine Datei bereits vorhanden ist. Dazu dieser Code:
Sub Pruefen()
ActiveWorkbook.SaveAs Filename:="c:\temp\test.xls"
If Dir("c:\temp\test.xls") = "" Then
MsgBox "Datei fehlt!"
Else
MsgBox "Datei vorhanden !"
End If
End Sub
Es soll allerdings zusätzlich zur Meldung "Datei vorhanden !" die Meldung erscheinen, ob diese überschrieben werden soll (Ja/Nein). Bei "Ja" überschreiben. Bei "Nein" Ende.Eventuell gibt es Hilfestellung. Wäre toll. Danke.