Hallo Tobi,
keine Ahnung, habe es gerade mit deinem Code nochmal probiert - funktioniert.
Du hast den Code schon im Modul von "DieseArbeitsmappe"??
Hast du vielleicht noch ein Worksheet_Change am Laufen?
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim raBereich As Range
Dim raZelle
With Worksheets("BA1")
Set raBereich = .Range(.Cells(10, 1), .Cells(1000, 1))
For Each raZelle In raBereich.SpecialCells(xlCellTypeConstants)
If raZelle.Offset(, 8) <> "" Or raZelle.Offset(, 9) <> "" Or raZelle.Offset(, 11) <> "" Or raZelle.Offset(, 12) <> "" Then
If raZelle.Offset(, 7) = "" Then
MsgBox "H/P/A-Kennung fehlt in Zeile " & 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
Gruß Werner
|