Combobox loopt vast

[hoogmolen]

Goede dag lezers en lezeressen,

ik zit met het volgende probleem. Ik heb een redelijk werkend excel bestand aan gemaakt met een knop Search en update, dmv een combo box kan men dan het gewenste part nummer opzoeken en krijgt men de benodigde details bij. mocht men dan veranderingen aan willen passen kan dat dmv van de text te venaderen en update te drukken. MAAR in de combobox gaat het verkeert als ik een item pak dat alleen maar uit cijfers bestaat dan loopt hij vast.
Zou iemand mij uit de brand kunnen helpen door dit probleem voor mij op te lossen

zie het bijgevoede bestand

 

[huijb]

Titel aangepast, hulp zegt niet zo veel over je probleem.

 

[Warme bakkertje]

myRow = Sheets("Base Solar").Range("A10", [A65536].End(xlUp)).Find(Me.ComboBox1.Value).Row

Voor het vullen van je combobox raad ik je onderstaande aan, aangezien dit veel sneller is als de AddItem-methode, zeker met grote bereiken

Private Sub UserForm_Initialize()
    c0 = Join(WorksheetFunction.Transpose(ActiveSheet.Range("A10", Range("A65000").End(xlUp))), "|")
    With ComboBox1
        .Clear
        .List = Split(c0, "|")
    End With
End Sub

 

[hoogmolen]

he badankt man

myRow = Sheets("Base Solar").Range("A10", [A65536].End(xlUp)).Find(Me.ComboBox1.Value).Row

Voor het vullen van je combobox raad ik je onderstaande aan, aangezien dit veel sneller is als de AddItem-methode, zeker met grote bereiken

Private Sub UserForm_Initialize()
    c0 = Join(WorksheetFunction.Transpose(ActiveSheet.Range("A10", Range("A65000").End(xlUp))), "|")
    With ComboBox1
        .Clear
        .List = Split(c0, "|")
    End With
End Sub