#438733 Excel 2019 - Zellen mit bestimmter Schriftfarbe zählen (pc.sw.office)

verfaßt von manes , Köln, 29.04.2020, 19:54:44

Hallo
Ohne VBA nicht machbar.

VBA-Lösung:
Option Explicit

Function AnzFarbe(Bereich As Range, Farbe As Long)
Dim c As Range
For Each c In Bereich.Cells
AnzFarbe = AnzFarbe + Abs(c.Font.Color = Farbe)
Next
End Function

Sub Zelfarbe()
MsgBox ActiveCell.Font.Color
End Sub

FFPX
Manes

--
Also wenn ich ehrlich sein sollte, müsste ich lügen!

gesamter Thread: