VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Minuszeichen umkehren

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

    


Beiträge aus dem Excel-Forum zu den Themen Funktion und WECHSELN