Combobox værdier fra regneark

Er det en userform eller bare en combobox i et regneark?

Hej bak,

Der er i en userform og linien skal vel ligge i Userform_Initialize .

vh René

Det behøver den faktisk ikke.
i VBA-editoren markere du comboboxen.
tryk F4 for properties
I properties for comboboxen finder du feltet RowSource.
Der skriver du A2:A8

ellers kan du gøre sådan her
Private Sub UserForm_Initialize()
Dim MyUniqueList As Variant, i As Long
    Set rng = ThisWorkbook.Worksheets("Sheet1").Range("a1:a8")
    With Me.ComboBox1
        .Clear
        For i = 1 To 10
            .AddItem rng.Cells(i, 1)
        Next i
        .ListIndex = 0
    End With
End Sub

for i = 1 to 8 for dit vedkommende

Hej Igen bak,

Det virker (brugte RowSource) - tak skal du have.

Jeg kom bare til at tænke på at hvis nu jeg tilføjer navne så skal jeg jo ind og rette i koden. Kan man henvise til en hel kolonne?

Kan vel muligvis laves ved at køre et loop (som i kode eks.)indtil vi støder på en tom celle.

/rene

Hej igen igen,

jeg legede lidt med din kode og vupti - Tak skal du have

Private Sub UserForm_Initialize()

  Set rng = ThisWorkbook.Worksheets("Medlemmer")
  raekke = 1
 
  While rng.Cells(raekke, 1).Value <> ""
    raekke = raekke + 1
  Wend
 
    With Me.CBox_navn
        .Clear
        For i = 1 To raekke
            .AddItem rng.Cells(i, 1)
        Next i
        .ListIndex = 0
    End With


End Sub

Jeg plejer at navngive området i selve Excelarket - f.eks. "Data"
I Userform_Initialize kan du så lægge følgende linie:
Comboboks1.RowSource = "Data"
Du kan evt. lave dit navngivne område som et dynamisk område, som automatisk udvider sig, hvis du senere tilføjer flere emner.

Hej Jan

tak for rådet

/rene