Shapes und Bezug ändern
09.07.2008 14:12:53
Toby
Hallo Zusammen
ich habe mit dem Macrorecorder meinen Ablauf aufgezeichnet und möchte ihn jetzt noch anpassen
Sheets("Tabelle3").Select
ActiveSheet.Shapes("AutoShape 1").Select
Selection.Copy
Sheets("Tabelle2").Select
Range("C22").Select
ActiveSheet.Paste
'hier möchte ich den Bezug des Shapes ändern, und zwar soll im Shape der Wert aus einer Zelle auf derTabelle1 stehen Bsp. B9
Range("D20").Select
Sheets("Tabelle1").Select
Range("B9").Select
https://www.herber.de/bbs/user/53687.xls
Für die Hilfe vielen Dank und Gruss
Toby