MSG-Box, wenn Zellen nicht = 0

[Theo]

Hallo Helfer

Könnt Ihr mir bitte ein Makro schreiben das folgendes auslöst:

Wenn im aktiven Tabellenblatt die Zellen  
Q24    und/oder  
Q32    und/oder 
Q37
<> 0 sind,
Hintergrund der betroffenen vorgelagerten Zellen
B24, B32, B37
rot einfärben
und eine MSG-Box anzeigen mit dem Text "Kontierung fehlt!"

Also wenn zum Beispiel die Zellen Q24 und Q37 <> 0 sind,
die Zellen B24 und B37 rot einfärben
und die MSG-Box anzeigen.

Ich bin sehr froh, wenn Ihr mir helfen könnt.

Dank und Gruss

Theo