ich habe Pflichtfelder und wenn diese vergessen werden, dann soll eine MSG Box erscheinen, am besten soll dies erscheinen nach betätigen eines Button aber das habe ich noch nicht so herausgefunden.
Derzeitige Code:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Pflichtfelder müssen noch ausgefüllt werden
Dim c As Range
For Each c In Worksheets(2).Range("B4,B6,B8,B10,B12,H8,H12,H14")
If c = "" Then
Cancel = True
c.Interior.ColorIndex = 36
MsgBox c.Address & " muss noch ausgefüllt werden"
c.Parent.Select
c.Activate
Exit For
End If
If c >= "" Then
Cancel = False
c.Interior.ColorIndex = 0
MsgBox "Hast du fein gemacht nimm dir einen Keks"
c.Parent.Select
c.Activate
Exit For
End If
Next
End Sub