VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

In importierter Textdatei englische Werte in deutsche wandeln

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

    


Beiträge aus dem Excel-Forum zu den Themen Extern und Text