Hat sich erledigt funktioniert doch - zweite Routine stimmt - war wohl durch den Neustart von Excel ein Bug vorhanden ....