Naam / getal in zoeknaam?

[Demeter]

In deze post zitten we met een probleem welke ik graag als algemeen wil beschouwen.
http://www.helpmij.nl/forum/newreply.php?do=newreply&noquote=1&p=1832836

Ik vul een combobox met data uit kolom A en klom B.
Achter deze combobox staat een functie:
Private Sub zoeknaam_Change()
Deze wordt uitgevoerd zodra er wat veranderd in de combobox.

Nu heb ik de volgende code staan in deze macro:

    i = InStr(zoeknaam, ", ") 'naambestelling delen op de plaats van de komma
    stZoekenLinks = Trim(Left(zoeknaam, i - 1))   'var. Zoeknaam staat links van de komma
    stZoekenRechts = Right(zoeknaam, Len(zoeknaam) - (i + 1)) 'var. Zoeknaam staat rechts van de komma

Deze werkt volledig als er alleen letters in de zoeknaam staan.
Komen er getallen voor dan werkt deze ineens niet meer.

Kan iemand mij uitleggen waaraan dit ligt?
Zoeknaam wordt namelijk wel gevuld en de i krijgt ook iedere keer een waarde mee, je zou er fout moeten gaan.


Groet,
Ferenc

 

[Demeter]

mmmmmmm, na nog meer testen kom ik er achter dat het niet aan bovenstaande code ligt.

Alle variabelen worden wel gevuld alleen als een van de twee zoek variabelen uit alleen getallen bestaat er niks wordt gevonden.

Waar gaat het fout? ik zie het even niet.
File aangehangen zodat wel willende een kijkje kunnen nemen

Groet,
Ferenc

 

[Demeter]

pfffffffff, ligt aan de eigenschappen van de cellen volgens mij. Als ik deze verander naar tekst dan doen de cellen waarin een getallen en letters staan het ook. Alleen de cellen waarin alleen getallen staan doen het dan nog steeds niet. mmmmmmmmm. kom dichterbij nu alleen nog de juiste voorzet .

Groet,
Ferenc

 

[Demeter]

Heb nu de twee zoek variabelen gedeclareerd als String en nu werkt het ok.

Private Sub zoeknaam_Change()
Dim MyRange             As Variant
Dim c                   As Range
Dim i                   As Long
[COLOR="Red"]Dim stZoekenRechts  As String
Dim stZoekenLinks As String
    [/COLOR]
Set MyRange = Worksheets("bestel_lijst")
Set MyRangeII = Worksheets("bestel_lijst2")
txbVoornaam.Text = ""

Application.ScreenUpdating = False

If zoeknaam = Empty Then

    MsgBox "Kiesbestelling!"
    Exit Sub
    
Else

    i = InStr(zoeknaam, ", ") 'naambestelling delen op de plaats van de komma
    stZoekenLinks = Trim(Left(zoeknaam, i - 1))   'var. Zoeknaam staat links van de komma
    stZoekenRechts = Right(zoeknaam, Len(zoeknaam) - (i + 1)) 'var. Zoeknaam staat rechts van de komma

    For Each c In MyRange.Range("A4:A300")
        If c = stZoekenLinks And c.Offset(, 1) = stZoekenRechts Then
            txbVoornaam = MyRange.Range("A" & c.Row)
            txbReferentie = MyRange.Range("B" & c.Row)
            txbTelefoonnummer = MyRange.Range("C" & c.Row)
        End If
    Next
    
    If txbVoornaam.Text = "" Then
        For Each c In MyRangeII.Range("A4:A300")
            If c = stZoekenLinks And c.Offset(, 1) = stZoekenRechts Then
            txbVoornaam.Text = MyRangeII.Range("A" & c.Row)
            txbReferentie.Text = MyRangeII.Range("B" & c.Row)
            txbTelefoonnummer.Text = MyRangeII.Range("C" & c.Row)
            End If
        Next
    End If
End If

Application.ScreenUpdating = True

End Sub

Heeft iemand hier een uitleg voor?

Groet,
Ferenc