Makroanpassung
02.04.2015 13:30:17
Weingartner
hebe folgendes Makro gefunden und wollte mal anfragen ob es möglich ist das so abzuändern das das aktuelle Tabellenblatt auf rot gefärbte Zellen überprüft wird und nur wenn keine gefunden werden gespeichert wird !
wäre für Lösungsansatz dankbar.
lg
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Cells(1, 1) = "" Then
MsgBox "Zelle A1 ist noch leer"
Cancel = True
End If
End Sub