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 s%, 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
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
Unter Excel 2000 alles wunderbar, unter Excel 97 wird das Makro mit der Fehlermeldung "Projekt oder Bibliothek nicht auffindbar" unterbrochen, Befehl Left / Right werden nicht akzeptiert. Meine VBA332.dll ist die Version 3.0.0.7019, muss diese ersetzt werden?
Kann ich notfalls den User über eine Schaltfläche das Makro auskommentieren lassen, wie z.B. ganz prosaisch ausgedrückt
ersetzte im aktuellen Project FormatTime durch 'FormatTime
Über eine Idee wäre ich sehr dankbar, morgen soll das Ding auf CD ausgeliefert werden.....
Gruss
Christian