Excel: Rote und schwarze Zahlen summieren

Lösung: Diese Berechnungen können Sie nur mit dem Einsatz von Makros realisieren. Im folgenden erhalten Sie ein Beispiel, wie Sie die entsprechenden Summen PRO SPALTE eruieren können. Die Ergebnisse werden hier oberhalb eingetragen.

Wir arbeiten für das Beispiel mit folgender Tabelle. Unterhalb sind die jeweiligen Summen mit einer Formel berechnet worden, um zu überprüfen, ob die Ergebnisse auch stimmen, die das Makro ausgibt. Das Makro wurde auf einen Button gelegt, kann aber auch über EXTRAS/MAKRO/MAKROS gestartet werden. In der Zeile 2 wurde bereits die Formel eingetragen, die die Gesamtsumme berechnet, abzüglich der roten Zahlen, die gleich mittels Makro berechnet werden.

Setzen Sie nun die Markierung auf die Zelle in Zeile 3, in der Spalte, die Sie berechnen wollen. In dieser Zelle steht der Spaltenbuchstabe. Klicken Sie dann auf die Schaltfläche oder führen Sie das Makro manuell aus. Das Makro summiert nun getrennt die roten und die schwarzen Zahlen und fügt das Ergebnis in die beiden Zellen oberhalb der Tabelle ein. Zum Schluss rutscht die Markierung eins nach rechts, damit Sie bei Bedarf gleich ein weiteres Mal das Makro starten können.

Sie können dieses Makro auf verschiedenste Art und Weise anpassen, z.B. dass die Ergebnisse pro Zeile ausgegeben werden, oder Sie erstellen dafür ein weiteres Makro. Denkbar wäre auch eine Berechnung eines ganzen Bereiches. Sie können auch die schwarzen Zahlen vom Makro berechnen lassen. Der ColorIndex von Schwarz ist die 1. Allerdings gilt es dabei zu beachten, dass dies nicht funktioniert, bei Zahlen, die "Automatisch" formatiert sind, also nicht konkret in schwarz. Für die Berechnung der roten und schwarzen Zahlen eines ganzen Bereiches können Sie das zweite Makro verwenden. Passen Sie dort den Bereich an und die Ausgabezellen. Bei diesem zweiten Makro spielt es keine Rolle, wo sich die Markierung gerade befindet.

---------------------------------------------

Makro zum Kopieren:

---------------------------------------------

Sub RotSummieren()

Dim rngAll As Range, rngAct As Range

Dim dRed As Double, dBlack As Double

Dim S As String

S = ActiveCell.Value

RED = S & "1"

BLACK = S & "2"

BEREICH = S & "2:" & S & "15"

Set rngAll = Range(BEREICH)

For Each rngAct In rngAll.Cells

Select Case rngAct.Font.ColorIndex

Case Is = 3: dRed = dRed + rngAct.Value

End Select

Next rngAct

Range(RED) = dRed

End Sub

---------------------------------------------

Sub RotSchwarzBereich()

Dim rngAll As Range, rngAct As Range

Dim dRed As Double, dBlack As Double

RED = "B1" 'Ausgabezelle der Summe rot

BLACK = "B2" 'Ausgabezelle der Summe schwarz

BEREICH = "B3:E15" 'Zu berechnender Bereich

Set rngAll = Range(BEREICH)

For Each rngAct In rngAll.Cells

Select Case rngAct.Font.ColorIndex

Case Is = 3: dRed = dRed + rngAct.Value

Case Is = 1: dBlack = dBlack + rngAct.Value

End Select

Next rngAct

Range(RED) = dRed

Range(BLACK) = dBlack

ActiveCell.Offset(0, 1).Select

End Sub

---------------------------------------------