Textdateien aus einzelnem Zellinhalt erstellen

Hallo,
ich habe mir eine heikle Aufgabe gestellt.
Und zwar habe ich ein Excel Arbeitsblatt in dem die Zellen der Spalte N die Zusammenfassung aus A bis M enthält.
Nun möchte ich aus den Zellen in Spalte N Textdateien erzeugen.
Also Textdateien sollen auf meinem PC in den Ordner C:\Auflösung\vonHeute
Es soll aber aus jeder Zelle aus Spalte N, die nicht leer ist,
eine Textdatei mit dem Namen aus der Zelle in Spalte A erzeugt werden.
z.B. in A1 steht "Test1" und in N1 steht "uvw"
und in A2 steht "Test2" und in N2 steht "xyz"
dann benötige ich die Textdatei Test1.txt mit dem Inhalt "uvw"
und die Textdatei Test2.txt mit dem Inhalt "xyz"
in dem Ordner C:\Auflösung\vonHeute
Irre, was ich mir da wieder aus gedacht habe, oder ?
Ist das möglich ?
g

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub MakeText() Dim n As Integer, i As Integer n = 1 Do Until Cells(n, 14) = "" Open "C:\Auflösung\vonHeute\" & Cells(n, 1) & ".txt" For Output As #1 For i = 1 To 13 Print #1, Cells(n, i) Next i Close 1 n = n + 1 Loop End Sub

Sub MakeText() Dim n As Integer, i As Integer n = 1 Do Until Cells(n, 14) = "" Open "C:\Auflösung\vonHeute\" & Cells(n, 1) & ".txt" For Output As #1 For i = 1 To 13 Print #1, Cells(n, i) & "Text" Next i Close 1 n = n + 1 Loop End Sub

Danke Udo,
mit deiner Schreibweise &Trim(Cells(n,1)) & funktioniert es.
In den Zellen sind keine sichtbaren Leerzeichen, nur eingegebener Text und Zahlen.
Aber nun funktioniert es ja. :)
Ich lass zunächst einen Ordner auf dem Desktop erzeugen,
in den ich dann die Textdateien schreiben lasse.
Open strPath ...
strPath ist in einem anderen Modul als Global strPath As String deklariert
Ich starte das per CommanButton aus der Tabelle:
</p><pre>Private Sub TextDateien_Click()
If MsgBox("Sollen die jetzt erstellt werden werden?", vbYesNo) = vbYes Then
Application.Run "Ordner_erstellen"
Application.Run "MakeText"
MsgBox "Die Dateien wurden erstellt."
End If
End Sub</pre><p>
also wird der Ordner zunächst erstellt,
denn noch bekomme ich Laufzeitfehler '17': Pfand nicht gefunden
wenn ich auf Beenden drücke, ist alles bestens, der Ordner mit passendem Inhalt ist da.
Was kann das sein ?

Beliebteste Forumthreads (12 Monate)

Textdateien aus einzelnem Zellinhalt erstellen

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Textdateien aus einzelnem Zellinhalt erstellen

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread