Pflichtfelder auf unterschiedlichen Tabellenblätter - Formel

[lilakaffeetasse]

hallo zusammen,

ich habe eine excel liste in der ich pflichtfelder eingegeben habe.

es funktioniert einwandfrei- habe auf einem tabellenblatt eine formel erstellt, dass das dokument erst abzuspeichern ist, wenn alle pflichtfelder ausgefüllt sind.

unter 'DieseArbeitsmappe' habe ich folgende Formel eingegeben:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Dim Pflichtbereich As Range, Anzahl

With Worksheets("Schreibauftrag")

Set Pflichtbereich = Union(.Range("B15"), .Range("B17"), .Range("B19"), .Range("C21"), .Range("E21"), .Range("C23"), .Range("E23"))

End With

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

wie gesagt, es klappt bestens. Nur habe ich jetzt ein Problem.

Ich habe mehrere Tabellenblätter in der ich Pflichtfelder eingeben muss. Wenn ich die Formel jetzt kopiere und das Tabellenblatt "Schreibauftrag" und die Zeilenbezeichnungen ändere, wie ich es brauche, dann klappt es nicht.

Darf ich die Formel nur einmal verwenden? Wie mach ich das?

(Ich kenn mich in Excel nicht wirklich sehr gut aus, also bitte nicht mit Fachbegriffen umherwerfen )

Vielen Dank im Voraus!!!!