Liste med mulige værdier

Hvad med at lave det ved hjælp af LOPSLAG()
På et ark opretter du din tabel med mulige værdier:
1;Tekst1
2;Tekst2
3;Tekst3 osv... ( I eksemplet herunder er disse værdier indtastet på Ark2 i område A1:B100

På Ark1 indtaster du værdien i celle A1.
I celle B1 indtaster du formlen =LOPSLAG(A1;Ark2!A1:B100;2)
Denne formel vil så gå over på Ark2 og hente den tilhørende tekst.

LOPSLAG(Opslagsværdi;Tabelområde;Kolonne i tabellen)

På et andet ark henter du så disse data:

Den sidste linie skulle have stået efter de første 5 linier

Man skal kunne vælge de mulige værdier på en dropdownliste på cellen (ved at trykke F4). Lige som ved datavalidering...

Ja ok F4 virker ikke, men der er en lille pil til højre i cellen du ved...

Ikke med datavalidering - du skal bruge en liste eller combobox.

Du kan også lægge de 2 kolonner sammen i en 3 kolonne med denne formel
  =A1&B1
så kan du bruge datavalidering på den 3 kolonne

En combobox eller liste ligger jo nærmest oven på cellen, det skulle gerne være integreret præcis som i datavalidering. Men hvis fx. det er varenumre, vil man jo gerne se navnet på varen, men gemme nummret i cellen. Derfor nytter det vel ikke at lægge værdien i en tredie kolonne så vil man jo gemme værdien "1 tekst1" i cellen eller hva?...

For lige at skære det ud i pap, er det du ønsker:
At selve cellen forsynes med små pile, så du ved hjælp af disse kan udpege nr med tilhørende tekst, hvorefter værdi gemmes i cellen.

Ja dog kun én pil. Prøv at lave datavalidering på en celle og se hvordan det ser ud. Problemet med datavalidering er blot at man kun kan angive én kolonne.

Ok jeg kan se problemet.
hvis dine varenumre er af samme længde kan det godt gøres på min måde,
lidt klodset måske.
=A1&B1="1 tekst1"
hvis du laver datavalidering en kolonne længere til højre,
kan du i kolonnen for sige = højre(d1;1) så får du kun tallet-.
men hvis varenummeret er af forskellig længde er det ikke godt.

for = før

Jeg tror ikke det kan laves direkte i cellen, der er vist ingen vej uden om lidt VBA-programmering. Men så kommer det jo ikke helt til at virke, som du nævner.

VBA er ok, men jeg ved ikke hvordan jeg får listen koblet på cellen via VBA...

Hvis du kan finde ud af at lave en combo så er koden til celleværden her.

Private Sub ComboBox1_Click()
ActiveCell.Value = ComboBox1.Value
End Sub

Du kal bare have klikket ind på den celle du vil have opdateret først.

Jeg ville lave det noget lignende dette her:

Private Sub ComboBox1_Change()
    Range("D5").Value = ComboBox1.List(ComboBox1.ListIndex)
End Sub

Private Sub ComboBox1_GotFocus()
    Dim rCell As Range
    Dim asCells() As String
    Dim lCount As Long
    lCount = Range("A1").CurrentRegion.Rows.Count - 1
    ReDim asCells(lCount, 1)
    lCount = 0
    With ComboBox1
        .Clear
        .ColumnCount = 2
        .ColumnWidths = "20,30"
        For Each rCell In Range("A1").CurrentRegion.Columns(1).Cells
            asCells(lCount, 0) = rCell.Value
            asCells(lCount, 1) = rCell.Offset(0, 1).Value
            lCount = lCount + 1
        Next rCell
        .List = asCells
    End With
    Set rCell = Nothing
End Sub

jeg sender gerne en eks. fil fd@win-consult.com

Kontrolelemet combo skal have følgende værdier i egenskaber.
Boundcolumn 1
Columcount 2
Listfillrange a1:b4 ( kun et eksempel)
Textcolumn 2

resten kan godt være standard.

Ja, sådan kan den os laves :-)
Det kan være en god ide at ændre på ColumnWidth f.eks. til  20 pt;30 pt

Jeg bruger GotFocus hændelsen til at fylde Comboboxen, således området med "varenumre" kan vokse uden at jeg skal ændre i LIstFillRange.
Jeg har lige lavet endnu en lille feature - således der ikke medtages kolonneoverskrifter. Den kan gøres kortere med ListFillRange end jeg havde lavet først.

Private Sub ComboBox1_GotFocus()
    Dim rRegion As Range
    Dim lCount As Long

    Set rRegion = Range("A1").CurrentRegion
    ' This line is only used if the region has headings
    Set rRegion = rRegion.Offset(1, 0).Resize(rRegion.Rows.Count - 1)

    With ComboBox1
        .Clear
        .ColumnCount = 2
        .ColumnWidths = "20,30"
        .ListFillRange = rRegion.Address
    End With
End Sub

Flemmingdahl > hvor gemmer du i cellen ???

Jeg gemmer cellen således - samt har jeg opdaget en lille fejlmulighed - så :

Private Sub ComboBox1_Change()
    Range("D5").Value = ComboBox1.Value
End Sub

Private Sub ComboBox1_GotFocus()
    Dim rRegion As Range
    Dim lCount As Long

    Set rRegion = Range("A1").CurrentRegion
    ' This line is only used if the region has headings
    Set rRegion = rRegion.Offset(1, 0).Resize(rRegion.Rows.Count - 1)

    With ComboBox1
        On Error Resume Next
        .Clear
        On Error GoTo 0
        .ColumnCount = 2
        .ColumnWidths = "20,30"
        .ListFillRange = rRegion.Address
    End With
End Sub

.Clear kan give fejl i forskellige situationer, hvorfor denne lille error ting. ComboBox1_GotFocus kan dog sættes op på egenskaber, men det gør combobox'en statisk frem for dynamisk - hver ting til sin tid.

Ok jeg kan se i eksemplet hvad du mener, men listen er jo ikke helt sat på en celle.

Du kan da bare flytte combobox'en og ændre på størrelsen.

Skulle den nu blive så lille, at du ikke kan se skriften, så gå i egenskaber for comboboxen og ændre på skrifttypen og -størrelsen.

Ja ok men jeg er lidt sart :-). Det er som om boksen ligger oven på cellen.

Ja, den ligger ligsom oven på cellen - men sådan virker den.

Du har helt ret, den ligger ovenpå cellen. Du kan forsøge at tilpasse størrelsen, så den passer med størrelsen på cellen - men den vil altid ligge ovenpå.
Som tidligere sagt, det kan ikke laves i en celle.

Hvis du gerne vil have returneret teksten fra kolonne "2" istedet for varenummeret, så kan det gøres således :
Private Sub ComboBox1_Change()
    With ComboBox1
        If Not (.ListIndex = 0) Then
            On Error Resume Next
            Range("D5").Value = .List(.ListIndex, 1)
        End If
    End With
End Sub