Farben zusammenzählen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Ester!

Tabelle2

	A	B	C	D
1			Hintergrund	Schrift
2	1		0	0
3	2		91	110
4	3		13	49
5	4		20	117
6	5		126	0
7	6
8	7
9	8
10	9
11	10
12	11
13	12
14	13
15	14
16	15
17	16
18	17
19	18
20	19
21	20
22	21
23	22
24	23
25	24
26	25
27	26
28	27
29	28
30	29
31	30

Formeln der Tabelle

C2 : =colorsum($A$2:$A$31;ZEILE())
D2 : =colorsum($A$2:$A$31;ZEILE();0)
C3 : =colorsum($A$2:$A$31;ZEILE())
D3 : =colorsum($A$2:$A$31;ZEILE();0)
C4 : =colorsum($A$2:$A$31;ZEILE())
D4 : =colorsum($A$2:$A$31;ZEILE();0)
C5 : =colorsum($A$2:$A$31;ZEILE())
D5 : =colorsum($A$2:$A$31;ZEILE();0)
C6 : =colorsum($A$2:$A$31;ZEILE())
D6 : =colorsum($A$2:$A$31;ZEILE();0)

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen Excel Jeanie HTML 3.0 Download
Und diesen Code in ein allgemeines Modul:

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Function ColorSum(Source As Range, Color As Integer, Optional ForeBack As Boolean = -1) As Double
Dim rng As Range, dblSum As Double

Application.Volatile

If Color < 0 Or Color > 56 Then Color = IIf(ForeBack, -4142, -4105)

For Each rng In Source
  If IsNumeric(rng) Then
    If ForeBack 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
'*
'* Rückmeldung wäre nett!
'******************************

Besten Dank für eure Hilfe. Warum gibt es so viele Lösungen dazu? Ich war auf all diesen Seiten und habe auch den Code von th.heinrich versucht. Aber irgendwie scheint es nicht zu klappen. Vielleicht ist es besser, ich schildre mein Problem genauer.
Ich habe in einer Excel-Tabelle einen Kalender erstellen müssen. Es beginnt mit 1. Januar (Zelle A) bis 30. Juni (Zelle GB) und, da es nicht genug Spalten hat, wieder vom 1. Juli (Zelle A) bis 31. Dezember Zelle GE.
Samstage und Sonntage sind gemusterte Zellen, diese muss ich auch nicht zusammenzählen. Die Wochentage, welche ich mit einer Farbe auffüllen muss (rot für Ferien, blau für Feiertage, orange für Überzeit, grün für Militär, hellblau für Weiterbildung etc.) möchte ich zur Kontrolle, nun am Ende die einzelnen Farben zusammenzählen. Z. B. Ferien 15 Tage, Feiertage 6 Tage, Überzeit 4 Tage, Militär 20 Tage. In Spalte A2 steht zuerst der Name der Person, dieser steht auch hinter der letzten Zelle, damit eine bessere Übersicht besteht, wenn die Tabelle ausgedruckt wird. Das heisst nun, in Spalte A2 steht ein Name, in Spalte A3 eine Farbe oder auch keine, wenn keine Ereignis eintrifft. Am Ende nach dem 30. Juni steht wieder ein Name und dann möchte ich die Resultate der verschiedenen Farben erhalten. Ich glaube, diese müssten dann in den nachkommenden Spalten eine für rot, eine für grün etc. erscheinen. Ist wo was möglich?
Brauchst da ein Code oder könnte ich auch jede Zelle, welche ich mit einer Farbe ausfülle, gleichzeitig eine Zahl oder einen Buchstaben hinzufügen, z. B. bei rot jeweils R (oder eine Zahl) und dann diese Ziffern separat zusammenzähle. Wäre dies vielleicht leichter?
Ich danke euch bereits im Voraus. Ich bin sehr froh, dass ihr immer hilft und ich schon viel von euch lernen konnte. Besten Dank nochmals.
Gruss Esther

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread