Navigation

   Jeg er ved at lave en database hvor der lagres serienumre.Jeg har lavet en userform hvor jeg kan indtaste de forskellige oplysninger, de kommer også over i arket, men når jeg bruger den søgefunktion jeg har lavet så er datoen forkert:

Indtastet dato 04-12-2020 bliver til 07-06-2612

Hvad gør jeg forkert?

Indtastnings koden er:
Private Sub CommandButton2_Click()

Dim TargetRow As Integer
TargetRow = Sheets("Engine").Range("B3").Value + 1

TargetRow = Sheets("Engine").Range("B3").Value + 1 'Sætter Ref feltet = antallet i tællerformlen i "Engine"B3

Sheets("Ark1").Range("Data_Start").Offset(TargetRow, 0).Value = TargetRow 'Ref
Sheets("Ark1").Range("Data_Start").Offset(TargetRow, 1).Value = Txt_fraNR 'Første SN
Sheets("Ark1").Range("Data_Start").Offset(TargetRow, 2).Value = Txt_tilNR 'Sidste SN
Sheets("Ark1").Range("Data_Start").Offset(TargetRow, 3).Value = Txt_ordre 'M-ordrenr
Sheets("Ark1").Range("Data_Start").Offset(TargetRow, 4).Value = Txt_antal 'Antal
Sheets("Ark1").Range("Data_Start").Offset(TargetRow, 5).Value = Combo_varenr 'Varenr
Sheets("Ark1").Range("Data_Start").Offset(TargetRow, 6).Value = Txt_dato 'Dato
Sheets("Ark1").Range("Data_Start").Offset(TargetRow, 7).Value = Combo_navn 'Medarbejdernavn
Sheets("Ark1").Range("Data_Start").Offset(TargetRow, 8).Value = Txt_bem 'Bemærkninger

Søgefunktionen er:

Rem ====================
Dim sidsteRække As Long
Private Sub CommandButton1_Click()
Dim fremstillingsDato As Date, serieNr As String
Rem find sidste række
    sidsteRække = ActiveSheet.Range("A65000").End(xlUp).Row

Rem Fjern evt. - i serienummer
    serieNr = Replace(Me.TextBox1, "-", "")

    If IsNumeric(serieNr) And serieNr <> "" Then
        fremstillingsDato = søgInterval(Val(serieNr))
        If fremstillingsDato > 0 Then
            Me.Label3.Caption = fremstillingsDato
        Else
            Me.Label3.Caption = "Findes ikke"
        End If
    End If
End Sub
Private Function søgInterval(serieNr)
Dim ræk As Long, fra As String, til As String

    With ActiveWorkbook.Sheets("Ark1")
        For ræk = 1 To sidsteRække
            fra = Replace(.Cells(ræk, 1), "-", "")
            til = Replace(.Cells(ræk, 2), "-", "")
            If serieNr >= Val(fra) And serieNr <= Val(til) Then
                søgInterval = .Cells(ræk, 6)
                Exit Function
            End If
        Next ræk
    End With

    søgInterval = 0
End Function

Navigation

Dato vises forkert