Sie haben in einer Tabelle viele Ergebniswerte stehen und benötigen die Summe aller negativen und aller positiven Zahlen. Das können Sie mit folgendem Makro leicht erledigen.
Markieren Sie alle betreffenden Zellen und starten Sie dann die Routine:
Sub plusminus()
On Error Resume Next
minus_wert = 0
plus_wert = 0
For Each wert In Selection.Cells
If wert > 0 Then plus_wert = plus_wert + wert
If wert < 0 Then minus_wert = minus_wert + wert
Next
MsgBox ("Summe aller positiven Werte: " & plus_wert & Chr(10) & "Summe aller negativen Werte: " & minus_wert)
End Sub
Das Unterdrücken einer Fehlermeldung mit der Befehlszeile On Error Resume Next verhindert, dass der Programmablauf abgebrochen wird, wenn sich in einer Zelle ein nichtnumerischer Wert befindet. Somit brauchen Sie bei der Markierung der Zellen auf einen eventuellen Tabellenkopf o. ä. keine Rücksicht zu nehmen. Das Programm rechnet trotzdem nur mit den Zellen, in denen sich Zahlenwerte befinden.