Tæl celler med formateret baggrund

Det kan du ikke - men du kan tælle på de kriterier, der farver cellerne.

hvordan?

..... hvis det vel at mærke sker emd betinget formatering.

Jeg markerer selv cellerne manuelt (markerer fridage i en kalender)

Så må jeg jo ty til VBA

Er det kun lørdage og søndage kan du tælle på funktionen UGEDAG("dato i celle").

Andre fridage kunne markeres med en afkrydsning eller lignende, og så lade betinget formatering klare farvningen ud fra afkrydsning.

Det skal være markeringen der tælles på...

Nu har jeg lavet en macro, der tæller alle magneta-markeringer i et bestemt område.

Kan man få den til at afvikles automatisk, hver gang man ændrer en markering i det pågældende område?

" Det skal være markeringen der tælles på... "
... og markeringen skal indsættes manuelt, ved at farve en dag i en kalender jeg har "tegnet"

Har lavet en knap, man skal trykke på hver gang man ændrer en markering - den aktiverer følgende macro

Sub CountColors()

    Dim iRow As Long
    Dim iCol As Long
    Dim cntMagneta As Long
    Dim cntYellow As Long

    For iCol = 5 To 16
      For iRow = 8 To 38
      Cells(iRow, iCol).Select
      If Selection.Interior.Pattern = xlSolid Then
        If Selection.Interior.ColorIndex = 6 Then 'Yellow
          cntYellow = cntYellow + 1
        End If
        If Selection.Interior.ColorIndex = 7 Then 'Magneta
          cntMagneta = cntMagneta + 1
        End If
      End If
      Next iRow
     
      Cells(43, iCol).Value = cntYellow
      Cells(42, iCol).Value = cntMagneta
      cntYellow = 0
      cntMagneta = 0
    Next iCol
    MsgBox "Sum af feriedage og feriefridage opdateret"
End Sub

irow og icol er valgt efter hvor jeg lige har tastet min kalender ind i excel.

Lukker

Flemming Dahl har lagt en funktion til formålet på sin hjemmside:
http://www.smartoffice.dk/Tips/LibrarySource.asp?App=Excel&Lib=ColoredCellsCount