Hvis tid i vb

Formater cellerne med tt:mm, så korrigeres der automatisk for det.

Nej for de værdier der er, er ikke tid og der er en formel som laver det om til tid men den død hvis teksten er 24:00 og der over hvor hvis den er i normal tid kan den gøre det så derfor skal jeg have en der ser on de tider som er i de celler er normale og hvis ikke lave dem om til normale "24:21 = 00:21" osv...

hvis denne vbkode kan laves om til at tage 24:00 som 00:00 og 25:00 som 01:00 osv vil den kunne gøre det over en gang

Sub tid()
  Range("E11:E40").Select
   
  Dim c As Range
  For Each c In Selection
      If c <> "" Then
        c = TimeValue(c.text)
        c.NumberFormat = "hh:mm"

    End If
    Next
End Sub

Sub tid()
  Dim c As Range, x, x2
  Range("E11:E40").Select
  For Each c In Selection
    If c <> "" Then
      If Left(c, 2) >= 24 Then x = Left(c, 2) - 24: x2 = x & Right(c, 3)
        c = TimeValue(x2)
      c.NumberFormat = "hh:mm"
    End If
  Next
End Sub

Hvis Jeg fjerner c = TimeValue(x2) Virker den...
Kom med svar Takker

velbekom :)

Kan du også gøre så den fjerner "01-01-1900  00:00:00" Og kun skriver 00:00

jeg skal prøve,- vender tilbage

kommer denne - "01-01-1900  00:00:00" også i område E11:E40  ?

Ja men kun hvis tid er lavet om fra 24:00 el 25:00

prøv lige :

Sub tid()
Dim c As Range, x, x2
  Range("E11:E40").Select
  For Each c In Selection
    If Left(c, 2) >= 24 Then
      x = Left(c, 2) - 24
      x2 = x & Right(c, 3)
      c = TimeValue(x2)
    c.NumberFormat = "hh:mm"
    End If
  If Len(c) > 8 Then c = Right(c, 5)
  If c.NumberFormat <> "hh:mm" Then c.NumberFormat = "hh:mm"
Next
End Sub