Gruppe
Extern
Problem
In einer importierten Textdatei befinden sich Zahlenwerte in englischer Schreibweise und Minuswerte mit angefügtem Minuszeichen. Wie kann ich diese Werte in deutsche Werte konvertieren?
StandardModule: basMain
Sub InWerte()
Dim rng As Range
For Each rng In ActiveSheet.UsedRange.Cells
If Not IsEmpty(rng) Then
If Right(rng.Text, 1) = "-" Then
If IsNumeric(Left(rng.Text, Len(rng.Text) - 1)) Then
rng.Value = "-" & Left(rng.Text, Len(rng.Text) - 1)
End If
End If
rng.Formula = rng.FormulaLocal
End If
Next rng
End Sub