wo ist das Problem, zeige doch mal Deinen Code?
Gruß
Micha
ClassModule: frmSuchen
Private Sub cboNamen_Change()
Dim rng As Range
Set rng = Column(A).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 cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdOK_Click()
Range(txtEdit.Tag).Value = txtEdit.Text
End Sub
Private Sub UserForm_Initialize()
cboNamen.List = Range("A1").CurrentRegion.Value
cboNamen.ListIndex = 0
End Sub
Sub CallForm()
frmSuchen.Show
End Sub
Gruß
Andi
und wo ist jehtzt das Poblem - in welcher Zeile, hasst Du das mal debuggt?
Gruß
Micha