AW: einfache Eingabe von Fromat "h:m:s"?
24.09.2006 19:25:26
Fromat
Hallo Peter,
vielleicht hilft dir das folgende Makro weiter, es gehört in das Klassenmodul des Tabellenblattes, in dem die Uhrzeit erfasst werden soll.
'
' in die Zellen D3:D100 und G3:G100 soll die Uhrzeit ohne Doppelpunkt
' erfasst werden. Obendrein wird auf fünf Minuten auf-/abgerundet.
'
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iStd As Integer
Dim iMin As Integer
If Target.Count > 1 Then Exit Sub ' nur eine Zelle markiert ?
If Not Intersect(Target, Range("D3:D100")) Is Nothing Or _
Not Intersect(Target, Range("G3:G100")) Is Nothing Then
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
iStd = Left(.Value, Len(.Value) - 2)
iMin = Right(.Value, 2)
Else
iStd = 0
iMin = .Value
'iStd = .Value
'iMin = 0
End If
.Value = iStd & ":" & iMin
End If
If .Value <> 0 Then .Value = Round(.Value * 288, 0) / 288 ' auf volle 5 Min runden
End With
End If
End Sub
Rechtsklick auf den Tabellenblattreiter.
Linksklick auf Code anzeigen.
Obigen Code in das Fenster kopieren.
Mit Alt + Q schließen
Ausprobieren.
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.