Problem mit print #1

Hallo liebe Leute,
ich hab da ein kleines Problemchen.
Ich muß Text aus einem Excel-Sheet in eine Textdatei schreiben. Wichtig hierbei ist, dass verschiedene Textteile auf verschiedenen Spalten stehen sollen. Zur Verfügung habe ich die Anzahl der Textbausteine (variabel), den Ort der Textbausteine im Excel-Sheet, sowie die Spaltennummern, auf denen die jeweiligen Textbausteien in der Textdatei stehen sollen.
Von der Syntax her müsste der Print-Befehl doch in etwa so lauten:
Print #1, Tab(1) ; textbaustein(1) ; Tab(20) ; textbaustein(2) ; Tab(35) ; textbaustein(3) ; Tab(n) ; textbaustein(n)
Das Problem ist nun, dass die Zahl der Textbausteine variabel ist. Wie kann ich dem Print-Befehl am Besten eine variable Anzahl von Textbausteinen zuweisen? Ich habs über eine zweite Variable versucht, die ich über eine For-Next-Schleife mit Text befülle. Leider hat das aber nicht geklappt, weil ich ja dem Print-Befehl auch die zum Textbaustein gehörige Tab-Position übergeben muß.
Bitte um Hilfe
Vielen Dank im Voraus
Johannes

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Die Spalten werden vom jeweiligen Benutzer (und anschließendem Weiterverarbeiter der Textdatei) vorgegeben. Dies wird über einen Dialog abgefragt.
Das ergibt dann zum Beispiel, dass der Inhalt der Excel-Spalte BA in der Textdatei auf Spalte 20 stehen muß, Excel-Spalte BX auf Textdatei-Spalte 35 und Excel-Spalte CD auf Textdatei-Spalte 39 etc.
wie gesagt ist mir die Grundidee von print # geläufig, aber die Anwendung im konkreten Fall ist mir nicht klar.
Eine Lösungsmöglichkeit wäre evtl. eine Select-Case-Anweisung nach dem Muster:
select case 'Anzahl der Textbausteine'
case 1
print #1 Tab(10) ; Textbaustein1
case 2
print#1 Tab(10) ; Textbaustein1 ; Tab(20) ; Textbaustein2
case 3
print#1 Tab(10) ; Textbaustein1 ; Tab(20) ; Textbaustein2 ; Tab(35) ; Textbaustein3
case...
Leider können wie gesagt bis zu 100 Textbausteine vorkommen und dadurch wird die Select-Case-Geschichte ein wenig unübersichtlich ;)
Irgendwie muss ich es doch schaffen können, die print#-Anweisung variabel zu gestalten. Dies ginge ja auch über eine String-Variable, in der ich die einzelnen Textbausteine einfach per Schleife aneinanderreihe. Das Problem ist aber wie gesagt, dass ich ja zusätzlich die entsprechenden Spalten zuweisen muß.

Sub tst() Dim TT As String Open "c:\temp\xtsty.txt" For Output As #1 Print #1, "123456789.123456789.123456789.123456789." Print #1, Tab(5); "5aaa5"; Tab(20); "20bbb20"; Tab(35); "35ccc35" TT = String(4, " ") & "5AAA5" TT = TT & String(19 - Len(TT), " ") & "20BBB20" TT = TT & String(34 - Len(TT), " ") & "35CCC35" Print #1, TT Close End Sub

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread