Textausgabe zeilenweise
26.05.2003 09:40:55
Peter P.
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