Public Sub AntalPostNr() I = 0 For Each C In Sheets("Ark1").Range("A:A") If C = "" Then Exit Sub If C <> OldC Then I = I + 1 Sheets("Ark2").Cells(I, 1) = C Sheets("Ark2").Cells(I, 2).FormulaR1C1 = "=COUNTIF(Ark1!C[-1],RC[-1])" OldC = C End If Next C End Sub
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.