28.08.2019, 09:49
Hallo liebe Excel Freunde,
Ich habe über VBA folgendes Modul erstellt:
Function Farbsumme(Bereich As Range, Farbe As Integer)
Dim Zelle As Range
Application.Volatile
For Each Zelle In Bereich
If Zelle.Interior.ColorIndex = Farbe Then
Farbsumme = Farbsumme + Zelle
End If
Next
End Function
Jetzt werden alle Zahlen addiert die als Hintergrund die Farbe haben die in der Formel von mir angegeben wird. Ich wähle zB die 6, weil ich will dass alle Zellen die Gelb hinterlegt sind addiert werden sollen.
Das klappt auch alles, jedoch mit einem Umweg. Ich muss erst auf die Formel gehen und dann nochmal enter drücken und dann aktualisiert sich die Zahl. Also wenn ich in den markierten Zellen eine Zelle gelb markiere, folgt die Addition nicht automatisch sondern nur wenn ich dann nochmal auf die Zelle gehe und enter drücke.
Habt ihr das Verbesserungsvorschläge? Wie kann ich das umschreiben, so das dass direkt automatisch funktioniert?
Danke im voraus
Ich habe über VBA folgendes Modul erstellt:
Function Farbsumme(Bereich As Range, Farbe As Integer)
Dim Zelle As Range
Application.Volatile
For Each Zelle In Bereich
If Zelle.Interior.ColorIndex = Farbe Then
Farbsumme = Farbsumme + Zelle
End If
Next
End Function
Jetzt werden alle Zahlen addiert die als Hintergrund die Farbe haben die in der Formel von mir angegeben wird. Ich wähle zB die 6, weil ich will dass alle Zellen die Gelb hinterlegt sind addiert werden sollen.
Das klappt auch alles, jedoch mit einem Umweg. Ich muss erst auf die Formel gehen und dann nochmal enter drücken und dann aktualisiert sich die Zahl. Also wenn ich in den markierten Zellen eine Zelle gelb markiere, folgt die Addition nicht automatisch sondern nur wenn ich dann nochmal auf die Zelle gehe und enter drücke.
Habt ihr das Verbesserungsvorschläge? Wie kann ich das umschreiben, so das dass direkt automatisch funktioniert?
Danke im voraus