Laut untenstehenden Code wird das aktive Blatt kopiert. Das kopieren funktioniert problemlos, aber die "ausgeblendeten Shapes (Textfelder u. Linien)" werden nicht mitkopiert.
Dim RaBereich As Range, sWks As String
Set RaBereich = Range("U1")
If Not Intersect(Target, RaBereich) Is Nothing Then
sWks = ActiveSheet.Name & "_" & Target.Value
Worksheets("Zeugnis").Copy After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = sWks
End If
Wie kann man dieses Manko bewältigen, bzw wie müsste der Copy-Befehl lauten.
PS.: die Shapes sollten denselben Namen haben (teilw. geändert), da sie mit Funktionen (Makros) hinterlegt sind.
Gruß
Lorenz