Hallo Excel-Profis,

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 :)