Hallo Excelgemeinde
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