Et kryds i et af 3 felter

Nu ved jeg ikke lige, hvad det er, du spørger om, men har du overvejet en rulleliste med de 3 valg i stedet for?

Ja, men det duer ukke da det lige såmeget er en visualisering af en status

Lige en precisering
Hvis jeg nu afkrydsede limitered så skulle krydset i operativ forsvinde

        Operativ    Limiteret    Non/OP
Status        x

Du kan jo sagtens lave en rulleliste og sætte betinget formatering på kolonne, så du f.eks. får en farve for hver af dine valgmuligheder. Så kan du også sætte filter på og f.eks. få en liste kun for Operativ, eller for Operativ og limiteret osv. Men nok om det.

Jeg har lavet lidt kode, hvor jeg får ud fra, at dine 3 valgkolonner står i hhv. kolonne 2, 3 og 4. Hvis de ikke går, må du rette til. Koden skal placeres i ThisWorkbook.

**************
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Select Case Target.Column
        Case 2
            If Target.Text <> "" Then
                Target.Offset(0, 1) = ""
                Target.Offset(0, 2) = ""
            End If
        Case 3
            If Target.Text <> "" Then
                Target.Offset(0, -1) = ""
                Target.Offset(0, 1) = ""
            End If
        Case 4
            If Target.Text <> "" Then
                Target.Offset(0, -1) = ""
                Target.Offset(0, -2) = ""
            End If
    End Select
End Sub
**************

Word-hajen

Da jeg ikke er en haj som dig må jeg presicere, krydserne skal sættes i celle E6, F6 og G6.

Er det kun i én række? Dvs. at du ikke har en hel masse rækker i en oversigt? Men kun lige nøjagtig de 3 specifikke celler?

Nej jeg har 3 x 3 cellet, hvor hver række hænger sammen.

          Operativ  Limiteret  Non/Op
Status 1    X

Status 2              X

Status 3                        X

Kolonne e = 5, f = 6 og g = 7, dvs. at du "bare" retter Case 2 til Case 5, Case 3 til Case 6 osv.

Men jeg tænkte på - hvis du har andre ark, der bliver benyttet i smme fil, giver ovenstående kode lidt problemer. For den er nemlig ligeglad med, hvad det er for et ark - hvilket betyder, at koden også virker på andre ark i din fil. Har du andre ark i filen, der bliver benyttet, bør du indføje et tjek på arknavnet (god idé uanset hvad).

***************
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Sh.Name = "Sheet1" Then 'ret til navnet på dit ark
        Select Case Target.Column
            Case 5
                If Target.Text <> "" Then
                    Target.Offset(0, 1) = ""
                    Target.Offset(0, 2) = ""
                End If
            Case 6
                If Target.Text <> "" Then
                    Target.Offset(0, -1) = ""
                    Target.Offset(0, 1) = ""
                End If
            Case 7
                If Target.Text <> "" Then
                    Target.Offset(0, -1) = ""
                    Target.Offset(0, -2) = ""
                End If
        End Select
    End If
End Sub
****************

Tak for hjælpen

Velbekomme.

Kan se, at du er ny :-) Det er kutyme at acceptere et svar, når man har fået den hjælp, man skulle bruge. Så får svareren de udlovede point og spørgsmålet bliver "lukket" (brugerne kan se, at spørgsmålet er besvaret).

http://expfaq.dk/

Unskyld, ja jeg er ny her.

Jeg håber at det nu er lykkedes mig at give points.

Ja, det er det - takker :-)