HJÆLP til denne tekst.

Hej, som elev jeg fået en opgave ....lav en tavle til registrering af data i excel...så jeg har begivet mig ud i vba, kan i hjælpe mig?
jeg kan desværre ikke sætte min userform ind som billed.

jeg vil gerne at følgende sker: jeg har lavet en userform: materialeregistrering - jeg vil gerne inskrive en klient dato - dvs den søger efter klient - finder klienten og derefter indskiver den datoen i samme linie som den klient som er fundet. udover/sammen med dette vil jeg gerne kunne registrere medarnejder og for hvilken måned den skal rgeirstre : hhv. dato og medarbejder. (kan man ikke få excel til at opbevare det hele i en celle- det skal jo bere opfattes som tekst) 

her er min programkode...hjælp den stakkels elev...

Dim fundetRække, antalRækker, medarbejder
Private Sub CommandButton2_Click()
    Unload Materialeregistrering
    ThisWorkbook.returnerTilArk ThisWorkbook.returFraForm
End Sub
Private Sub f_jt_Click()
medarbejder = f_jt.Caption
End Sub
Private Sub f_jn_Click()
medarbejder = f_jn.Caption
End Sub

Private Sub f_jul_Click()

End Sub

Private Sub f_tm_Click()
medarbejder = f_tm.Caption
End Sub
Private Sub f_hp_Click()
medarbejder = f_hp.Caption
End Sub
Private Sub f_lj_Click()
medarbejder = f_lj.Caption
End Sub
Private Sub f_ls_Click()
medarbejder = f_ls.Caption
End Sub
Private Sub f_ok_Click()
medarbejder = f_ok.Caption
End Sub
Private Sub f_sn_Click()
medarbejder = f_sn.Caption
End Sub
Private Sub f_fk_Click()
medarbejder = f_fk.Caption
End Sub
Private Sub f_info_Click()

End Sub

Private Sub f_medarbejder_Click()

End Sub
Private Sub f_måned_Click()

End Sub
Private Sub f_opdater_Click()

End Sub
Private Sub clear_f_måned()
Dim mmC As Control
        For Each mmC In Me.f_måned.Controls
            mmC.Value = False
        Next
End Sub


Private Sub clear_f_medarbejder()
Dim mmC As Control
        For Each mmC In Me.f_medarbejder.Controls
            mmC.Value = False
        Next
End Sub
Private Sub sæt_f_medarbejder(medarbejder)
Dim mmC As Control
        For Each mmC In Me.f_medarbejder.Controls
            If mmC.Caption = medarbejder Then
                mmC.Value = True
                Exit Sub
            End If
        Next
End Sub
Private Sub sæt_f_måned(måned)
Dim mmC As Control
        For Each mmC In Me.f_måned.Controls
            If mmC.Caption = måned Then
                mmC.Value = True
                Exit Sub
            End If
        Next
End Sub



Private Sub f_klientnr_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If IsNumeric(f_klientnr) = True Then
        fundetRække = 0
        f_dato = ""
        clear_f_måned
        clear_f_medarbejder
        f_opdater.Enabled = True
           
            Me.f_dato = Cells(fundetRække, 7)
            sæt_f_medarbejder (Cells(fundetRække, 7))
            info = f_navn = ""
        Else
            f_info = "Klientnr. ej fundet"
            f_opdater.Enabled = False
        End If
    End If
End Sub
Private Function søg(klientNr)
Dim rækNr
    antalRækker = ActiveCell.SpecialCells(xlCellTypeLastCell).Row
   
    For rækNr = 2 To antalRækker
        If Cells(rækNr, 1) = Val(klientNr) Then
            søg = rækNr
            Exit Function
        End If
    Next rækNr
    søg = 0
End Function
Private Sub f_opdater_Click()
    f_info.Caption = ""
    If IsNumeric(f_klientnr) = True And _
        f_dato <> "" And _
              f_jt Or f_jn Or f_lj Or f_tm Or f_ls Or f_hp Or f_ok Or f_sn Or f_fk = True Then
                opdater
    Else
        f_info.Caption = "Et eller flere felter mangler data"
    End If
End Sub

Private Sub f_opdater_Click()
Dim kolonne
    Cells(fundetRække, 7) = f_dato
    Cells(fundetRække, 7) = medarbejder
End Sub
Private Sub UserForm_activate()
    ActiveWorkbook.Sheets("Materialer").Activate
    f_opdater.Enabled = False
    f_klientnr.SetFocus
End Sub