Home Office-Hilfe.com - Wir lösen Ihr Problem mit Microsoft Excel, Word, Outlook, PowerPoint, Access gratis Forum Impressum

  Zusätzliches Symbol - Speichern als txt
Neues Thema eröffnenNeue Antwort erstellen
Autor Nachricht
GBP
Newbie
Newbie


Anmeldedatum: 14.11.2005
Beiträge: 4

BeitragVerfasst am: 14.11.2005, 18:32 Nach oben

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.
Benutzer-Profile anzeigenPrivate Nachricht senden
Michael
Admin von Office-Hilfe.com
Admin von Office-Hilfe.com


Anmeldedatum: 20.12.2003
Beiträge: 1479
Wohnort: Miltenberg

BeitragVerfasst am: 14.11.2005, 20:28 Nach oben

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

_________________
Image

--> Bitte keine Probleme per PN. Dafür ist das Forum da!!!
--> Vor Änderungen im System und der Registry --> Backup!! Es wird keine Haftung für Schäden übernommen!
Benutzer-Profile anzeigenPrivate Nachricht sendenE-Mail sendenICQ-Nummer
GBP
Newbie
Newbie


Anmeldedatum: 14.11.2005
Beiträge: 4

BeitragVerfasst am: 14.11.2005, 20:35 Nach oben

Danke, aber ich bin in Sachen Office absoluter 0815-Anwender...
(Das mit dem Makro einbinden bekomm' ich aber schon noch hin.)
Benutzer-Profile anzeigenPrivate Nachricht senden
GBP
Newbie
Newbie


Anmeldedatum: 14.11.2005
Beiträge: 4

BeitragVerfasst am: 14.11.2005, 22:28 Nach oben

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.
Benutzer-Profile anzeigenPrivate Nachricht senden
GBP
Newbie
Newbie


Anmeldedatum: 14.11.2005
Beiträge: 4

BeitragVerfasst am: 14.11.2005, 23:57 Nach oben

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
Benutzer-Profile anzeigenPrivate Nachricht senden
Beiträge der letzten Zeit anzeigen:      
Neues Thema eröffnenNeue Antwort erstellen


Ähnliche Beiträge
Thema Autor Forum Antworten Verfasst am
Keine neuen Beiträge DBF Dateien nach Bearbeitung speicher... qnap Microsoft Excel Hilfe 2 01.07.2008, 11:33 Letzten Beitrag anzeigen
Keine neuen Beiträge Datenmenge erhöht sich drastisch beim... b&b_ag Microsoft Word Hilfe 0 24.06.2008, 16:37 Letzten Beitrag anzeigen
Keine neuen Beiträge (Word 2007) Kann Datei nicht speichern elocin-ariam Microsoft Word Hilfe 5 10.06.2008, 15:55 Letzten Beitrag anzeigen
Keine neuen Beiträge vordefinierte Kopf- und Fußzeile zent... fixtroedelfuchs Microsoft Excel Hilfe 5 06.06.2008, 11:23 Letzten Beitrag anzeigen
Keine neuen Beiträge Kontakt speichern Vowi66 Microsoft Outlook Hilfe 1 05.06.2008, 15:29 Letzten Beitrag anzeigen


 Gehe zu:   



Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Haftungsausschluss/Disclaimer


SMS kostenlos versenden | Battle-Dream | Tuning Forum | Join the YoungGeneration | krankenversicherungsvergleich | Kalorienarme Rezepte!
Versicherungsvergleich | Bürobedarf | Papier | Betten

Ranking-Hits



Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de