Private Sub UserForm_Initialize()
cboNamen.List = Range("F1").CurrentRegion.Value
cboNamen.ListIndex = 0
End Sub
Private Sub cboNamen_Change()
Dim rng As Range
Set rng = Columns(1).Find(cboNamen.Value, lookat:=xlPart, LookIn:=xlValues)
If Not rng Is Nothing Then
txtEdit.Text = rng.Text
txtEdit.Tag = rng.Address
End If
End Sub
Private Sub cmdOK_Click()
Range(txtEdit.Tag).Value = txtEdit.Text
End Sub