Få vist tidspunkt på idste indtastning i userform?

Regneark med sidste tidspunkt - er det samme fil som Userform er lagret i?

Ja det hele er samlet i et regneark

Indsættes i Userformen:

Private Sub UserForm_activate()
    Me.Lab_sidsteRegtid.Caption = hentSidsteRegtid
End Sub
Private Function hentSidsteRegtid() As Date
Dim ark As Worksheet
Dim sidsteRække As Long
    Set ark = ActiveWorkbook.Sheets("Ark1")
    ark.Select
    sidsteRække = ActiveCell.SpecialCells(xlLastCell).Row
    hentSidsteRegtid = Range("B" & sidsteRække)
End Function

Jeg kan ikke få det til at virke. Den returnerer hele tiden 00:00:00
Den totale kode ser ud som sådan:




Private Sub cmdAnnuller_Click()
    Worksheets("Forside").Activate
    Unload Me
End Sub

Private Sub cmdGem_Click()
     
    If cmbProdukt.Text = "" Then
        MsgBox "Husk at vælge produkt!"
        cmbProdukt.SetFocus
        Exit Sub
    End If
    If cmbBlå.Text = "" Then
        MsgBox "Er der rengjort under produktion?"
        cmbBlå.SetFocus
        Exit Sub
    End If
    If cmbKost.Text = "" Then
        MsgBox "Er der brugt blå kost til fejning af overfladen efter endt produktion?"
        cmbKost.SetFocus
        Exit Sub
    End If
    If cmbKasseret.Text = "" Then
        MsgBox "Er produkterne frasorteret i følge produktbeskrivelsen?"
        cmbKasseret.SetFocus
        Exit Sub
    End If
    If cmbNæste.Text = "" Then
        MsgBox "Overtager efterfølgende hold produktionen?"
        cmbNæste.SetFocus
        Exit Sub
    End If
    If cmbSlut.Text = "" Then
        MsgBox "Er produktionen afsluttet?"
        cmbSlut.SetFocus
        Exit Sub
    End If
    If cmbNyvare.Text = "" Then
        MsgBox "Er der skiftet til nyt varenr med samme allergene?"
        cmbNyvare.SetFocus
        Exit Sub
    End If
    If txtInita.Text = "" Then
        MsgBox "Husk at indtaste dine egne Initialer"
        txtInita.SetFocus
        Exit Sub
    End If
   

    Worksheets("Allergene reng").Activate
    Range("A2").Select
    If Range("A2").Value = "" Then
        Range("A2").Activate
    Else
        Range("A2").CurrentRegion.Select
        ActiveCell.Offset(Selection.Rows.Count, 0).Activate
    End If
    With ActiveCell
        .Value = txtLinje.Text
        .Offset(0, 1).Value = cmbProdukt.Text
        .Offset(0, 2).Value = txtTid.Text
        .Offset(0, 3).Value = CDate(txtDato.Text)
        .Offset(0, 4).Value = cmbBlå.Text
        .Offset(0, 5).Value = cmbKost.Text
        .Offset(0, 6).Value = cmbKasseret.Text
        .Offset(0, 7).Value = cmbNæste.Text
        .Offset(0, 8).Value = cmbSlut.Text
        .Offset(0, 9).Value = cmbNyvare.Text
        .Offset(0, 10).Value = txtInita.Text
    End With
   
    Worksheets("Forside").Activate
    ActiveWorkbook.Save
    Unload Me
End Sub



Private Sub UserForm_activate()
   
    txtLinje.Text = ("7,1")
    txtDato.Text = Format(Now, "dd-mm-yyyy")
    txtTid.Text = Format(Now, "hh:mm")
    txtTitel.Text = Worksheets("Kvalitet").Range("C9")
    txtSkema.Text = Worksheets("Kvalitet").Range("A9")
    txtGældende.Text = Worksheets("Kvalitet").Range("B9")
    txtSenest.Text = Worksheets("Kvalitet").Range("D9")
    txtRef.Text = Worksheets("Kvalitet").Range("E9")
    txtRefnr.Text = Worksheets("Kvalitet").Range("F9")
    With cmbProdukt
        .RowSource = "Faldpakker"
        .ListIndex = 0
    End With
    With cmbBlå
        .RowSource = "Liste_ja2"
        .ListIndex = 0
    End With
    With cmbKost
        .RowSource = "Liste_ja2"
        .ListIndex = 0
    End With
    With cmbKasseret
        .RowSource = "Liste_ja2"
        .ListIndex = 0
    End With
    With cmbNæste
        .RowSource = "Liste_ja2"
        .ListIndex = 0
    End With
    With cmbSlut
        .RowSource = "Liste_ja2"
        .ListIndex = 0
    End With
    With cmbNyvare
        .RowSource = "Liste_ja2"
        .ListIndex = 0
    End With
    Me.Lab_sidsteRegtid.Caption = hentSidsteRegtid
End Sub

Private Function hentSidsteRegtid() As Date
Dim ark As Worksheet
Dim sidsteRække As Long
    Set ark = ActiveWorkbook.Sheets("Allergene reng")
    ark.Select
    sidsteRække = ActiveCell.SpecialCells(xlLastCell).Row
    hentSidsteRegtid = Range("C" & sidsteRække)
End Function

Hvad har jeg gjort forkert?

Prøver at lægge din kode ind i min xls.fil

Jeg tror nu det vil være en fordel, hvis du kan sende din fil.
Min @-adr. er under min profil.

Har du nogen formatering af den label, som skal vise kl?

har sendt filen til dig, formatering hedder 
txtTid.Text = Format(Now, "hh:mm")