Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim raBereich As Range
Dim raZelle
With Worksheets("Tabelle1")
Set raBereich = .Range(.Cells(10, 1), .Cells(1000, 1))
For Each raZelle In raBereich.SpecialCells(xlCellTypeConstants)
If raZelle.Offset(, 9) <> "" Or raZelle.Offset(, 11) <> "" Or raZelle.Offset(, 12) <> "" Then
If raZelle.Offset(, 7) = "" Then
MsgBox "Es fehlt ein Eintrag in Zelle H" & raZelle.Row & vbLf & "Speichern nicht möglich."
raZelle.Offset(, 7).Select
Cancel = True
Exit For
End If
End If
Next raZelle
End With
End Sub