Hallo Forum,

...zählen von Farben wurde im Forum schon öfters behandet - funktioniert!
zählen von Randmarkierungen erscheint fehler 438 - objekt unterstützt eigenschaft oder methode nicht

Mein Problem ich habe die Interior ausgeschöpft und wollte auf die Borders übergehen, damit keine überlagerungen beim Markieren bzw zählen passieren.

hier Teile des codes:
if... then
Cells(zeile, spalte).Borders(xlEdgeRight).LineStyle = xlContinuous
...
For Each Cell In Selection
If Cell.Interior.ColorIndex = 6 Then gelb = gelb + 1
If Cell.Interior.Borders(xlEdgeRight).LineStyle = xlContinuous Then rand = rand + 1
Next

fehler in dieser Zeile:
If Cell.Interior.Borders(xlEdgeRight).LineStyle = xlContinuous Then rand = rand + 1

geht das wirklich nicht oder mach ich was falsch?

welche formatierungen lassen sich noch zählen?

Danke für eure Hilfe
Michael