Hallo Gast73552,

Danke für deine Hilfe!

Leider funktioniert es immer noch nicht über alle Zeichenblätter ...

Sub BearbeiterAndern2()
        ThisDocument.Pages(1).Shapes("A3_Kopf").Shapes("Bearbeiter").Text = "Testname"
End Sub

Es wird immer nur das entsprechende Zeichenblatt geändert, welches ich unter Pages(1) eintrage, also wenn ich die 1 in 5 oder so ändere, wird auch nur Blatt fünf geändert u.s.w.