Office: Problem beim Speichern einer Datei uber Makro

Hallo zusammen,

ich benötige hilfe bei einem Makro, welches ich erstellt habe.
Dieses sieht folgendermaßen aus:

Sub Macro1()

Windows("Datei_X.xls").Activate
ChDir "C:\ORDNERX\1234"
ActiveWorkbook.SaveAs Filename:= _
"J:\ORDNERX\1234\Datei_X.txt", _
FileFormat:=xlText, CreateBackup:=False
ActiveWorkbook.Save
ActiveWindow.Close

End Sub


Was ich gerne haben möchte, ist ein Excel-Sheet welches bspw. folgende Werte in Spalte A stehen hat

Code:

90: :      :M  : :      :           :            :C:O:   : :200000              :40,75      :

in eine .txt Datei umzuwandeln.

Wenn ich dieses aber über oben aufgeführtes Makro laufen lasse, habe ich immer " vor der 94 stehen,
was dann so aussieht:

Code:

"90: :      :M  : :      :           :            :C:O:   : :200000              :40,75      :

Dieses " wird allerdings nicht in jeder Zeile vor die 90 gesetzt. Wenn ich die Datei ganz normal über "Speichern unter"
manuell als .txt Datei abspeichere, dann funktioniert es ohne das mir " vor die meisten Zeilen gesetzt wird.

Weiss jemand woran dies liegen könnte?

 

Hallo,

ich verwende für sowas in der Regel diesen Code:

Sub SaveCSV()
'Quelle: Thomas Ramel
Dim Bereich As Object
Dim Zeile As Object
Dim Zelle As Object
Dim strTemp As String

Const Pfad As String = "C:\Test\" 'anpassen
Const Dateiname As String = "test" 'anpassen
Const Extension As String = ".TXT" 'anpassen
Const Trennzeichen As String = ";" 'anpassen
Const Kapselzeichen As String = """" 'anpassen

'Hier kann auch ein eigener Range angegeben werden
'Set Bereich = ActiveSheet.Range("A1:B5")
Set Bereich = ActiveSheet.UsedRange

Open Pfad & Dateiname & Extension For Output As #1

For Each Zeile In Bereich.Rows
For Each Zelle In Zeile.Cells
If InStr(1, Zelle.Text, Trennzeichen) > 0 Then 'angepasst T.Ramel
'Zellen, die ein Trennzeichen beinhalten in Kapselzeichen setzen
strTemp = strTemp & Kapselzeichen & CStr(Zelle.Text) & _
Kapselzeichen & Trennzeichen
Else
strTemp = strTemp & CStr(Zelle.Text) & Trennzeichen
End If
Next
strTemp = Left(strTemp, Len(strTemp) - 1) 'angepasst T.Ramel
Print #1, strTemp
strTemp = ""
Next

Close #1
Set Bereich = Nothing
End Sub

Die Konstanten musst du noch anpassen.