Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
480to484
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
480to484
480to484
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeile in neue Textdatei

Zeile in neue Textdatei
06.09.2004 14:21:09
Alexander
Hallo! Ich habe folgendes dringendes Problem:
Ich habe eine Excel-Tabelle mit 7.000 Artikeln bekommen. In der ersten Spalte steht die Artikelnummer und in der zweiten Spalte ein Text. Gibt es eine Möglichkeit oder ein Programm mit dem ich jeweils pro Zeile eine neue Textdatei erstellen lassen kann, wobei diese jeweils den Namen aus der ersten Spalte (Artikelnummer) bekommen soll? Habe schon das ganze Internet durchsucht. Normale Konvertierung der ganzen Datei hilft mir nicht weiter und per Hand sitzte ich nächstes Jahr immer noch dabei. Vielleicht kann mir ja jemand von euch helfen!? Sage schon einmal Danke im Vorraus! Euer Alex

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeile in neue Textdatei
06.09.2004 14:40:55
Detlew
Du willst also dann 7000 Textdateien haben? (Artikelnummer.txt)?
AW: Zeile in neue Textdatei
07.09.2004 09:37:49
Alexander
Ja, ich will nicht nur, ich muss diese einzelnen Textdatein haben, da sie in dieser Form dann wieder in ein System einzeln eingelesen werden müssen. Klingt kompliziert, ist aber von sehr großem Nutzen. Danke an alle, die auf diese Frage geantwortet haben!
AW: Zeile in neue Textdatei
ypsilon
hi Alex,

Sub dateien_exportieren()
Dim sFile As String
Dim ff As Byte
ff = FreeFile
With ActiveSheet
For i = 1 To .Range("A65536").End(xlUp).Row
sFile = "C:\Temp\" & .Cells(i, 1) & ".txt"  'Pfad anpassen
Open sFile For Output As ff
Print #1, Cells(i, 2).Value
Close #ff
Next
End With
End Sub

cu Micha
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige