|
Hallo,
ich soll eine Datenbank erstellen, ich dachte mir dass es möglich sein sollte erst ab einen bestimmten Arbeitsblatt erforderliche Zellen ausfüllen zu lassen, um dann erst speichern zu können. Aber es kommt immer der Fehler 424.. hab auch noch ein DummyTabellenblatt erstellt, damit auf jeden fall eins zum überprüfen da ist.
Ich hänge mal den Code bei:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim rngPflicht As Range, rngBereich As Range
If Worksheets.Count > 4 Then
Dim intLeere As Integer
Set rngPflicht = ["I2,L2,O2,S2,W2,D6:D11,D16:D24,D44,D68:D76,D96"]
For Each rngBereich In rngPflicht.Areas
intLeere = intLeere + Application.WorksheetFunction.CountBlank(rngBereich)
Next
If intLeere > 0 Then
Cancel = True
MsgBox "Bitte zuerst alle Pflicht-Felder ausfüllen !"
End If
End If
End Sub
Vielen Dank schon mal für die Hilfe.
Grüße Simon
|