Uhrzeit ohne Doppelpunkt eingeben
03.03.2009 19:57:16
Timo
Ich habe in einer Tabelle in Spalte C,D,E Uhrzeiten stehen mit denen ich auch weiterrechne.
Ich möchte die Uhrzeit ohne Doppelpunkt eingeben und den Doppelpunkt automatisch ausfüllen lassen Dazu habe ich folgenden Code den ich Ihr im Forum gefunden habe im Codebereich der Tabelle stehen.
Private Sub Worksheet_Change(ByVal Target As Range) Dim s%, m% 'Soll nur bei einer Eingabe in Spalte A wirksam werden: If Target.Column > 3 And Target.Column > 6 Then Exit Sub With Cells(Target.Row, Target.Column) If .Value = "" Then Exit Sub If IsNumeric(.Value) And InStr(.Value, ":") = 0 And _ InStr(.Value, ",") = 0 Then .NumberFormat = "[hh]:mm" If Len(.Value) > 2 Then s = Left(.Value, Len(.Value) - 2) m = Right(.Value, 2) Else s = .Value m = 0 End If .Value = s & ":" & m End If End With End Sub
Das funktioniert soweit auch gut! Nur wenn ich als Uhrzeit 0034 eingebe ändert sich die Uhrzeit in 34:00 und nicht wie gewünscht in 00:34.
Wie muss ich den Code anpassen damit das mit 00 auch geht?
Gruß Timo
Anzeige