Clever-Excel-Forum

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

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.

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

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

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

funktioniert super Thumps_up

Vielen Dank

fusch23

schauan

fusch23

UweD

snb

fusch23