Summe aus Farbfelder adieren

[schluckspecht]

Moin zusammen,
eigentlich wollte ich mit ein Makro die Summe der farbigen Felder von Ak5-Ak35 adieren.
Leider kommt die Anzeige"#Name".
Also dachte ich mir,adiere über Anzahl2(ai5:ai35) *8 - die Summe aus Ai36 in ak36,
und musste feststellen,das Excel falsch rechnet.Mist.
Wer kann mir weiter helfen?
Danke

[marose67]

Hallo,

sind Makros erlaubt?

Tabelle1

	A	B	C
1
2
3

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

Option Explicit

Sub Farben_zählen()
Dim cell As Range
Dim i As Integer
i = 0
For Each cell In Sheets("Tabelle1").UsedRange
    If cell.Interior.ColorIndex <> xlNone Then i = i + 1
Next cell
MsgBox ("Es wurde " & i & " mal Farbe gesetzt")
End Sub

Gruß
Marcus

[schluckspecht]

moin,
dein Makro sieht nach zählen von Farbfelder aus.
Ich möchte aber den Inhalt der Farbfelder addieren lassen.
Und zur Frage,ob Makros erlaubt sind,nein.
Aber,was ich nicht weis,macht mich nicht heiß ;)

[WillWissen]

Hi,

wenn ich das richtig gesehen habe, wurden die farbigen Felder über die bedingte Formatierung erstellt. Wieso summierst du dann nicht nach den angegebenen Bedingungen? Was ich glaube zu wissen ist, dass mit VBA Farben der bF schwer auszulesen sind.

[schluckspecht]

@Willwissen
die bed.Formatierung hab ich in erster Linie zur optischen Übersicht erstellt.
Aber ich hab jetzt eine simple Lösung gefunden.
Hab die Summe der Arbeitstage(j38)*8-die Endsumme von Ai36.
So passt das.

danke

[Klaus-Dieter]

Hallo,

hier ein Beispiel zum Summieren nach Zellen mit bedingter Formatierung.

Code:

Sub FarbSumme1()
    Dim lngZeile As Long
    Dim dblFarbWe As Double
    For lngZeile = 5 To 34
        If Cells(lngZeile, "AK").DisplayFormat.Interior.Color = 14348258 Then
            dblFarbWe = dblFarbWe + Cells(lngZeile, "AK")
        End If
    Next lngZeile
    Cells(36, "AK") = dblFarbWe
End Sub