Afkrydsningsfelt

lave afkrydsningsfelt og formater kontrol element til "værdi=markeret"
brug celle kæde a5


=TÆL.HVIS($a$5;"SAND")

brug denne formel i betinget formatering.

og vælg b, c, d og e som område

vælge derefter en ønsket farve

hvis du har problemer, så skriv din mail i næste tråd så sender jeg excel ark med eksempel.

Når det er så mange, er det nok lettest med en makro
Indsæt koden i et alm. modul, Aktiver aktuel ark og kør
Checkboxe indsættes fra celle A2 til A51
Du kan finjustere placering ved at taste F5, vælg speciel
sæt prik i Objekter og klik ok
Med alle boxe markeret, kan du med piletater justere placering.

Sub IndsætBox()
ned = 11.3
Range("A2:A60").Font.ColorIndex = 2
Range("B2:E51").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$A2=SAND"
Selection.FormatConditions(1).Interior.ColorIndex = 4
For t = 1 To 50
Cells(t, 1).Select
ActiveSheet.CheckBoxes.Add(11.4, ned, 19.2, 16.8).Select
    With Selection
        .Value = xlOff
        .LinkedCell = "$A$" & t + 1
        .Display3DShading = False
    End With
Selection.Characters.Text = ""

ned = ned + 13.2
Next
Cells(1, 1).Select
End Sub

tak for jeres svar, - jeg kigger på dem i aften.

Andersen's svar virker fint, tak for det.

Excelent dit svar er jo fantastisk smart, den kan jeg sørme også bruge. Læg et svar, så deler i point.
Hvad nu hvis man for brug for flere rækker kan man så indsætte rækker i din Box, eller sletter man og redigerer i scriptet?

ok, ja slet i arket, og ret i koden og kør igen

Lige til sidst Excelent, hvordan sætter man start værdien i afkrydsningsfelterne til falsk? - som det er nu er værdien blank.

range("a1:a51")=false

indsæt fx lige efter "NEXT"