Execl: Formatierungen zählen

Forumthread: Execl: Formatierungen zählen
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Execl: Formatierungen zählen

03.04.2003 15:44:12

Jogibaer

Tach,

hab folgendes Problem: habe Zellen in Excel die mit einer anderen Farbe (z. B. gelb) formatiert sind. Nun möchte ich von Excel zählen lassen wieviele Zellen z. B. gelb formatiert sind

WIE STELLE ICH DAS AN BZW. GEHT DAS ÜBERHAUPT??????

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Execl: Formatierungen zählen

03.04.2003 15:55:57

ChrisL
Re: Execl: Formatierungen zählen

03.04.2003 16:07:26

geri

Re: Execl: Formatierungen zählen

03.04.2003 15:55:57

ChrisL

Hallo Jogibaer

Schau mal hier...
https://www.herber.de/forum/archiv/168to172/t170185.htm
https://www.herber.de/forum/archiv/168to172/t169465.htm

Gruss
Chris

Re: Execl: Formatierungen zählen

03.04.2003 16:07:26

geri

die Formel
=Farbsumme(A1:A70;4) die 4 steht für die Farbe 4=grün
in Modul
Option Explicit
Function Farbsumme(Bereich As Range, Farbe As Integer)
Application.Volatile ' damit bei änderung ausgeführt wird
Dim Zelle
Farbsumme = 0
For Each Zelle In Bereich
If Zelle.Interior.ColorIndex = Farbe Then
Farbsumme = Farbsumme + 1
End If
Next
End Function
Sub Farbnummer()
Dim i As Integer
i = ActiveCell.Interior.ColorIndex
MsgBox " Farbnummer " & i
End Sub
versuche es so (glaube ist von HajoZi)