Zeit Ohne Doppelpunkt 24:00 Uhr?
13.09.2005 23:52:19
Thoddy
ich bin heute zum erstenmal hier und hoffe auf Hilfe. Excel ist kein großes Problem für mich, aber mit VBA tue ich mich doch recht schwer.
Nun zu meinem Problem:
Ich habe hier zum Thema "Zeit ohne Doppelpunkt eingeben" ein entsprechendes Makro gefunden, scheitere jetzt aber an dem Punkt, dass wenn ich z.B 24:00 Uhr eingebe, vba daraus 01.00 Uhr macht.
Wie könnte dieser Umstand in der Formel berücksichtigt werden?
Die Formel die ich benutze lautet bis jetzt:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim s%, m%
If Target.Column <> 1 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
Viiiielen Dank schonmal
Gruß
Thorsten