Texttocolumns ändert Komma zu Punkt
22.06.2020 15:35:09
JoNNy
ich bin gerade an einer Lösung dran, um Daten Spaltenweise neu einzuschreiben.
Grund sind Formatierungsfehler beim Export aus einem ERP System.
Nun habe ich folgende Situation:
Wenn ich den Code über alle Spalten laufen lasse, ändert er bei Dezimalzahlen das Komma in einen Punkt.
Führe ich das Ganze manuell über die Excelfunktion aus, passiert das nicht.
Der Codeausschnitt:
Sub FormatClear()
Debug.Print "FormatClear gestartet"
Dim RohWS As Worksheet
Dim Bereich As Range
Dim CollS As Integer
Dim RowS As Integer
If sheetExists("Rohfassung") = True Then
Set RohWS = Worksheets("Rohfassung")
Else
MsgBox ("Es existiert kein Blatt mit dem Namen Rohfassung in dieser Mappe!")
End If
Set Bereich = Range("A1").CurrentRegion
CollS = Range(Mid(Bereich.Address, 6, Len(Bereich.Address) - 6)).Column
RowS = Range(Mid(Bereich.Address, 6, Len(Bereich.Address) - 6)).Row
Debug.Print Bereich.Address
For Coll = 1 To CollS
Debug.Print "Spalte:" & Range(Cells(2, Coll), Cells(RowS, Coll)).Address
Debug.Print "Kopf:" & Range(Cells(2, Coll), Cells(2, Coll)).Address
Range(Cells(2, Coll), Cells(RowS, Coll)).TextToColumns Destination:=Range(Cells(2, Coll), Cells( _
2, Coll)), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
Next
Debug.Print "FormatClear erfolgreich!"
End Sub
Anzeige