wie schreibe ich formatiert in eine Textdatei?
Verwende zum Schreiben folgenden Code:
Sub WriteFile()
Cells(4, "A").End(xlToRight).Select
endeCol = Selection.Column
Cells(4, "G").End(xlDown).Select
endeRow = Selection.Row
Open "c:\tmp\Textdatei.txt" For Output As #1
For z = 5 To endeRow
For j = 1 To endeCol
' If Cells(z, j).Value = "" Then
' End If
s = Cells(z, j).Value & "|"
temp = temp + s
Next j
Write #1, "DATA |" & temp
temp = ""
Next z
Close #1
End Sub
Ich möchte eine Ausgabe in der Form:
DATA | 123| Test| dies ist ein Bsptest|
erreichen.
Mein Problem liegt darin, dass manche Spalten auch leer sein können. Dann erhalte ich einfach |||...
Es sollte aber immer die gleiche Formatierung vorliegen.
Eine Idee von mir wäre immer die Länge zu prüfen, falls diese Null ist, einfach mit Leerzeichen in dem String zu arbeiten. Dies müßte ich dann allerdings für 85 Spalten machen...
Gibt's dafür ne einfachere Lösung?
Grüße Andi