habe zwei Kalenderblätter aktuell und Folgejahr
u.a. sind diverse Textfelder zu kopieren (Bez. sind identisch)
Code sieht so aus
Sheets("kalender").Shapes.Range(Array("Textfeld 15")).TextFrame2.TextRange.Characters.Text = Sheets("kalender2").Shapes.Range(Array("Textfeld 15")).TextFrame2.TextRange.Characters.Text
Sheets("kalender2").Shapes.Range(Array("Textfeld 15")).TextFrame2.TextRange.Characters.Text = ""
...Die Textfelder beginnen mit Textfeld 15 - Textfeld 200
wie kann ich den Code so verändern, dass ich nicht alles untereinander schreiben muss? Schleife?
vielen Dank