Supportnet / Forum / Tabellenkalkulation

Hallo Jungs (und Mädels), ich habe folgendes Problem: ich möchte gerne eine Zeile exportieren, dies tue ich Zellenweise und lasse jeweils ein Semikolon einfügen: ... Range("A2").Select Open ActiveWorkbook.Path & "\Dateiname.txt" For Output As #1 For i = 1 To Anzahl_Spalten Print #1, ActiveCell.Offset(1, i).Value & ";" Next i Close #1 ... Diese Datei speichert die Werte aber UNTEReinander ab, was den späteren Import zerschießt. Kennt jemand von den Spezialisten einen Weg, die Werte alle in eine Zeile zu schreiben? Vorab vielen Dank für eure Bemühungen, viele Grüße, guethi

Hallo
Versuchs ´mal so:

Print #1, ActiveCell.Offset(1, i).Value & ";" ;

Gruß

So einfach... :-)

Herzlichen Dank!

• Statt Drucker txt im als unkonvertierter Text erzeugen
• Seitenumbrüche in Excel-sheet einfügen per VBA
• Datei mit VBA öffnen
• java bluej Zeilenumbrüche in Strings