Sub PrintWithDuplicate()
Application.ScreenUpdating = False
With ActiveSheet
.Shapes("Duplikat").Visible = False
.PrintOut
.Shapes("Duplikat").Visible = True
.PrintOut
.Shapes("Duplikat").Visible = False
End With
Application.ScreenUpdating = True
End Sub
Das Makro bricht jedoch immer ab und sagt :
Das Element mit dem angegebenen Namen wurde nicht gefunden!
Wie kann ich den ein Shape definieren oder was ist das?
HIIIIIILFEEEE!