Private Sub CommandButton1_Click()
Dateiname1 = ThisWorkbook.Path & Application.PathSeparator & "diagramm1.gif"
fName = Application.GetSaveAsFilename(fileFilter:="Bilddateien (*.gif), *.gif")
FileCopy Dateiname1, fName
End Sub
Jetzt wird aber in diesem Fenster "Speichern unter" schon unter "DateiName" der Name dieser Datei angezeigt. Kann ich es machen, das dort nichts angezeigt wird?
Gruß Ingo