Summe ohne Graue Zellen

Hallo Forum,
kann man eine Zelle so formatieren, dass folgendes zutrifft:
=SUMME Wenn A1 grau ist zähle nicht mit; sonst mitzählen (standardschriftfarbe schwarz) + Wenn B1 grau ist zähle nicht mit; sonst mitzählen (standardfarbe schwarz) + Wenn C1 grau ist zähle nicht mit; sonst mitzählen (standardfarbe schwarz) + Wenn D1 grau ist zähle nicht mit; sonst mitzählen (standardfarbe schwarz)
dieses ergebniss soll wiederum durch die anzahl der gezählten 'schwarzen' schrift geteilt werden, um somit den durchschnitt zu erhalten. Dazu formatiere ich noch eine zusätzliche spalte.
Wäre nett wenn mir jemand hilft und mir auch erklärt was die Befehle, wenn jemand mir die schickt, im einzelnen bedeuten, damit ich das nachvollziehen kann.
:)
Ich bin immernoch auf der suche nach kostenlosen kompendien über excel ...
Hat da wer nützliche links ???
Grüsse,
Max

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Rechnen() Dim I&, LetzteZeile&, Spalte&, Summe As Double Spalte = 5 'Spalte E LetzteZeile = Cells.SpecialCells(xlCellTypeLastCell).Row Summe = 0 'Cells(I, 1).Interior.ColorIndex = 7 For I = 2 To LetzteZeile If Cells(I, Spalte).Interior.ColorIndex <> 15 Then '15=grau Summe = Summe + Cells(I, Spalte) End If Next Cells(LetzteZeile + 1, Spalte) = Summe ' Summe in die letzte Zeile Spalte 5 eintragen. End Sub

Sub Rechnen() ::: hier beginnt das Makro Dim I&, LetzteZeile&, Spalte&, Summe As Double ::: Welche Variablen werden hier angesprochen ? Spalte = 5 'Spalte E ::: Hier gebe ich die Zielspalte an ??? LetzteZeile = Cells.SpecialCells(xlCellTypeLastCell).Row ::: ?was passiert denn hier Summe = 0 ::: Wofür steht die 0 ??? 'Cells(I, 1).Interior.ColorIndex = 7 ::: Was passiert hier ? For I = 2 To LetzteZeile ::: Das I steht für die Zeile 2 ok. If Cells(I, Spalte).Interior.ColorIndex <> 15 Then '15=grau ::: Summe = Summe + Cells(I, Spalte) End If Next Cells(LetzteZeile + 1, Spalte) = Summe ' Summe in die letzte Zeile Spalte 5 eintragen. End Sub

Sub Rechnen() Dim I&, LetzteZeile&, Spalte&, Summe As Double Spalte = 2 'Spalte L LetzteZeile = Cells.SpecialCells(xlCellTypeLastCell).Row Summe = 0 'Font.ColorIndex = 15 For I = 2 To LetzteZeile If IsNumeric(Cells(I, Spalte)) Then If Cells(I, Spalte).Font.ColorIndex <> 15 Then '15=grau Summe = Summe + Cells(I, Spalte) End If End If Next Cells(LetzteZeile + 1, Spalte) = Summe ' Summe in die letzte Zeile Spalte 5 eintragen. End Sub

Hallo,
hier mal ein paar benutzerdefinierte Funktionen:


Function Summewenn_Farbe(DataRange, ColorIndex)
Application.Volatile
Summe = 0
For Each cell In DataRange
If cell.Font.ColorIndex = ColorIndex And IsNumeric(cell.Value) Then
Summe = Summe + cell.Value
End If
Next
Summewenn_Farbe = Summe
End Function


Function Summewenn_nicht_Farbe(DataRange, ColorIndex)
Application.Volatile
Summe = 0
For Each cell In DataRange
If cell.Font.ColorIndex <> ColorIndex And IsNumeric(cell.Value) Then
Summe = Summe + cell.Value
End If
Next
Summewenn_nicht_Farbe = Summe
End Function


Function Mittelwertwenn_Farbe(DataRange, ColorIndex)
Application.Volatile
Summe = 0
Anzahl = 0
For Each cell In DataRange
If cell.Font.ColorIndex = ColorIndex And IsNumeric(cell.Value) Then
Summe = Summe + cell.Value
Anzahl = Anzahl + 1
End If
Next
Mittelwertwenn_Farbe = Summe / Anzahl
End Function


Function Mittelwertwenn_nicht_Farbe(DataRange, ColorIndex)
Application.Volatile
Summe = 0
Anzahl = 0
For Each cell In DataRange
If cell.Font.ColorIndex <> ColorIndex And IsNumeric(cell.Value) Then
Summe = Summe + cell.Value
Anzahl = Anzahl + 1
End If
Next
Mittelwertwenn_nicht_Farbe = Summe / Anzahl
End Function

Letztere liefert das gewünschte Ergebnis. Formeleingabe wie folgt:
=Mittelwertwenn_nicht_Farbe(B5:E5;15)

Den Code mußt Du in ein normales Modul kopieren.
Gruß
Martin Beck

Function Mittelwertwenn_nicht_Farbe(DataRange, ColorIndex) Application.Volatile Summe = 0 Anzahl = 0 For Each cell In DataRange If cell.Font.ColorIndex <> ColorIndex And IsNumeric(cell.Value) And cell.Value > 0 Then Summe = Summe + cell.Value Anzahl = Anzahl + 1 End If Next Mittelwertwenn_nicht_Farbe = Summe / Anzahl End Function

Function Mittelwertwenn_Farbe(DataRange, ColorIndex) Application.Volatile Summe = 0 Anzahl = 0 For Each cell In DataRange If cell.Font.ColorIndex = ColorIndex And IsNumeric(cell.Value) Then Summe = Summe + cell.Value Anzahl = Anzahl + 1 End If Next Mittelwertwenn_Farbe = Summe / Anzahl End Function

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Summe ohne Graue Zellen

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread