|
Hallo Gabi,
vielen Dank für die geposteten Codes. Der Fisch ist echt gut geworden :) Dennoch muss ich leider sagen, dass irgendwas nicht so funktioniert, wie es sein soll...
Nachdem der Code einige Male die Zelleneinträge mit dem Shapetext vergleicht, bekomme ich einen Laufzeitfehler (Nr. 5) und zwar an der nachfolgenden Stelle:
For Each objShpe In shShapes.Shapes
If objShpe.TextFrame2.TextRange.Text = rngCell.Value Then _
Nun arbeite zu Hause mit einer anderen Excel Version als im Büro. Könnte dies den Fehler verursachen? Ansonsten kann ich nur anbieten, einen Link zu posten zu einer abgespeckten Version des Dokumentes...
Viele Grüße & noch einen schönen Sonntag,
Corina
|