Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

aus Excel Daten eine TXT-Datei erstellen

Forumthread: aus Excel Daten eine TXT-Datei erstellen

aus Excel Daten eine TXT-Datei erstellen
30.10.2003 09:41:36
Sebastian
Hallo alle zusammen,

ich hoffe jemand kann mir helfen ich habe eine Liste bei der in verschiedenen Zellen Dezimalzahlen und Textenthalten sind, die Inhalte sollte in eine TXT-Fatei geschrieben werden, dabei sollten bei den Dezimalzahlen das Komma (Trennzeichen) durch ein Punkt ersetzt werden.
Desweiteren sollten die einzelnen Zellen durch ein | abgetrennt sein, ist dies mit Hilfe eines Makros möglich, wenn ja wie?

Danke für eure Hilfe

Sebastian
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: aus Excel Daten eine TXT-Datei erstellen
30.10.2003 10:54:26
Nike
Hi,
mal links unten in den Excel FAQs ein bischen stöbern,
über Extern, Textexport mal diesen Beitrag näher anschaun
http://xlfaq.herber.de/texte/019198h.htm

Bye

Nike
AW: aus Excel Daten eine TXT-Datei erstellen
30.10.2003 12:01:33
Heinz Nolle
Hallo,

das Programm trennt die Zellen mit '|'. Wenn Du statt des Dezimalkommas einen Punkt haben willst(?), machst Du das vor der Konvertierung besser in Excel;US-Format auswählen.

Heinz


Private Sub CommandButton1_Click()
'Exceltabelle in Text konvertieren
Dim Bereich As Range
Dim Zeile As Range
Dim Zelle As Range
Dim s As String
Sheets("Tabelle1").Activate
Set Bereich = ActiveSheet.UsedRange
'Für Dich anpassen
Open "D:\Lab\Excel\Texte\KonvertText3.txt" For Output As #1
For Each Zeile In Bereich.Rows
For Each Zelle In Zeile.Cells
s = s & Zelle.Text & "|"
Next
s = Left(s, Len(s) - 1)
Print #1, s
s = ""
Next
Close #1
End Sub

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige