Datei mit leeren Pflichtfeldern speichern.
11.03.2016 13:28:09
Seimon
ich habe folgendes Problem.
Habe ein VBA - Code geschrieben der festlegt dass bestimmte Pflichtfelder ausgefüllt werden müssen. Nun möchte ich aber das Formular auf unserem Firmenlaufwerk ablegen (mit leeren Pflichtfeldern natürlich) aber ich habe ja der Datei festgelegt dass man sie nicht speichern kann wenn die Felder nicht gefüllt sind.
Gibt es eine Lösung für mein Problem? Evtl. ein Makro das den Code entweder beim Öffnen des Doks oder bei Datumseingabe (SelectionChange) startet.
Hier der Code:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim rngPflicht As Range, rngBereich As Range
Dim intLeere As Integer
Set rngPflicht = [G2,C6,G6,C10,E17,B30,D34,D36,B45,B50,E52,H52,F57]
For Each rngBereich In rngPflicht.Areas
intLeere = intLeere + Application.WorksheetFunction.CountBlank(rngBereich)
Next
If intLeere > 0 Then
Cancel = True
MsgBox "Bitte zuerst alle Felder ausfüllen!"
End If
End Sub
Vielen Dank
Simon
PS: Ganz andere Lösungsvorschläge sind natürlich auch ok :)