Microsoft Excel

Herbers Excel/VBA-Archiv

SumCol Farben summieren | Herbers Excel-Forum


Betrifft: SumCol Farben summieren von: Hans
Geschrieben am: 20.01.2012 22:18:35

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

  

Betrifft: AW: SumCol Farben summieren von: Josef Ehrensberger
Geschrieben am: 20.01.2012 22:24:45


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 »



  

Betrifft: AW: SumCol Farben summieren von: Hans
Geschrieben am: 20.01.2012 22:39:52

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


  

Betrifft: AW: SumCol Farben summieren von: Josef Ehrensberger
Geschrieben am: 20.01.2012 22:45:08


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 »



  

Betrifft: AW: SumCol Farben summieren von: Hans
Geschrieben am: 20.01.2012 22:50:05

Hi Sepp,

ja jetzt geht es. Super vielen vielen Dank und schönes Wochenende.

VG Hans


  

Betrifft: AW: SumCol Farben summieren von: Andre´
Geschrieben am: 20.01.2012 22:28:31

Hallo Hans,

schau mal hier:

https://www.herber.de/forum/archiv/1072to1076/t1073503.htm#1073503

MFG Andre


Beiträge aus den Excel-Beispielen zum Thema "SumCol Farben summieren"