AW: Ne, ne, weiter geht's
31.03.2005 12:16:05
Martin
Hallo Serge,
versuch mal als Ansatz diese Ereignisprozedur (hier für Eingaben in Zelle A1):
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo errorhandler
If Target.Address(0, 0) = "A1" Then
Target.NumberFormat = "[h]:mm"
If Len(Target.Text) < 3 Then
MsgBox "Fehleingabe. Es sind nur Eingaben in der Form hhh:mm zulässig. Bitte korigieren."
Application.EnableEvents = False
Target.Clear
Target.Select
Application.EnableEvents = True
Exit Sub
End If
If Len(Target.Text) > 6 Or Mid(Target.Text, Len(Target.Text) - 2, 1) <> ":" Or CDbl(Right(Target.Text, 2)) > 59 Then
MsgBox "Fehleingabe. Es sind nur Eingaben in der Form hhh:mm zulässig. Bitte korigieren."
Application.EnableEvents = False
Target.Clear
Target.Select
Application.EnableEvents = True
Exit Sub
End If
End If
Exit Sub
errorhandler:
Target.Clear
Target.Select
Application.EnableEvents = True
End Sub
Es müssen evtl. noch Fehler abgefangen werden, ich konnte nicht alles testen. Mußt Du halt einfach mal ausprobieren.
Gruß
Martin Beck