Fehler beim speichern
09.08.2002 07:32:39
Detlef
mit dem beigefügten Code speichere ich einen Bericht
ab. Funktioniert einwandfrei, nur wenn ich bei Ausführung
des Makros (Dialog speichern) auf abbrechen klicke, wird dann
die Datei mit den Namen Falsch.xls abgespeichert. Wie kann ich
dies verhindern ?
Vielen Dank für Eure Hilfe.
Sub Speichernbericht()
Dim ws As Worksheet
Set ws = Worksheets("Bericht")
ws.SaveAs Application.GetSaveAsFilename
("C:\Daten\Erfassung \" & ws.Range("B6") & "." _
& ws.Range("B1") & "." & ws.Range("H1") & ".xls")
End Sub