Uhrzeit ohne ":" eingeben
22.11.2022 13:50:13
Gula
ich habe eine Liste, in der ich immer wieder Uhrzeiten in den Spalten B und C eintrage.
Damit ich nicht immer z.B. 12:00 eingeben muss, wollte ich es so umwandeln, dass ich einfach nur 1200 eingebe.
Mit der Textformatierung diese auf 00\:00 zu ändern hab ich schon gemacht und so funktioniert auch die korrekte Eingabe.
Es steht jedoch dann in der Zelle 1200, obwohl 12:00 angezeigt wird.
Da mit dieser Uhrzeit weiter gerechnet werden soll, müsste aber in der Zelle auch die Uhrzeit mit Doppelpunkt stehen, weil sonst die andere Formel nicht mehr funktioniert.
Wie kann ich das bewerkstelligen? Danke schon mal.
Im Internet habe ich einen VBA Code gefunden, der eigentlich genau das machen soll, aber leider ist dem nicht so.
Hier mal der Code, den ich gefunden habe.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngBer As Range, rngC As Range, iStd As Integer, iMin As Integer
' Set rngBer = Intersect(Target, Columns(1)) ' Spalte A
' Set rngBer = Intersect(Target, Range("B:D")) ' Spalten B,C,D
Set rngBer = Intersect(Target, Range("B3:C41")) ' Bereich B3:C41
' Set rngBer = Intersect(Target, Union(Columns(2), Columns(3))) ' Spalten B,D
If Not rngBer Is Nothing Then
Application.EnableEvents = False
For Each rngC In rngBer
If IsNumeric(rngC) Then
Select Case Len(CStr(rngC.Value))
Case 1, 2: iStd = rngC.Value
Case 3, 4
iStd = Fix(rngC.Value / 100)
iMin = rngC.Value - 100 * iStd
Case Else: iStd = -1 ' keine Ausgabe
End Select
If iStd >= 0 And iStd = 0 And iMin Anzeige