Indtastning i Combobox

Jeg fik lige at vide at den funktion jeg gerne vil have tilføjet til min combobox hedder "autoudførelse" :o)

Det er muligt, men kun hvis værdilisten ikke er lagt ind i koden.

Værdilisten bliver taget fra arket og lagt ind i comboboxen hvergang macroen startes med:

Private Sub Userform_Initialize()
Dim row As Integer
row = 10
While Worksheets(1).Cells(row, 4) <> ""
    Butik1.AddItem Cells(row, 4).Value
    row = row + 1
Wend
End sub

Hvis du navngiver området hvor du henter data fra starten, (fx. frugt) vil denne makro checke om det du har skrevet i comboboxen matcher. hvis ikke udvider den det navngivne område og indsætter værdien fra comboboxen.
mht. autoudfyld skal du i properties / egenskaber finde MatchEntry og sætte den til 1 hvis den ikke er det i forvejen.

Private Sub ComboBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
If ComboBox1.MatchFound = False Then
test = MsgBox("Findes ikke på listen. Ønsker du at indsætte dette??", vbOKCancel)
If test = 1 Then
NewEntry = ComboBox1.Value
    Sheet1.Range("frugt").End(xlDown).Offset(1, 0) = NewEntry
    Sheet1.Range("frugt").Resize(Sheet1.Range("frugt").Rows.Count + 1, 1).Name = "frugt"
End If
End If
End Sub

Private Sub UserForm_Initialize()
Set f = Worksheets(1).Range("frugt")
For Each c In f.Cells
    ComboBox1.AddItem (c.Value)
Next
End Sub

Tusind tak, det virker perfekt.......og jeg som troede at jeg var ved at få fod på Excel :o)