Gruppe
Funktion
Problem
Beim Import von Textdateien tauchen mehrfach Zellen mit hintenangefügtem Minuszeichen auf. Wie kann ich diese Zeichenfolgen in Minuswerte wandeln?
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