|
Hallo Zusammen,
habe diesen Code für ein Formular das nur gespeichert werden kann wenn bestimmte Pflichtfelder ausgefüllt sind.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim rngPflicht As Range, rngBereich As Range
Dim intLeere As Integer
Set rngPflicht = [G2,C6,G6,C10,E17,B30,D34,D36,B45,B50,E52,H52,F57]
For Each rngBereich In rngPflicht.Areas
intLeere = intLeere + Application.WorksheetFunction.CountBlank(rngBereich)
Next
If intLeere > 0 Then
Cancel = True
MsgBox "Bitte zuerst alle Pflichtfelder (*) ausfüllen!", vbCritical, ["Speichern nicht möglich"]
End If
End Sub
Nun meine Frage:
Gibt es einen Code / Makro das nach betätigen des "Speichern" Knopfes die noch auszufüllenden Zellen Rot markiert ?
Vielen Dank im voraus.
LG
Simon
|