ich habe folgendes problem. mit nachstehenden code bewerkstellige ich die umwandlung der uhrzeiteingabe in eine tabellenzelle.
ich gebe zum beispiel 1530 ein - ergebnis ist 15:30
das ganze funktioniert auch problemlos bei der eingabe von 24 - ergebnis ist 24:00 oder der eingabe von 0 - ergebnis ist 00:00
das problem tritt auf, wenn ich 0030 oder 030 eingebe - das ungwollte ergebnis ist dann 30:00 anstelle von 00:30.
vermutlich interpretiert excel die 0 anders als ich das erwarte.
bitte könnte jemand nachstehenden vba code prüfen ob es für mein problem eine lösung gibt.
mfg johannes
vba-code:
With ActiveCell()
If .Value = "" Then Exit Sub
If IsNumeric(.Value) And InStr(.Value, ":") = 0 And InStr(.Value, ",") = 0 Then
If Len(.Value) > 2 Then
s = Left(.Value, Len(.Value) - 2)
If s = 24 Then s = 24
m = Right(.Value, 2)
Else
s = .Value
If s = 24 Then s = 24
m = 0
End If
.Value = s & ":" & m
End If
End With