mulighed for en 'Tjek-boks ' i Excel

Den her virker.
Sæt den ind i arkets kodeark, ikke i ThisWorkbook eller i et modul.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    With Target
        Cancel = True
      If .Value = Chr(252) Then
            .Value = ""
        Else
            .Value = Chr(252)
            .Font.Name = "Wingdings"
            .Font.Bold = True
        End If
    End With
End Sub


Eneste problem jeg lige kan få øje på er at den virker i alle celler på arket, dvs. hvis du dobbeltklikker i en hvilken som helst celle sætter den et checkmærke, uanset om der er data i cellen eller ej.

I Excel 2007:
På fanen "Udvikler" skal du klikke på "Designtilstand".
Klik på "Indsæt" og vælg "Afkrydsningsfelt"

Når du har indsat feltet kan du se/ændre egenskaberne
Klik på feltet og vælg "Egenskaber" på "Udvikler" fanen.

I Excel 2003
Du skal i menuen "Vis", og her skal du finde "Værktøjslinier". Sæt hak i "Kontrolelementer"

Nu har du mulighed for at lave afkrydsningsfelter og andre ting.

Når du har sat dit afkrydsningsfelt ind på dit ark, skal du "højre" klikke på det og vælge "Vis programkode", herefter kan du skrive den kode du skl bruge.