Excel und VBA: Formeln, Programmierung, Lösungen

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