AW: Userform fülllen mit x variable (suche)
30.10.2020 10:21:35
Nepumuk
Hallo Al,
teste mal:
Private Sub TextBox1_AfterUpdate()
Dim objCell As Range
Set objCell = Tabelle1.Columns(1).Find(What:=TextBox1.Text, _
LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=True)
If Not objCell Is Nothing Then
TextBox2.Text = objCell.Offset(0, 1).Text
TextBox3.Text = objCell.Offset(0, 2).Text
Else
Call MsgBox("Kunden ID nicht gefunden.", vbExclamation, "Hinweis")
With TextBox1
Call .SetFocus
.SelStart = 0
.SelLength = .TextLength
End With
End If
End Sub
Gruß
Nepumuk