alle Objekte eines bestimmten Farbmodells auswählen

[koter]

Hallo Asterix,

...ob man am Ende eine Meldung bringen kann, wenn nichts gefunden wurde?...

Füge als letzte Zeile (nach: Call UmrissNull) folgenden Code ein:
If ActiveSelectionRange.Count = 0 Then MsgBox "Keine Objekte gefunden!", vbInformation, "Nichts Ausgewählt"

...Ich würde dann einfach das Dokument neu öffnen und eben einmal das eine oder das andere Makro ausführen.

Ich muss das Dokument nicht neu öffnen, bei mir (X7) funktionieren Deine Makros aus dem zitierten Beitrag immer!
Ich kann Dir also leider nicht sagen, was bei dir falsch läuft.

Gruß

Koter