Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Minuszeichen umkehren

Gruppe

WECHSELN

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