Anzeige
Archiv - Navigation
1244to1248
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

SumCol Farben summieren

SumCol Farben summieren
Hans
Hallo liebe Forumsteilnehmer.
mit der nachfolgenden Funktion ermittle ich die Summe der Werte welche eine bestimmte Hintergrundfarbe haben. Ich würde nun aber gerne nicht aufgrund der Hintergrundfarbe sondern der Schriftfarbe die Summenbildung vornehmen.
Weiß jemand ob es statt der Funktion "sumcol" für die Hintergrundfarbe eine Funktion für die Schriftfarbe gibt.
VG Hans
Function SumCol(Bereich As Range, Farbe As Integer)
Dim Zelle As Range
Application.Volatile
For Each Zelle In Bereich
If Zelle.Interior.ColorIndex = Farbe Then
SumCol = Zelle.Value + SumCol
End If
Next Zelle
End Function

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: SumCol Farben summieren
20.01.2012 22:24:45
Josef

Hallo Hans,
eine für alles;-))
Function ColorSum(ByRef Source As Range, ByVal Color As Integer, Optional ByVal ForeOrBack As Boolean = -1) As Double
  Dim rng As Range, dblSum As Double
  
  Application.Volatile
  
  If Color < 0 Or Color > 56 Then Color = IIf(ForeOrBack, -4142, -4105)
  
  For Each rng In Source
    If IsNumeric(rng) Then
      If ForeOrBack Then
        If rng.Interior.ColorIndex = Color Then dblSum = dblSum + rng
      Else
        If rng.Font.ColorIndex = Color Then dblSum = dblSum + rng
      End If
    End If
  Next
  
  ColorSum = dblSum
  
End Function



« Gruß Sepp »

Anzeige
AW: SumCol Farben summieren
20.01.2012 22:39:52
Hans
Hallo Sepp,
vielen Dank, leider habe ich es nicht ganz verstanden. Bei der ersten Funktion gebe ich in meiner Tabelle ein:
=sumcol(A3:D25;3)
dann erhalte ich die Summe der rot markierten Zellen.
Wenn ich jetzt statt sumcol - colorsum eingebe bekomme ich #Name als Fehlermeldung.
VG Hans
AW: SumCol Farben summieren
20.01.2012 22:45:08
Josef

Hallo Hans,
=ColorSum(A3:D25;3)
für die Zellfarbe
=ColorSum(A3:D25;3;0)
für die Schriftfarbe
und natürlich fie Funktion "ColorSum" in ein allgemeines Modul kopieren.

« Gruß Sepp »

Anzeige
AW: SumCol Farben summieren
20.01.2012 22:50:05
Hans
Hi Sepp,
ja jetzt geht es. Super vielen vielen Dank und schönes Wochenende.
VG Hans

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige