Microsoft Excel

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