Tag fram ett sökfönster i excel (ctrl+B)
Då har du i övre högra hörnet en knapp som heter [Format].
Där kan du bestämma att du vill söka efter celler med röd bakgrundsfärg (fliken fyllning).
Bestäm fär ock tryck [OK]. Sen trycker du knappen [Sök alla]
Nu får du fram en lista på alla röda celler.
Tyvärr inte så enkelt att använda i ett makro.
Om du spelar in det du gjorde så får du bara fram en start-kode
Sub Makro2()
With Application.FindFormat.Interior
.Color = 255
End With
End Sub
Det betyder att alla sökningar som kommer efter i VBA koden söker efter den formateringen
Sub blä()
Dim sökresultat
Application.FindFormat.Clear
Application.FindFormat.Interior.Color = 255
Set sökresultat = Cells.Find(What:="*", SearchFormat:=True)
i = 1
If sökresultat Is Nothing Then
MsgBox "0 röda"
Exit Sub
End If
sökresultat.Activate
strStartpunkt = sökresultat.Address
Do Until SistHittad = strStartpunkt
With Cells.FindNext(after:=ActiveCell)
SistHittad = .Address
.Activate
End With
i = i + 1
Loop
MsgBox i & " röda"
End Sub
Men det sket sig. Av någon anledning hittar inte VBA de tomma cellerna
Så jag tror nästan att du måste loopa ignom varje cell.
Det blir ett kort men inneffektivt makro som bara får titta i området du valt
Sub Uggh()
Dim rCell As Range
i = 0
For Each rCell In Selection.Cells
If (rCell.Interior.Color = 255) Then i = i + 1
Next
MsgBox "Det finns " & i & " röd(a) celler i det valda området"
End Sub