Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Row <> 20 Or Target.Column <> 9 Then Exit Sub
FormatTime (Target.Address(False, False))
End Sub
Sub FormatTime(Zelle)
Dim h%, m%
With Range(Zelle)
If .Value = "" Then Exit Sub
If IsNumeric(.Value) And InStr(.Value, ":") = 0 And InStr(.Value, ",") = 0 Then
If Len(.Value) > 2 Then
h = Left(.Value, Len(.Value) - 2)
m = Right(.Value, 2)
Else
h = .Value
m = 0
End If
.Value = h & ":" & m
End If
End With
End Sub
In Excel 2000 alles ohne Probleme, in XL97 findet er Left/Right nicht, Bibliothek oder Projekt nicht gefunden. Für eine Idee dies auch unter der Vorversion zum laufen zu bringen wäre ich sehr dankbar..