ist es möglich farbig markirte Felder ohne sonstigen Inhalt über die Zählenwenn-Funktion zur zählen?
Gruß
Stefan
ist es möglich farbig markirte Felder ohne sonstigen Inhalt über die Zählenwenn-Funktion zur zählen?
Gruß
Stefan
Holger
die Formel
=Farbsumme(A1:A70;4)
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)
gruss geri
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen