Excel und VBA: Formeln, Programmierung, Lösungen

StandardModule: basMain

Sub InZeit()
   Dim rng As Range
   Dim sTxt As String
   For Each rng In Selection.Cells
      sTxt = rng.Value
      rng.NumberFormat = "hh:mm"
      rng.Value = TimeSerial(Left(sTxt, 2), Right(sTxt, 2), 0)
    Next rng
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen DatumZeit und Eingabe