Function IsError(Area As Range) As Boolean
IsError = False
If Not Intersect(Area, Range("A1:O1")) Is Nothing Then IsError = True
If Not Intersect(Area, Range("A1:A32")) Is Nothing Then IsError = True
If Not Intersect(Area, Range("H1:H32")) Is Nothing Then IsError = True
If Not Intersect(Area, Range("O1:O32")) Is Nothing Then IsError = True
If Not Intersect(Area, Range("A33:O33")) Is Nothing Then IsError = True
For Each Cell In Area
If Cell.Interior.Color = Range("Q11").Interior.Color Then IsError = True
Next Cell
Dim Adresse As String
If Len(Area.Address) > 4 Then
Adresse = Replace(Split(Area.Address, ":")(0), "$", "")
Else
Adresse = Replace(Area.Address, "$", "")
End If
If Range(Adresse).Column > 15 Or Range(Adresse).Row > 32 Then IsError = True
End Function
Und Dateisystem.Speichern ist unerheblich, da die Funktion ja erst nach dem Fehler aufgerufen wird.