Eintrag auf Uhrzeit prüfen
Susanne
da meine Frage ins Archiv gerutscht ist, aber noch nicht vollständig beantortet ist hier noch mal Code und Problem:
Option Explicit
Pivate Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim c As Range, d As Boolean
For Each c In Range("K6:K36")
d = c "" And IsDate(c)
If Not d Then Exit For
Next c
If d Then
If Len(Range("K3")) Wenn im im Bereich K6:K36 eine Zeit (Format hh:mm) eingetragen ist (egal ob über Formel oder als absolutert Wert), soll in K3 ein mind. 6stelliger Eintrag stehen, sonst MsgBox und speichern nicht möglich. Wenn in dem Bereich alle Zellen nur Formeln enhalten ohne Wert oder leer sind, dann muss kein 6stelliger Eintrag erfolgen um zu speichern. So wie der Code jetzt ist, speichert Excel ganz normal, obwohl eine Zeit eingetragen ist :-(. Vermute, dass es an IsDate liegt, hab schon probiert es mit "Like "##:##" " zu erweitern, hat aber auch nicht funktioniert. Hat noch jemand (Luc ;-) ) eine Idee?
Danke für eure Hilfe!
Susanne
Anzeige