nach 2 Tagen Recherche muss ich mich wieder an euch wenden. Ich dachte ich bekomme es selbst hin...
Ich möchte den Text aus meinen Shapes kopieren und in andere Tabelle einfügen.
Klingt einfach....klappt aber dennoch nicht
Bitte um HIlfe,
Freundliche Grüße
Alexandro
Mein Ansatz, was leider nicht funkt...
Sub shapes_kopieren()
Dim tbo(1)
tbo(1) = "Textfeld 3"
Sheets("Tabelle1").shapes.Range(tbo()).Select
Selection.Text.Copy
Selection.Add.Content.Paste = Range("A1")
End Sub