Textausgabe zeilenweise

Forumthread: Textausgabe zeilenweise

26.05.2003 09:40:55

Peter P.

Hallo!
folgender code exportiert mir eine selection zellenweise untereinander - ich möchte aber die sache auf zeilenweise modifizieren - bitte helft. Danke Peter

Sub Markierung2Textfile()
Dim Text1 As String
Dim auswahl As Excel.Range
Dim outtext As String
Dim fertig
outtext = ActiveWorkbook.Path & "\" & Replace(ActiveWorkbook.Name, "xls", "txt")
Close #1
Open outtext For Append As #1
Print #1, "+++ START +++"
For Each auswahl In Selection
Print #1, auswahl.Text
Next
Print #1, "+++ ENDE +++"
Close #1
fertig = MsgBox("Markierung wurde in Textdatei " & outtext & " exportiert.", vbInformation, "Fertig!")
End Sub

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Textausgabe zeilenweise

26.05.2003 13:21:18

Peter P.
Re: Textausgabe zeilenweise

26.05.2003 14:40:14

Peter P.

Re: Textausgabe zeilenweise

26.05.2003 13:21:18

Peter P.

hmm - ich komme nicht wirklich weiter - folgendes macht zwar fast das was ich möchte, allerdings wird nach den semikolagetrennten werten immer in der nächsten zeile der letzte zellwert nochmal wiederholt - warum?

Sub M2T()
Dim Text1 As String
Dim Auswahl As Excel.Range
Dim outtext As String
Dim fertig
outtext = ActiveWorkbook.Path & "\" & Replace(ActiveWorkbook.Name, "xls", "txt")
Close #1
Open outtext For Append As #1
Print #1, "+++ START +++"
For Each Auswahl In Selection
Print #1, Auswahl(1, 1) & ";" & Auswahl(1, 2)
Next
Print #1, "+++ ENDE +++"
Close #1
fertig = MsgBox("Markierung wurde in Textdatei " & outtext & " exportiert.", vbInformation, "Fertig!")
End Sub

Re: Textausgabe zeilenweise

26.05.2003 14:40:14

Peter P.

so - nochmal alle rudimentären programmierkentnisse zusammengenommen - und siehe da :)

Sub Markierung2Textfile()
Dim ZeilenZahl As Integer, i As Integer, j As Integer, SpaltenZahl As Integer, Textzeile As String, outtextfile As String, fnum$, fertig
Dim Auswahl As Excel.Range
ZeilenZahl = Selection.Rows.Count
SpaltenZahl = Selection.Columns.Count
Textzeile = ""
fnum = FreeFile
outtextfile = ActiveWorkbook.Path & "\" & Replace(ActiveWorkbook.Name, "xls", "txt")
Open outtextfile For Append As #fnum
Print #fnum, "+++ START +++"
For i = 1 To ZeilenZahl
For j = 1 To SpaltenZahl
Textzeile = Textzeile & Selection(i, j) & ";"
Next j
Textzeile = Left(Textzeile, Len(Textzeile) - 1)
Print #fnum, Textzeile
Textzeile = ""
Next i
Print #fnum, "+++ ENDE +++"
Close #fnum
fertig = MsgBox("Markierung wurde in folgende Textdatei exportiert:" & vbNewLine & vbNewLine & outtextfile, vbInformation, "Fertig!")
End Sub

Beliebteste Forumthreads (12 Monate)

Forumthread: Textausgabe zeilenweise

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread