Omdanne tal til klokkeslet

Ja - eksempel

Sub talTilTid()
    tal = Cells(1, 1)
    tid = Format(CStr(tal), "0#:##:##")
    Cells(1, 2) = tid
End Sub

Kan også konstrueres, så det sker efter indtastningen

Hej

ser godt ud - kunne godt bruge den så det sker efter indtastningen - hvordan klares det?

Jesper

Dim flag As Boolean
Private Sub Worksheet_change(ByVal Target As Excel.Range)
    If Not Intersect(Target, Range("A1:A500")) Is Nothing And flag = False And Target <> "" Then
        tal = Target
        tid = Format(CStr(tal), "0#:##:##")
        flag = True
        Target = tid
    End If
   
    flag = False
End Sub

Hej igen

er ikke helt sikker på hvor jeg skal indsætte koden og hvad jeg skal gøre for at aktivere den - kan du hjælpe igen?

Jesper

Hvis du f.eks. højreklikker på fanen for Ark1 og vælger Vis programkode - så ser du VBA-området for netop dette ark.

Hej

Takker - her er lidt point til dig
Jesper

Ok & selv tak - men du tildeler dig selv point :-).

Jeg skulle have oprettet et svar, som du så accepterer, men fred være med det - blot til næste gang du stiller spørgsmål.

Hej Igen
UPS :-)

Niks du skal have dine velfortjente point - smid et svar og du får point.

Jesper

Ok - så skal du oprette et nyt spørgsmål - "Points til Supertekst" og så henvise til dette spørgsmål #876226
- idet der allerede er givet accepteret svar på indeværende...