Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
Thema
In importierter Textdatei englische Werte in deutsche wandeln
Gruppe
Text
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