Indsætte data i celle vha formular

Hvis det hjælper nogen fandt jeg dette i mit tidligere ark. Den gang indtastede man nye data ved at skrive dem i bestemte celler, vælge en medarbejder fra en liste og klikke på en knap. Koden til knappen var:
Private Sub CommandButton1_Click()
    Dim nv As String
    Dim dt As String
    Dim sc As String
   
    Application.ScreenUpdating = False
   
    nv = Range("d5").Value
    dt = Range("c9").Value
    sc = Range("d9").Value
   
    Worksheets("data").Select


    On Error GoTo ErrMsg

    Sheets("data").Cells.Find(What:=nv, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False).Activate
       
    If IsEmpty(ActiveCell.Offset(0, 1)) Then
        ActiveCell.Offset(0, 1).Value = dt
        ActiveCell.Offset(0, 2).Value = sc

    Else
        Selection.End(xlToRight).Offset(0, 1).Value = dt
        Selection.End(xlToRight).Offset(0, 1).Value = sc

    End If
   
    Range("d5").Value = ""
    Range("c9").Value = ""
    Range("d9").Value = ""
   
    Sheets("Indtast").Activate
   
    Application.ScreenUpdating = True
   
    Exit Sub
   
ErrMsg:
    If Err.Number = 91 Then
        MsgBox "Den pågældende findes ikke i arket med data"
    Else
        MsgBox Err.Description
    End If
   
End Sub

Iøvrigt også fixet her på eksperten :-))

Hvordan ændrer jeg det, så den henter tekst og navn i en form i stedet? I behøver ikke lave formen, bare fortælle mig hvad jeg skal ændre...

du må gerne sende demoarket til mig, så vil jeg tage et kig på det
excel snabela tbdl.dk

Der er sendt en mail :-)