code anpassen
11.06.2007 15:31:00
Jürg
habe hier vor längerer zeit diesen code gepostet.
nun kann mir jemand diesen so anpassen, dass bei dem auslesen der daten nicht zuerst ein ";" erscheint sondern nur der Wert aus excel?
besten dank
mit Gruss
jürg
Sub test55()
[b1].Select
Open "G:\testc.dat" For Output As #1 'Dateiname und Pfad
For i = 1 To 1 'Länge deiner Liste
For ii = 1 To 38 ' anzahl beschriebener zellen in deiner Zeile
Var = Var & ";" & ActiveCell.Offset(i - 1, ii - 1).Value 'Trennzeichen beliebig*)
Next
Print #1, Var
Var = ";" 'Trennzeichen beliebig*)
Next
Close #1
End Sub
Anzeige