speichern unter beliebigen Namen
20.02.2006 16:16:05
ingo
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
Anzeige