PDA

Vollständige Version anzeigen : Von Zahl auf Uhrzeit ändern


Sturm
20.02.2008, 12:29
Hallo!

Ich bräuchte ein kurzes Makro um die Uhrzeit in Zahlen eintippen (ohne : ) zu können.
z.B.: 1300 = 13:00

Das Makro das ich versucht habe ist elend lang und zu groß.

Danke

IngGi
20.02.2008, 12:54
Hallo Sturm,

wie wär's damit?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Application.EnableEvents = False
Target = TimeValue(Left(Target, 2) & ":" & Right(Target, 2))
Application.EnableEvents = True
End If
End Sub
Gruß Ingolf

chris-kaiser
20.02.2008, 13:16
hiho

hier noch eine Variante

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
If IsNumeric(Target) And Right(Target, 2) < "60" Then
Application.EnableEvents = False
Target = Format(Target.Value, "00:00")
Application.EnableEvents = True
End If
End If
End Sub

oder wenn es ein bestimmter Bereich ist

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = Range("A1:C10")
If Not Intersect(Target, rng) Is Nothing And Target.Count = 1 Then
If IsNumeric(Target) And Right(Target, 2) < "60" Then
Application.EnableEvents = False
Target = Format(Target.Value, "00:00")
Application.EnableEvents = True
End If
End If
End Sub

Sturm
25.02.2008, 08:03
Danke Funktioniert Super!!