Private Sub Worksheet_Change(ByVal Target As Range)
Dim sTxt As String
If Target.Column < 3 Or Target.Column > 4 Then Exit Sub ' nur Spalte C und D
If IsEmpty(Target) Or Selection.Cells.Count > 1 Then Exit Sub 'nur wenn was drinsteht
sTxt = CStr(Target.Value)
Select Case Len(sTxt)
Case 3: sTxt = "0" & sTxt & "00"
Case 4: sTxt = sTxt & "00"
Case 5: sTxt = "0" & sTxt
End Select
sTxt = Left(sTxt, 2) & ":" & Mid(sTxt, 3, 2) & ":" & Right(sTxt, 2)
On Error GoTo errorhandler
Application.EnableEvents = False
Target.Value = TimeValue(sTxt)
Application.EnableEvents = True
Exit Sub
errorhandler:
ActiveCell.ClearContents
Application.EnableEvents = True
End Sub
Autokorrektur-Einstellungen anpassen:
Extras > Autokorrektur.Direkte Eingabe ohne Doppelpunkt:
hhmm eingeben, z.B. 0930 für 09:30 Uhr.=TEXT(A1,"00\:00")Makro zum automatischen Umwandeln:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sTxt As String
If Target.Column < 3 Or Target.Column > 4 Then Exit Sub
If IsEmpty(Target) Or Selection.Cells.Count > 1 Then Exit Sub
sTxt = CStr(Target.Value)
Select Case Len(sTxt)
Case 3: sTxt = "0" & sTxt & "00"
Case 4: sTxt = sTxt & "00"
Case 5: sTxt = "0" & sTxt
End Select
sTxt = Left(sTxt, 2) & ":" & Mid(sTxt, 3, 2) & ":" & Right(sTxt, 2)
On Error GoTo errorhandler
Application.EnableEvents = False
Target.Value = TimeValue(sTxt)
Application.EnableEvents = True
Exit Sub
errorhandler:
ActiveCell.ClearContents
Application.EnableEvents = True
End Sub0300 eingibst und sie nicht korrekt erkannt wird, stelle sicher, dass du das richtige Format verwendest. Verwende hhmm und nicht h:mm.0300 eingibst und es als 00:00 angezeigt wird, könnte das Makro nicht richtig konfiguriert sein. Überprüfe die VBA-Einstellungen.09.30) einzugeben. Du müsstest dann die Autokorrektur so anpassen, dass Punkte in Doppelpunkte umgewandelt werden.hh,mm eingibst und diese dann in das korrekte Zeitformat umwandelst.Uhrzeiten addieren:
A1: 0930
A2: 1200=SUMME(TEXT(A1:A2,"00\:00"))Arbeitszeiten addieren:
hhmm hast, kannst du sie direkt summieren:
=SUMME(A1:A10)1. Wie gebe ich Uhrzeiten in Excel ohne Doppelpunkt ein?
Du kannst Uhrzeiten im Format hhmm eingeben, z.B. 0930 für 09:30 Uhr.
2. Funktioniert das auch mit Punkten oder Kommas?
Ja, du kannst die Autokorrektur so einstellen, dass Punkte oder Kommas in Doppelpunkte umgewandelt werden.
3. Gibt es ein Makro, das mir hilft?
Ja, das oben angegebene VBA-Makro wandelt deine Eingaben automatisch in das richtige Zeitformat um.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen