VBA - Summe



Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: VBA - Summe
von: André
Geschrieben am: 13.07.2002 - 17:48:44

Hallo,

was muss ich in ein Modul hereinprogrammieren, um in Spalte A alle Werte, die sich in den grauen Zellen befinden, zu summieren.
Wichtig:
Die Summe soll in Abhängigkeit vom grauen Zellhintergrund sein!

nach oben   nach unten

Re: VBA - Summe
von: Hajo_Zi
Geschrieben am: 13.07.2002 - 17:54:57

Hallo André

wenn es nicht bedingte Formatierung ist, nehme eine Funktion
In Zelle=FarbsummeH(A1:A10;3)


Function FarbsummeH(Bereich As Range, Farbe As Integer)
'   Hintergrund
    Dim Zelle
    Application.Volatile
    For Each Zelle In Bereich
        If Zelle.Interior.ColorIndex = Farbe Then
            FarbsummeH = FarbsummeH + Zelle
        End If
    Next
End Function

das Beispiel ist für Rot die Farbnummer für Dein grau mußt Du mal in der VBA hilfe nachschauen.


Gruß Hajo

nach oben   nach unten

Re: VBA - Summe
von: André
Geschrieben am: 13.07.2002 - 18:11:20

FarbsummeH(A1:A10;3)

-> Das funktioniert leider nicht so! Wo gebe ich den Code ein?

Was bedeutet Application.Volatile????

nach oben   nach unten

Re: VBA - Summe
von: Hajo_Zi
Geschrieben am: 13.07.2002 - 18:20:16

Hallo André


der Code wird in ein Modul eingegeben

Application.Volatile ist die Aktion das bei Zelländerung der Wert neuberechnet wird, dies klappt aber nicht bei Änderung der Farbe.

Gruß Hajo


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Kalender Steuerelement"