Mit nachfolgendem Code versuche ich einen Tabellenbereich incl Diagrammen
in ein anderes Tabellenblatt zu kopieren.
Allerdings erscheint immer nur der Text, die Diagramme nicht.
Wie gehts richtig
Gruss Christoph
Worksheets(Blattname).Range("B8:D" & intTmp).Copy
With Worksheets("Tempdruck")
.Range("B8").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
.Range("B8").PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:=
_False, Transpose:=False
Application.CutCopyMode = False
End With