Sætte værdi i en ComboBox

ComboBox1.BoundColumn = 1

Properties i Comboboxen er bundet op på kolonne 1.
Hvis jeg med musen vælger data i comboboxen og aflæser ComboBox.value, får jeg primær nøglen.

ok er det ikke den du vil have, hvis du vil have den i kolonne 2 i stedet, skal du bare rette 1 til 2

Jeg vil gerne sætte værdien efter kolonne 1 og vise kolonne 2.

Vil du gemme den i en celle
Range("A1") = ComboBox1.column(1)

for kun at vise kolonne 2 vælger du under ColumnWidth =  0; 40
Dette betyder at kolonne 1 ikke vises

for at sætte en værdi (startværdi) i comboboxen skal du kende det indexnummer.
for at finde dette kan man køre en løkke som denne

v = "7035"
For x = 0 To ComboBox1.ListCount - 1
    If ComboBox1.List(x) = v Then
    ComboBox1.ListIndex = x
    Exit For
    End If
Next

Først loader jeg data ind i comboen fra en database.
Så vil jeg gerne have sat værdien i comboen, så det er data svarende til den værdi jeg sætter der bliver vist.

Eksempel på data i comboen.
Kolonne 1    Kolonne2
1            Hans
2            Birger
3            Ole

Så vil jeg godt sætte værdien af comboen til 2, så der står Birger i comboen.

Private Sub UserForm_Activate()
v = "2"
For x = 0 To ComboBox1.ListCount - 1
    If ComboBox1.List(x) = v Then
    ComboBox1.ListIndex = x
    Exit For
    End If
Next

End Sub

Du kan afprøve følgende eksmepel:
Opret i ("Ark1") følgende værdier:
A1 = 1 B1 = Hans
A2 = 1 B2 = Birger
A3 = 3 B3 = Ole

Formater din ComboBox1 således:

BoundColumn = 1
ColumnCount = 2
ColumnWidths = 0 pt; 40 pt
MatchRequited = True
RowSource = A1:B3 (Hvis du vil refererer til et andet ark, end det aktive ark skal du indsætte arknavnet før cellereferencen, eksempelvis Ark2!A1:B3

Opret nedenstående kode til din ComboBox1_Change
   
    Private Sub ComboBox1_Change()
    Dim varName As String, varIndex As Long, varFind As Long, varLoop As Long
   
    If IsNumeric(Me.ComboBox1.Text) = False Then Exit Sub
    varIndex = ComboBox1.Text 'første gang vil dette være et tal
    varFind = Sheets("Ark1").Cells(1, 1).Value
    Do Until varFind = varIndex
        varFind = Sheets("Ark1").Cells(1, 1).Offset(varLoop, 0).Value
        varLoop = varLoop + 1
    Loop
    varName = Sheets("Ark1").Cells(1, 1).Offset(varLoop, 1).Value
    ComboBox1.Text = varName
    End Sub
   
Med ovenstående kode kan du nu indtaste et tal i Kombinationsboksen. Det indtastede tal søges der efter i arket med værdier. Når tallet findes i kolonne A, vil den tilhørende tekst i kolonne B blive sat ind i Kombinationsboksen.

Da BoundColumn = 1 og MatchRequired = True vil en tekstindsættelse blive afvist, derfor linjen med If Isnumeric(.......

Håber ovenstående hjælper dig.

Mvh
Frank Morley

Jeg er ikke interesseret i at indtaste 2 i comboboxen, men sætte værdien via kode.

I Access kan man via kode skrive
ComboBox1 = 2

Og så er det hele ordnet for en.
Der må være en mere elegant løsning i Excel, end ovenstående indlæg?

Jo da. Du kan bare gøre sådan:

ComboBox1.ListIndex = 2

men grunden til at vi giver dig lidt mere kode er jo for at fejlsikre

Kolonne 1    Kolonne2
10            Hans
23            Birger
35            Ole

Her vil combobox1 = 2 i access vise birger og det samme vil gøre sig gældende med excel's Combobox1.ListIndex=2

Hvis din ComboBox1 har BoundColumn = 1 (til håndtering af Index værdien, som jo er et tal) så kan du blot skrive

ComboBox1.Value = 2 (nøjagtig som du selv har erfaret i Access). Du kan ovenikøbet udelade .Value

Sæt ligeledes MatchRequited = True (som tidligere foreslået).

Mvh
Frank Morley

Så fandt jeg fejlen.

Alle data i kolonne 1 havde et mellemrum foran.
Jeg har nu trimmet alle data i kolonne 1 og bruger koden.

ComboBox1 = 2

Og det virker.
Tak for jeres indsats.