1
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
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 258599
Url: https://administrator.de/contentid/258599
Printed on: April 20, 2024 at 01:04 o'clock
1 Comment
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)
