Sub Grundmakro3()
If ActiveCell.Interior.ColorIndex = 3 Then
MsgBox "Treffen Sie eine neue Auswahl"
End If
(Benötige Jetzt einen Formel mit der eine MSGBox aufgerufen wird wenn die Aktive Zelle keine Füllung hat.
MsgBox "Die Zelle hat keine Füllung"
End If
End Sub