title image


Smiley wenn es auch VBA sein darf ...
Hallo



Alternativ zu den beiden Formelangeboten von Fraenkie76 und WalterK

hier eine VBA-Lösung.



Code ins Tabellenblatt



Option Explicit

Sub ZeigeFarbwert()

Dim Farbe As Byte

Farbe = Cells(11, 1).Interior.ColorIndex

'hier lese ich den Farbwert ein, den ich suche. Bei mir ist hellblau = FarbIndex 8

MsgBox Farbe

End Sub



Sub ZaehleFarbe()

Dim C As Variant

Dim X As Long

X = 0

For Each C In [SpalteA]

'hier habe ich der komplette SpalteA den Namen "SpalteA zugewiesen!

If C.Interior.ColorIndex = 8 Then

X = X + 1

End If

Next

MsgBox "Zellen mit hellblauer Hintergundfarbe gibt es in SpalteA " & X & " mal"

End Sub






Bis bald ...


geschrieben von

Anhang
Bild 22841 zu Artikel 1016329

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: