ich hätte eine kurze frage für profis:
ich habe folgenden code:
j = Sheets("Textexport").UsedRange.Rows.Count
Open "D:\Text.txt" For Output As #1
For i = 1 To j
Tstring = Format(Cells(i, 1)) & Format(Cells(i, 2)) & Format(Cells(i, 3)) & Format(Cells(i, 4)) & Format(Cells(i, 5))
Print #1, Tstring
Tstring = ""
Next i
Close #1
damit erstelle ich eine textdatei aus einem sheet. in den zellen befinden sich aber nach allen werten ; und diese strichpunkte fehlen im textfile.
im textfile wird einfach alles hintereinadergeschrieben, obwohl, wie gesagt, in allen zellen werte mit ; stehen
zb. zellinhalt A3 ist 0,0875;
zellinhalt A4 ist 0,0885;
usw
im textfile steht hier in der zeile dann:
0,08750,0885
ohne ;
wie kann ich den ; ins textfile mitbekommen.
danke im voraus!
lg
helmut