Ich möchte die Formel auch in Spalte C und D usw. anwenden. Nicht nur in Spalte B. Was muss noch eingegeben werden?
Sub Farben()
Dim i As Integer
Dim sumblau As Long
Dim sumrot As Long
Dim sumschwarz As Long
sumblau = 0
sumrot = 0
sumschwarz = 0
'Ergebnisfelder initialisieren
Range("b28").Select: ActiveCell.Value = 0
Range("b29").Select: ActiveCell.Value = 0
Range("b30").Select: ActiveCell.Value = 0
'schwarz
Range("b2").Select
For i = 1 To 27
If Selection.Font.ColorIndex = xlAutomatic Then sumschwarz = sumschwarz + ActiveCell.Value
ActiveCell.Offset(1, 0).Range("A1").Select
Next
Range("b28").Select
ActiveCell.Value = sumschwarz
'jetzt rote Einträge summieren
Range("b2").Select
For i = 1 To 27
If Selection.Font.ColorIndex = 3 Then sumrot = sumrot + ActiveCell.Value
ActiveCell.Offset(1, 0).Range("A1").Select
Next
Range("b29").Select
ActiveCell.Value = sumrot
' blau abchecken
Range("b2").Select
For i = 1 To 27
If Selection.Font.ColorIndex = 5 Then sumblau = sumblau + ActiveCell.Value
ActiveCell.Offset(1, 0).Range("A1").Select
Next
Range("b30").Select
ActiveCell.Value = sumblau
End Sub