Liebe Community,

ich möchte gerne Zellen, die mit bedingter Formatierung optisch hervorgehoben sind summieren.

Nachdem ich alles mögliche erfolglos ausprobiert habe und ich inzwischen gelernt habe, dass Excel diese Formatierung nicht so anzeigt, dass es mit einfachen Mitteln "gelesen" werden kann, bin ich bei VBA gelandet.
Nun habe ich Null-Ahnung von VBA.
Die KI gefragt hat mir diesen Code generiert:

vb
Function SumConditionColorCells(SumRange As Range, ColorRange As Range) As Double
Dim SumColorValue As Integer
Dim TotalSum As Double
Dim cell As Range

SumColorValue = ColorRange.Interior.ColorIndex

For Each cell In SumRange
If cell.Interior.ColorIndex = SumColorValue Then
If IsNumeric(cell.Value) Then
TotalSum = TotalSum + cell.Value
End If
End If
Next cell

MsgBox ActiveCell.DisplayFormat.Interior.Color

SumConditionColorCells = TotalSum
End Function

Diesen Code habe ich in VBA eingesetzt, aber bei der Anwendung kommt jetzt die folgende Fehlermeldung:
"Fehler beim Kompilieren - Außerhalb einer Prozedur ungültig".

Hat jemand eine Idee?
lg Slisher


PS: Leider kann ich die Datei nicht hochladen - egal wo ich die Datei ablege, läßt mich das System die Datei nicht hochladen.