habe leider ein kleines Excel-Problem :-(
In Tabelle1 hab ich in Spalte A Rechnungsnummern z.B 1234
in Spalte B Namen z.B Schmidt
Jetzt hab ich ein Userform erstellt mit 2 TextBoxen
TextBox1= Nr.
TextBox2= Name
Jetzt möchte ich gerne ein TextBox1 ne Nr eingeben zb 1234
jetzt soll autmatisch der Name in Textbox 2 erscheinen (Schmidt)
Und wenn nicht gefunden dann MsgBox.
Dieser Code gibt mir leider keine 100%igen Lösungen raus.
Wenn eine Zahl nicht gefunden wurde, gibt er mir den letzten Eintrag raus. Was ist dran falsch? Wie bekomme ich das denn besser hin?
Private Sub TextBox1_Change()
Dim varNam As Variant
varNam = Application.VLookup(CLng(TextBox1.Text), Worksheets(1).Range("A:B"), 2)
If Not IsError(varNam) Then
TextBox2.Text = varNam
End If
End Sub
Vielen Dank
Gruß Philipp