Hallo prack,

ich weiß nicht, ob ich Dich richtig verstanden habe. Nachfolgend ein Makro, dass Dir die aktuelle Exceldatei in eine Textdatei speichert. Der Speicherpfad der Exceldatei wird hierbei ausgelesen, damit die Textdatei am gleichen Ort wie die Exceldatei gespeichert werden kann. Der Name der Textdatei lautet genau wie die Exceldatei, nur eben ohne der Endung .xls, sondern mit der Endung .txt.

Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.

[b]Option Explicit

Sub XLS_als_TXT_speichern()
Dim strPfad As String
Dim strDateiname As String
'aktuellen Pfad der Exceldatei auslesen und in Variable "strPfad" schreiben
strPfad = ThisWorkbook.Path & "\"
'aktuellen Dateinamen der Exceldatei auslesen und in Variable "strDateiname" schreiben
strDateiname = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4)
'Warnmeldungen deaktivieren
Application.DisplayAlerts = False
'Exceldatei im Pfad der Exceldatei unter dem Exceldateinamen (ohne der Endung .xls) _
 als Textdatei speichern
ActiveWorkbook.SaveAs Filename:=strPfad & strDateiname & ".txt", FileFormat:=xlText
'Warnmeldungen aktivieren
Application.DisplayAlerts = True
End Sub
[/b]

Ich hoffe Du meintest das so und dass Du klar kommst.

Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 3 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.

Bei Fragen melde Dich.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Danke.
Es funktioniert.
Danke noch mal.