Excel formatierte Zellen summieren
Hallo,
https://drive.google.com/file/d/0BzQM-ZoFrfL8NVFPQjVXX1doTzg/view?usp=sh ...
ich möchte das Excel anhand der Schriftfarbe gewisse Werte summiert.
Folgendes habe ich schon getan.
Public Function summerot(ByVal Bereich As Range) As Long
Application.Volatile
Dim Zelle As Range
For Each Zelle In Bereich
If Zelle.Font.ColorIndex = 3 Then
summerot = summerot + Zelle.Value
End If
Next
End Function
Dann habe ich in die Zelle =summerot(A1:A5;3) eingetragen aber nichts passiert.
MfG
Florian86
https://drive.google.com/file/d/0BzQM-ZoFrfL8NVFPQjVXX1doTzg/view?usp=sh ...
ich möchte das Excel anhand der Schriftfarbe gewisse Werte summiert.
Folgendes habe ich schon getan.
Public Function summerot(ByVal Bereich As Range) As Long
Application.Volatile
Dim Zelle As Range
For Each Zelle In Bereich
If Zelle.Font.ColorIndex = 3 Then
summerot = summerot + Zelle.Value
End If
Next
End Function
Dann habe ich in die Zelle =summerot(A1:A5;3) eingetragen aber nichts passiert.
MfG
Florian86
Kommentieren
Teilen
Auf Facebook teilen
Auf X (Twitter) teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 258599
Url: https://administrator.de/forum/excel-formatierte-zellen-summieren-258599.html
Ausgedruckt am: 15.05.2025 um 23:05 Uhr
1 Kommentar
Hallo Florian86,
du musst die Funktion in ein Makro-Modul schreiben, dein Code befindet sich im Codeabschnitt der Tabelle1 und außerdem hast du der Funktion einen ungültigen Range übergeben .
Grüße Uwe
du musst die Funktion in ein Makro-Modul schreiben, dein Code befindet sich im Codeabschnitt der Tabelle1 und außerdem hast du der Funktion einen ungültigen Range übergeben .
=summerot(A1:A5;3)
=summerot(A1:A5)
