ich möchte per Makro ein Excelfile abspeichern. dazu hole ich mir Daten aus einer Zelle heraus (A1):
Dateiname = Sheets("Daten").Range("A1")
Neuer_Dateiname = Application.GetSaveAsFilename(InitialFileName:=Dateiname, fileFilter:="Excel-Arbeitsmappe, *.xls")
If Neuer_Dateiname = False Then Exit Sub
ActiveWorkbook.SaveAs Filename:=Neuer_Dateiname
das funktioniert soweit. Das Problem ist nur, sobald sich im Namen der Zelle A1 mit ein Sonderzeichen befindet, kann die Datei nachher unter diesem Namen nicht abgespeichert werden. Excel mag bei dateinamen wohl keine Sonderzeichen.
Wie kann ich den vorher, vor dem Speichern, alle Sonderzeichen entfernen ?
Danke mal
Joachim