seichern unter
05.12.2005 11:13:41
gerd
Habe folgenden Code zum "Speichern unter"
Sub Button1_click
Do
fname = Application.GetSaveAsFilename(fileFilter:="Bilddateien (*.gif), *.gif")
Loop Until fname <> False
Dateiname1 = ThisWorkbook.Path & Application.PathSeparator & "diagramm1.gif"
FileCopy Dateiname1, fname
End Sub
Das Problem ist, wenn ich es ausführe und das Fenster "speichern unter" erscheint und ich dann auf "Abbrechen" gehe passiert gar nichts. Weder abbrechen noch speichern. Das Fenster bleibt erhalten, und ich muß über Alt-String-Entf beenden.
Was mache ich falsch?