Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
620to624
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
620to624
620to624
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

txt Datei mit Excel Daten erzeugen

txt Datei mit Excel Daten erzeugen
10.06.2005 11:40:04
Daniel
Guten Tag Allerseits!
Ich habe in einer Excel- Datei Daten stehen, die ich in eine txt-Datei umwandeln möchte.
Da ich diesen Vorgang öfters machen muss, möchte ich den Vorgang gerne automatisieren.
Es sollen in der Datei die Zellen von C5-G5, und das bis zu den letzten gefüllten Zellen der Spalten C-G in die txt-Datei kopiert werden.
Dabei soll das Datumsformat, das in Spalte C ist, als m/d/yyyy dargestellt werden.
Als Trennzeichen soll Tab sein, und die Zahlen in D-G sollen keine Tausendertrennzeichen haben und die Dezimale sollen Punkt sein.
Die Datei soll den Namen des Wertes in Zelle B5 haben + .txt.
Zu guter letzt, soll nach der letzten zeile in der neuen txt Datei ein Zeilenumbruch sein.
Ich hoffe ich habe alles verständlich dargestellt.
Beste Grüße und vielen Dank für Hilfe,
Daniel

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: txt Datei mit Excel Daten erzeugen
10.06.2005 12:30:27
Uduuh
Hallo,
in ein Modul:

Sub TextExport()
Dim i As Long, tmp As String
Open Range("B5") & ".txt" For Output As #1
For i = 5 To Range("G65536").End(xlUp).Row
tmp = ""
tmp = tmp & WorksheetFunction.Text(Cells(i, 3), "D/M/YYYY") & Chr(9)
tmp = tmp & WorksheetFunction.Substitute(Cells(i, 4), ",", ".") & Chr(9)
tmp = tmp & WorksheetFunction.Substitute(Cells(i, 5), ",", ".") & Chr(9)
tmp = tmp & WorksheetFunction.Substitute(Cells(i, 6), ",", ".") & Chr(9)
tmp = tmp & WorksheetFunction.Substitute(Cells(i, 7), ",", ".")
Print #1, tmp
Next i
Print #1, Chr(13)
Close 1
End Sub

Gruß aus’m Pott
Udo

Anzeige
AW: txt Datei mit Excel Daten erzeugen
10.06.2005 13:01:57
Daniel
Hallo Udo,
recht herzlichen Dank. Das klappt schonmal gut.
Kannst Du mir bitte noch folgendes einfügen:
Die Zahlen sollen IMMER 5 Stellen haben.
Danke udn Grüße aus Hamburg,
Daniel
Noch offen.........o.T.
10.06.2005 14:34:11
Daniel
....
AW: txt Datei mit Excel Daten erzeugen
10.06.2005 12:41:08
Dani
Hallo Daniel,
ich hab dir mal einen Ansatz gebastelt. Bin mir aber nicht sicher ob du dir das so vorstellst auch um die Formatierung habe ich mich noch nicht gekümmert. Schaus mal an ich lasse die Frage offen:

Sub TabelletoText()
Dim Speicherbereich As Range
Dim Zelle As Object
Dim MaxList, Listenlänge, i As Long
For i = 3 To 7
Listenlänge = Worksheets("Tabelle1").Cells(Rows.Count, i).End(xlUp).Row
If MaxList < Listenlänge Then MaxList = Listenlänge
Next
Set Speicherbereich = Range("C5:G" & MaxList) 'Hier wird der Speicherbereich festgelegt
Open "C:\Temp\Text.txt" For Output As #1 'Datei öffnen
For Each Zelle In Speicherbereich   'Alle Zellen abgrasen
Print #1, Zelle.Value & vbTab;   'Werte speichern
If Zelle.Column = 7 Then Print #1, ""
Next
Print #1, ""
Close #1
End Sub

Gruss
Dani
Anzeige
Kurzer Hinweis
10.06.2005 13:01:38
Harald
Hi Dani,
mit der Zeile
Dim MaxList, Listenlänge, i As Long
deklarierst Du nur i as long, alle anderen als Variant
Dim MaxList as Long, Listenlänge as Long, i As Long
Wie gesagt. Nur als kurzer Hinweis gedacht ;-))
Harald
AW: Kurzer Hinweis
10.06.2005 13:06:58
Daniel
Sorry, da verstehe ich nur Bahnhof. Habe keine Ahnung von VBA.
Grüße,
Daniel
Ups....
10.06.2005 13:31:49
Daniel
...der Hinweis war ja gar nicht für mich.
Da kann man schonmal durcheinander kommen wenn man nur Dan... liest ;-)
Die Lösung von Udo ist sehr gut, von daher nehme ich diese.
Grüße
Daniel
AW: Kurzer Hinweis
13.06.2005 09:50:15
Dani
Hallo Harald,
das habe ich wirklich nicht gewusst. Vielen Dank für den Hinweis!!
Gruss
Dani
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige