Function ColorCell(rRange As Range, rColor As Range) As Double Dim rCell As Range, iColor As Integer Dim dCount As Double Application.Volatile For Each rCell In rRange If rCell.Interior.ColorIndex = rColor.Interior.ColorIndex Then dCount = dCount + 1 Next rCell ColorCell = dCount End Function
Sub FindFarve() Dim intAntal As Integer Range("B1").Select Do Until IsEmpty(ActiveCell) If ActiveCell.Interior.ColorIndex = 10 Then intAntal = intAntal + 1 ActiveCell.Offset(1, 0).Select Loop Range("A2").Select ActiveCell = intAntal End Sub
Hej Tida Optællingen virker fint, men det sker ikke automatisk når der ændres på antallet af grønne felter. Jeg skal ind og ændre i "Formel Linien" før den opdatere. Er der en løsning på dette?
Til CoolKey - Jeg kan ikke få den til at virke. Er der noget info som jeg ikke har modtaget. Vis evt. eks.
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.