Tabellenwerte in Textbox (UF) übernehemen
Holger
bei meiner Userform sollen bestimmte Textboxen (TB2 und TB3) vorbelegt werden. Bei Eingabe einer vorhandenen Nummer in TB1 soll die Spalte B nach dieser einmaligen Nummer durchsucht werden und der Wert aus der nebenstehenden Zelle (Spalte c) in TB2 vorbelegt werden. Mit dem nächsten Wert daneben (Spalte D) soll dann noch die TB3 befüllt werden.
Ich habe mal etwas zusammen gesponnen, was allerdings nicht funktioniert:
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TextBox1) = 0 Then
MsgBox "Bitte die Nummer eingeben"
Cancel = True
Exit Sub
End If
Dim NRFind As Range
Set NRFind = ActiveSheet.Range("B1:B100").Find(TextBox1)
If NRFind Is Nothing Then
MsgBox "Ungültige Nummer"
Cancel = True
Exit Sub
Else
Me.TextBox2.Text = Cells(NRFind, 1).Value
Me.TextBox3.Text = Cells(NRFind, 2).Value
End If
End Sub
Leider weiß ich jetzt nicht mehr weiter und wäre für Hilfe dankbar!
Gruß
Holger
Anzeige