Format på listebokse i brugerformular

Her indsættes kolon når feltet forlades:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    With TextBox1
        .Text = Left(.Text, 2) & ":" & Mid(.Text, 3, 2) & ":" & Right(.Text, 2)
    End With
End Sub

Her sikre at der kun kan indtastes tal - og kun 6 stk.

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii > 47 And KeyAscii < 58 Then
        If Not (Len(TextBox1.Text) < 7) Then
            KeyAscii = 0
        End If
    Else
        KeyAscii = 0
    End If
End Sub

Koden tager ikke højde for de tilfælde, hvor brugeren indtaster mindre end 6 karakter. God fornøjelse

Tak for det Flemming
Jeg kan desværre først afprøve det sidst på eftermiddagen, når jeg er kommet hjem.

God fornøjelse

Hej Flemming

Jeg har afprøvet den første kode og den ser ud til at virke når jeg fjerner
& ":" & Mid(.Text, 3, 2), idet feltet kun skal angive timer og min.

Jeg er lidt bange for, at der evt. ikke kan forudsættes, at indholdet er mindre end 23:00 og at jeg så i den tilsvarende næste box kan sikre mig, at indtastningen er et senere tidspunkt, end det første.
Er der problemer med det, eller skal jeg stille det spørgsmål senere, når jeg er kommet så langt?

Med venlig hilsen
Susanne

Hej Flemming

Med din hjælp og min mands (som du jo kender Per på Arla i Hobro)
er opgaven løst, så du får dine velfortjente points.

Jeg håber på positivt samarbejde fremover.

Med venlig hilsen

Susanne

En ekstra bemærkning.

Her er min løsning:

Private Sub cmdOK_Click()
With txtRutestart

If Val(Left(.Text, 2)) > 23 Then
    MsgBox "Der er indtastet forkert tid"
    .SetFocus
End If

If Val(Right(.Text, 2)) > 59 Then
    MsgBox "Der er indtastet forkert tid"
    .SetFocus
End If
End With


End Sub

Private Sub txtRutestart_Exit(ByVal Cancel As MSForms.ReturnBoolean)
With txtRutestart
        .Text = Left(.Text, 2) & ":" & Right(.Text, 2)
    End With

End Sub

Hej Susanne - Du må endlig hilse Per :-)