Gruppe
Funktion
Problem
Wie kann ich den Mittelwert einer Zahlenreihe bis zur Eingabezelle der Formel ermitteln?
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