Gruppe
Funktion
Bereich
WECHSELN
Thema
Minuszeichen umkehren
Problem
Beim Import von Textdateien tauchen mehrfach Zellen mit hintenangefügtem Minuszeichen auf. Wie kann ich diese Zeichenfolgen in Minuswerte wandeln?
Lösung
Folgende Formel: =WERT("-"&WECHSELN(A2;"-";""))
StandardModule: basMain
Sub MinusNachVorne()
Dim rng As Range
For Each rng In ActiveSheet.Range("A2:A4").Cells
rng.Offset(0, 2).Formula = "-" & _
WorksheetFunction.Substitute(rng.Value, "-", "")
Next rng
End Sub