Office: Zusätzliches Symbol - Speichern als txt

Ich führe eine Liste - einmal im Excel-Format und dann als normale txt-Datei.

Das normale abspeichern geht schnell - einfach auf die Symbolleiste auf das "speichern"-Symbol klicken.
Um es danach als txt-File abzuspeichern, muss ich erst umständlich mit der Maus (oder per Shortcut) auf "Speichern als", dann unten txt-Format auswählen und speichern. Dann wird zweimal nachgefragt, ob ich das wirklich will und beim schliessen von Excel kommt noch eine Abfrage (die ich wohl nicht verhindern kann).

Meine Frage nun: Wie kann ich in die Symbolleiste ein Symbol dazustellen, so dass ich mit einem einfachen Mausklick die Datei als txt-File abspeichern kann?


LG, Stefan.

 

Hallo Stefan,

das könnte über ein Makro zu realisieren sein. Mit Makros hab ich es aber nicht so. Da müsste ich tüfteln. Nur mal so als Anhaltspunkt:

Code:

Sub Makro1()
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Test.txt", FileFormat:= _
        xlText, CreateBackup:=False
End Sub

Das Makro speichert die Excel datei als C:\test.txt

Das Makro lässt sich dann einem Button zuweisen. Das einzige was noch fehlt ist dass Du gefragt wirst wohin gespeichert werden soll. Das hab ich auf die Schnelle nicht hinbekommen. Versuch mal danach zu googeln. Wenn Du nichts findest nochmal melden dann schau ich nochmal rein.

Gruß
Michael

 

Danke, aber ich bin in Sachen Office absoluter 0815-Anwender...
(Das mit dem Makro einbinden bekomm' ich aber schon noch hin.)

 

Danke nochmal. Funktioniert.

Jetzt müsste man nur noch diese blöde Sicherheitsabfrage entfernen können, ob die Datei wirklich überschrieben werden soll.
Oder kann ich das irgendwie in das Makro schreiben, dass die schon bestehende txt-Datei gelöscht wird?
Dann kann das noch vor dem speichern rein und es käme keine Abfrage mehr.

 

So...
Jetzt habe ich das soweit, aber jetzt komme ich echt nicht mehr weiter...
Die erste Spalte im txt-file wird in Anführungszeichen gesetzt. Das will ich aber nicht... Was kann ich da machen?

Meine Lösung bisher:

Sub TXT_Speichern()

Open "j:\Dokumente\Fotografieren\Objektive_ebay\Objektive_ebay_backup.txt" For Output As #1
Close 1
Kill ("j:\Dokumente\Fotografieren\Objektive_ebay\Objektive_ebay_backup.txt")
ActiveWorkbook.SaveAs Filename:="j:\Dokumente\Fotografieren\Objektive_ebay\Objektive_ebay_backup.txt", FileFormat:=xlText, CreateBackup:=False

Open "j:\Dokumente\Fotografieren\Objektive_ebay\Objektive_ebay.txt" For Output As #1
Close 1
Kill ("j:\Dokumente\Fotografieren\Objektive_ebay\Objektive_ebay.txt")
ActiveWorkbook.SaveAs Filename:="j:\Dokumente\Fotografieren\Objektive_ebay\Objektive_ebay.txt", FileFormat:=xlText, CreateBackup:=False
Kill ("j:\Dokumente\Fotografieren\Objektive_ebay\Objektive_ebay_backup.txt")

Open "j:\Dokumente\Fotografieren\Objektive_ebay\Objektive_ebay.xls" For Output As #1
Close 1
Kill ("j:\Dokumente\Fotografieren\Objektive_ebay\Objektive_ebay.xls")
ActiveWorkbook.SaveAs Filename:="j:\Dokumente\Fotografieren\Objektive_ebay\Objektive_ebay.xls", FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False


End Sub