Hej!

Jag har gjort en lista i celler via 'Data/Validation...'. Det är olika korta texter som man kan välja. Nu vill jag att man ska kunna skriva in egen text, men det går ju inte när det är en lista. Kan man med en kod få bort "listan" i just den cellen om man t.ex väljer texten "Egen text" i listan. Så att cellen blir fri att skriva i. Det är i 2003.

Tack på förhand!
Peter

Använd eventet Worksheet_Change
Kolla om Target.value är den text du vill
skall trigga ändringen i ditt fall Egen text

Om cellen innehåller den texten tar du bort
valideringen och texten

nåt sånt här oprövat

Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
        If .Value = "Egen text" Then
            .Validation.Delete
            .ClearContents
        End If
    End With
End Sub

Tack så mycket Thommy. Funkar kanonbra. Tack! /Peter

Ajaj, fick lite problem ändå. Cellen det gäller är merged cell, och jag får felmeddelandet "Cannot change part of merged cell." Lyckas inte klura ut hur man kommer runt detta. Vad kan man göra? /Peter

Den hänger upp sig på ".ClearContents" /P

Prova med

.value = ""

istället

Samma error. Den gillar inte att man sammanfogat celler. Jag har 10 celler i bredd där texten ska va. Ska kolla om man kan använda första cellen till listan och att texten ändå skrivs ut på de 10.

Funkar delvis, man måste gå ur cellen och in igen för att det ska bli bra. Typ att man går ner till cellen under och upp igen. Kan du hjälpa mig med sådan kod så kan det funka. /P

Har testat den här koden på
på en cell med 10 celler sammanfogade
och det fungerar

Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
        If .Value = "Egen text" Then
            .Validation.Delete
            .Value = ""
            .Offset(1, 0).Select
            .Select
        End If
    End With
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    With Target.Cells(1, 1)
        If .Value = "Egen text" Then
            .Validation.Delete
            .Value = ""
            .Offset(1, 0).Select
            .Select
        End If
    End With
End Sub

Du är en klippa, båda funkar kanon.

' If .Value = "Egen text" Then
.Validation.Delete
.Value = "" '

Fårstår jag men du får gärna förklara resten.

Tack så hemskt mycket!
Peter

Detta flyttar markeringen en rad ned i samma kolumn

 .Offset(1, 0).Select

 .Select

1000 tack!

Peter