Zellinhalt mit Makro in Textbox schieben
28.12.2002 18:02:07
Roger
Habe ein Tabellenblatt mit verschiedenen Texten. Von diesem Blatt möchte ich mit einem Makro markierte Texte in ein Textfeld, welches über einer Grafik auf einem anderen Sheet liegt kopieren. Leider funktionieren "Copy and Paste" nicht. Die bisherigen Einträge beziehen sich zwar auf ähnliche Probleme, doch wurde ich daraus nicht schlau.
Mein Makrocode bis jetzt lautet:
Sub Makro6()
Sheets("Texte").Select
Range("A11").Select
Selection.Copy
Sheets("Deckblatt").Select
ActiveSheet.Shapes("Text Box 5").Select
ActiveSheet.Shapes("Text Box 5").Paste FUNKTIONIERT NICHT
Sheets("Texte").Select
End Sub
Weiss jemand, wie der richtige Befehlssatz lautet?
Danke bereits jetzt! Roger
Anzeige