ich möchte über ein Makro folgendes ausführen:
- das aktuelle Tabellenblatt soll im Textformat gespeichert werden
- das Dialogfeld "Speichern unter" soll am Bildschirm erscheinen
- der Dateiname soll aus der Zelle I1 in das Dialogfeld übernommen werden
Im Archiv habe ich den unten gelisteten Code gefunden und auf *.txt abgeändert.
Sub speichern()
ActiveSheet.Copy
fileSaveName = Application.GetSaveAsFilename(Worksheets("Daten_Kopie").Range("I1"), _
_fileFilter:="Unicodetext (*.txt), *.txt")
If fileSaveName False Then
ActiveWorkbook.SaveAs fileSaveName
End If
End Sub
Das Tabellenblatt wird zwar mit der der Endung ".txt" abgespeichert, es ist aber kein Textformat,
sondern es bleibt das Excelformat erhalten !!?
Wer kann mir hier weiterhelfen. Vielleicht gibt auch einen ganz anderen Lösungsansatz.
Mfg
Jürgen