speichern des workbook unter neuem namen per makro
09.07.2003 15:47:02
david
ich hab aus der recherche das folgende makro:
Sub BlaetterSpeichern()
Dim sFile As String
sFile = InputBox("Dateiname:")
If sFile = "" Then Exit Sub
If Dir(sFile) <> "" Then
Beep
If MsgBox("Existiert schon, überschreiben?", _
vbCritical + vbYesNo) = vbNo Then Exit Sub
End If
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs sFile
Application.DisplayAlerts = True
End Sub
Das offene workbook wird unter einem neuen Namen (einzugeben per InputBox) im selben directory gespeichert, das unter dem alten namen geschlossen, ohne das Änderungen gespeichert werden.... so weit so gut.
Gibt man in die InputBox jedoch einen Namen ein, unter dem es schon ein workbook gibt, so wird dieses überschrieben (eigentlich sollte das ja verhindert werden, dazu ja die msgbox...)
Kann mir da jmd weiterhelfen?? Probiere und probiere, es will aber nicht gelingen,
besten Dank und schönen Tag
David