Uhrzeit automatischer Doppelpunkt
16.05.2004 15:40:36
Klaus
ich habe über das Forum folgendes erhalten. Ich möchte das aber nun nicht nur in Spalte "F" sondern auch in anderen Spalten anwenden. Was muss ich da denn ändern. Hab schon vieles versucht, aber nichts hat geholfen!
Vielen Dank schon mal für Euere Hilfe!
Klaus
Private Sub Worksheet_Change(ByVal Target As Range)
Dim s%, m%
If 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