Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim wsh As Worksheet
Dim rng As Range, rngChk As Range
Set wsh = ThisWorkbook.Worksheets(1)
For Each rng In wsh.UsedRange.Rows
Set rngChk = rng.Cells(1, 1)
With rngChk.Offset(ColumnOffset:=IIf(rngChk.Column < 8, 8 - rngChk.Column, 0 - (rngChk.Column - 8)))
If Not (.Offset(ColumnOffset:=1).Value <> "" And .Value <> "" Or (.Offset(ColumnOffset:=1).Value = "" And .Value = "")) Then
wsh.Activate
wsh.Range(rngChk, rngChk.Offset(ColumnOffset:=1)).Select
Cancel = True
MsgBox "In der Tabelle sind nicht alle Werte der Spalten H und I korrekt ausgefüllt worden.", vbCritical
Exit For
End If
End With
Next
End Sub