Probleme mit "," und "." und "" im Text
25.08.2016 07:35:21
TD
Ich habe ein Problem. Und zwar öffne ich ein Textdokument in dem alle "." durch "," ersetzt werden sollen, damit das Programm welches das Dokument einliest die Werte erkennt. Sobald ich die Punkte ersetzt habe schreibt er Anführungszeichen vor die Zahlen mit einem "," statt einem ".", welche das Programm auch nicht verarbeiten kann. lösche ich nun die "" habe ich wieder "." statt "," womit ich wieder beim Anfang bin.
hier das skript
Application.DisplayAlerts = False
'ändert "." in ","
Workbooks.OpenText Filename:="N:\BIOS2000\Import\SL\RP0XXXX000.sli"
Cells.Replace What:=".", Replacement:=",", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Cells.Replace What:=Char43, Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
ActiveWorkbook.SaveAs Filename:="N:\BIOS2000\Import\SL\RP0XXXX000.sli", _
FileFormat:=xlText, CreateBackup:=False
ActiveWindow.Close SaveChanges:=False
'Entfernt ""
Workbooks.OpenText Filename:="N:\BIOS2000\Import\SL\RP0XXXX000.sli"
Cells.Replace What:=Char43, Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
ActiveWorkbook.SaveAs Filename:="N:\BIOS2000\Import\SL\RP0XXXX000.sli", _
FileFormat:=xlText, CreateBackup:=False
ActiveWindow.Close SaveChanges:=False
Application.DisplayAlerts = True