Pflichtfelder
28.12.2007 13:28:59
gino01
Ich habe ein Problem und hoffe auf Hilfe.
Es wurden im nachfolgendem Code Pflichtfelder definiert.
Allerdings kann das Tabellenblatt vorher nicht geschlossen werden, bevor alle Pflichtfelder ausgefüllt sind.
Wie kann denn erreicht werden, dass eine tägliche Abfrage ( mit Pflichteingabe von Datum erfolgt) .
Bei Bedarf kann ich die Tabelle gerne zuschicken.
Ich danke im voraus für eure Hilfe.
C7-h7 = Eingabe von Datum
K2 = Eingabe der KW woche
e3 = Eingabe eine Nr.
------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim c As Range
For Each c In Worksheets("KW49").Range("c7,d7,e7,f7,g7,h7,e3,k2")
If c = "" Then
MsgBox "Es sind nicht alle Pflichtfelder ausgefüllt!"
Cancel = True
Exit For
End If
Next
End Sub