|
Wow, vielen Dank für den Crashkurs. Der Code funktioniert selbstverständlich einwandfrei und bewerkstelligt auch das was er soll. Habe ihn noch minimal an meine Bedürfnise angepasst, weil ich einen Denkfehler hatte bei der Angabe der letzten Reihe. Jedenfalls... 5 Sterne von meiner Seite! :D
Aber es wäre natürlich viel zu schön um wahr zu sein, wenn wirklich ALLES funktionieren würde... Leider bekomme ich als Nachricht, dass keiner der Zelleneinträge in irgendeiner Form vorhanden ist. Eigentlich müssten alle da sein (Sie sind auch wirklich da, ich schaue gerade auf das Blatt :D). Vermutlich liegt es daran, dass meine Shapes doch keine Shapes sind, was ich doch sehr verwunderlich fände. Habe auch mal zum Spaß ein Makro aufgezeichnet und darin eine der Formen kopiert.
Dabei kam dies raus:
Range("L36").Select
ActiveSheet.Paste
Das sagte mir noch nicht viel, daher habe ich mal die Linienfarbe geändert. Dabei kam raus:
Selection.ShapeRange.ShapeStyle = msoShapeStylePreset3
Das bedeuted wohl, dass ich shp nicht als Excel.Shape setzen darf, sondern als Excel.ShapeRange... Wenn ich das tue, funktioniert der nachfolgende Teil nicht mehr:
If rngZelle.Text <> "" Then
For Each shp In .ShapeRange
If rngZelle.Text = shp.TextFrame2.TextRange.Text Then
Habe den ObjectBrowser benutzt, um zu versuchen mehr herauszufinden, aber das hat mir auch nicht weiter geholfen... Hat jemand eine Idee woran das liegt? Die Fehlermeldung erscheint bei "For Each shp..."und lautet Object doesn't support this property or method (Error 438).
Viele Grüße
Corina
|