wer kann mal schauen?
funzt nicht ganz so......
wert von textbox1 in sheet grunddaten A:A suchen
wenn gefunden dann (select und/oder activecell?)
von dort aus den wert von textbox2 in tabelle übertragen.
Private Sub CommandButton2_Click()
Dim Lrow As Long, i As Long
Lrow = Cells(Rows.Count, 1).End(xlUp).Row
For i = Lrow To 1 Step -1
If Cells(i, 1) = CStr(TextBox1) Then _
TextBox2.Value = ActiveCell.Offset(0, 3).Value
Next i
End If
End Sub
gruß
achim h.