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

Textdatei mit beliebigem Trenner erzeugen

Forumthread: Textdatei mit beliebigem Trenner erzeugen

Textdatei mit beliebigem Trenner erzeugen
18.12.2003 16:26:38
thekla
Hallo,
habe ich die Möglichkeit, ein Tabellenblatt als Textdatei zu erzeugen und dabei das Trennzeichen zu bestimmen?
Bei Export als CSV-Datei werden ; benutzt,
bei Export als Text-Datei werden Tabs benutzt,
wir benötigen als Trennzeichen , (Komma).
Wer weiß Hilfe, wenn möglich ohne VBA?
Danke.
Thekla
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Textdatei mit beliebigem Trenner erzeugen
18.12.2003 16:41:44
Markus Wiesendanger
Hallo Thekla

erzeuge eine normale .csv-datei.
Öffne danach diese datei mit dem Notepad.
Wähle nun den Befehl ersetzen (Ctrl+H) und ersetze hier die ";" durch ",", anschliessen speichern
Nun hast du eine .csv-Datei mit den Kommas drin...

Wenn du diese Datei wieder in Excel öffnest, bitte nicht erschrecken - alle Daten sind nun in der Spalte A aufgeführt - du kannst sie jederzeit wieder in Spalten umwandeln
Menu Daten > Text zu Spalten (Data > Text to Column)

viel Glück

Markus

PS: Ich habs mit Office XP gemacht - wird auch bei dir gehen...
Anzeige
AW: Textdatei mit beliebigem Trenner erzeugen
18.12.2003 16:46:34
thekla
Hallo Markus,
danke für die Info. Doch kenne ich diese "externe" Lösung mit dem Notepad.
Ich würde sehr gerne ohne einen Editor arbeiten, möchte aus EXCEL eine Datei mit entspr. Spaltentrennern erzeugen.
Gruss Thekla
AW: Textdatei mit beliebigem Trenner erzeugen
18.12.2003 18:22:36
Karl-Otto Reimann
Hallo Thekla
Trennzeichen ist hier das ","


Sub Thekla_Export()
Dim TB As Worksheet
Dim TMP$, ExePath
Dim z%, s%
ExePath = Application.Path
Set TB = ActiveSheet
Open ExePath & "\test.csv" For Output As #1
For z = 1 To TB.UsedRange.Rows.Count
For s = 1 To TB.UsedRange.Columns.Count
TMP = TMP & CStr(TB.Cells(z, s).Text) & ","
Next s
Print #1, TMP
TMP = ""
Next z
Close 1
Workbooks.Open ExePath & "\test.csv"
End Sub


mfG KO
Anzeige
AW: Textdatei mit beliebigem Trenner erzeugen
18.12.2003 21:43:56
Reinhard
Hallo Karl-Otto,
für Perfektionisten
Print #1, TMP
durch
Print #1, left(TMP,len(TMP)-1)
ersetzen.
Gruß
Reinhard
AW: Textdatei mit beliebigem Trenner erzeugen
18.12.2003 22:23:30
Karl-Otto Reimann
Hallo Reinhard
Das hör' ich gern, aber ich 'hab die Vermutung, "den" optimalen Code wird es weder im
mathematischen noch im philosophischen Sinn geben. Ich verweis hier gern auf ein Beispiel im Tutorial dieses Foums:

SubClearContentsErrorCells()
On Error GoTo ERRORHANDLER
Cells.SpecialCells(xlCellTypeFormulas, 16).ClearContents
ERRORHANDLER:
End Sub

Wenn ich als Anfänger versucht hätte, das zum
Laufen zu bringen, hätte ich gesagt: HalloWasBitte??
und hätte die Seite nicht mehr besucht.
mfG KO
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