Gruppe
Extern
Bereich
Text
Thema
In importierter Textdatei englische Werte in deutsche wandeln
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?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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