Excel Makro speichert CSV ohne Trennzeichen

[fusch23]

Hallo an alle,

ich habe das Problem, dass Excel Makro meine CSV-Datei nicht mit Trennzeichen, sondern mit Kommas speichert. Wenn man danach bei Google sucht, scheint dies ja ein bekanntes Problem zu sein. Nur keine der angegebenen Lösungen hat bei mir funktioniert. Kann hier bitte mal jemand drüber schauen und mir einen Tipp geben, wo der Fehler liegt. Vielen Dank für Eure Hilfe




Sub Test1()
'
' Test1 Makro
'

'
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    Columns("O:O").Select
    Selection.Replace What:="    ", Replacement:="Leitung", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
    Selection.Replace What:="0001", Replacement:="Leitung", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
    Selection.Replace What:="1V79", Replacement:="9696", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
    Selection.Replace What:="6885", Replacement:="9330", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
    ChDir "\\Test"
    ActiveWorkbook.SaveAs Filename:= _
        "\\Test\Test.csv", FileFormat _
        :=xlCSV, CreateBackup:=False
End Sub

[schauan]

Hallöchen,

CS steht für CommaSeparated ...
Schaue mal, ob der Parameter Local=True beim Speichern hilft.
Ansonsten, Datei mit Open ... ForOutput ... und Print ... erzeugen.

[fusch23]

kannst Du mir noch sagen, wo ich es einbetten kann. Bekomme überall eine Fehlermeldung

[UweD]

Hallo

so?

Code:

Sub Test1()
    With ActiveSheet.Columns("O:O")
        .Replace What:="    ", Replacement:="Leitung", LookAt:=xlPart, SearchOrder:=xlByRows
        .Replace What:="0001", Replacement:="Leitung", LookAt:=xlPart, SearchOrder:=xlByRows
        .Replace What:="1V79", Replacement:="9696", LookAt:=xlPart, SearchOrder:=xlByRows
        .Replace What:="6885", Replacement:="9330", LookAt:=xlPart, SearchOrder:=xlByRows
       
    End With
    ChDir "\\Test"
    ActiveWorkbook.SaveAs Filename:="\\Test\Test.csv", FileFormat:=xlCSV, local:=True
End Sub

LG UweD

[snb]

Code:

Sub M_snb()
   for j=1 to 4
    columns(15).Replace choose(j,"    ","0001","1V79","6885"), choose(j,"Leitung","Leitung","9696","9330"), 2
   next

  ActiveWorkbook.SaveAs "G:\OF\Test.csv", 23, local:=True
End Sub

[fusch23]

funktioniert super
Vielen Dank