VBA MSG Box Pflichtfelder
11.11.2016 12:55:13
Matthias
ich habe hier eine Sache und zwar haben wir Service reports, die die Kollegen nur rudimentär pflegen. Beispielsweise werden Zeiten vergessen oder die Lohnart weg gelassen etc. Wir laden die Daten in unsere Zeitwirtschaft und da kommen die Probleme dann hoch. Ich möchte nun ein Makro hinterlegen, welches ganz genau sagt welche Pflichtfelder noch zu pflegen sind ansonsten erfolgt keine Speicherung.
Hier mein Makro:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Pflichtbereich As Range, Anzahl
Set Pflichtbereich = Worksheets("TB-1").Range("")
Anzahl = Pflichtbereich.Cells.Count
If Application.WorksheetFunction.CountA(Pflichtbereich) Anzahl Then
MsgBox "Bitte füllen Sie zuerst alle Pflichtfelder aus !", vbOKOnly + vbInformation, _
"Datei wurde NICHT gespeichert !"
Cancel = True
End If
End Sub
Es ollen die Felder Date, time from time to Lohnart als Pflichtfelder hinterlegt werden.
Kann mir da jemand behilflich sein? Beispielmappe anbei.
https://www.herber.de/bbs/user/109345.xls
Danke