Tabellenkalkulation

Felder mit Hintergrundfarbe zählen

Diskussionsgruppen
Betriebsysteme: Windows 7; WindowsVista; WindowsXP; Linux; BS-Sonstige
Software: Textverarbeitung; Tabellenkalkulation; Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; E-Mail/Outlook; Internet Browser; SW-Sonstige
Hardware: Mainboard/CPU/RAM; Grafikkarten; Peripherie; HW Sonstiges
Netzwerk: DSL; W-Lan; Telekommunikation; NW-Sonstiges
Programmierung: Skripte(PHP,ASP,Perl...); Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke

Frage

Hallo zusammen, kann mir (bitte!) jemand sagen, ob es möglich ist, Felder auf Basis der Hintergrundfarbe zu zählen, summieren etc. ...? Danke im Voraus! Alfred

Antwort 1 von fürLau

Hallo Alfred

Ja, das ist möglich - allerdings nur mit einem Makro(VBA).

Option Explicit

Private Sub CommandButton1_Click()
Dim rngCell As Range, i%
For Each rngCell In ActiveSheet.UsedRange
Debug.Print rngCell.Address, rngCell.Interior.ColorIndex
If rngCell.Interior.ColorIndex <> -4142 Then i = i + 1
Next
Range("C2").Value = i
End Sub

Dieser Code zählt alle eingefärbten Zellen und schreibt die gefunden Anzahl nach Zelle C2.

Gruß

Antwort 2 von nighty

hi all :)

vielleicht eine benutzerdefinierte function

gruss nighty

alt/f11/allgemeines modul
einfuegen/function

Rem =SumInteriorColor(A1:A3;3)

Function SumInteriorColor(Zellen As Range, farbe As Long) As Double
Dim Zelle As Range
SumInteriorColor = 0
For Each Zelle In Zellen
If Zelle.Interior.ColorIndex = farbe Then
SumInteriorColor = SumInteriorColor + Zelle.Value
End If
Next
End Function

Antwort 3 von nighty

hi all :)

Rem =SumInteriorColor(Bereich;FarbWahl)

gruss nighty

Antwort 4 von nighty

hi all :)

korrigiert :)

gruss nighty

Function SumInteriorColor(Zellen As Range, farbe As Long) As Double
Application.Volatile
Dim Zelle As Range
SumInteriorColor = 0
For Each Zelle In Zellen
If Zelle.Interior.ColorIndex = farbe Then
SumInteriorColor = SumInteriorColor + Zelle.Value
End If
Next
End Function