Tæl antal checkboxe = true

Jeg har da en flexibel mulighed, dog uden alm. checkbokse.

Formater kolonne A til wingdings2 og gør kolonnen lidt smallere.

Indsæt denne makro i arkets eget kodemodul (højreklik på arkfanen og vælg "vis programkode")

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Not Intersect(Target, Range("A:A")) Is Nothing Then
      If Target = "" Then Target = "P" Else Target = ""
  End If
End Sub

Nu vil der fremkomme et flueben i cellerne i kolonne A hvis man dobbeltklikker i cellen. Hvis der i forvejen er et flueben vil det forsvinde.

Hvis man vil tælle antallet af flueben (P'er) kan man gøre sådan
=tælv(A:A)
eller
=tæl.hvis(A:A; "P")

Hmmmm - det virker ikke?
Kolonnen er formateret (når jeg skriver P vises et flueben) - kodne er indsat og VBA viser den som du har skrevet den) - men lige meget hvor meget jeg clicker sker der ingenting?


P.S. Bruger office2003

prøv lige at hente denne fil og se om det virker

www.tbdl.dk/excel/flueben.xls

DOUGH - kom lige til at se på makro sikkerhedsniveauet - det stod til høj, så den ikke kunne afvikle makroer, flot.    :-)
Nu virker det.

:-)

Lukker!