Excel und VBA: Formeln, Programmierung, Lösungen

StandardModule: basMain

Sub Uebertragen()
   Dim cht As Chart
   Range("A1:C1").Select
   Set cht = Charts.Add(before:=Sheets(1))
   With Worksheets(2).ChartObjects(1).Activate
      With ActiveChart.ChartArea
         .Select
         .Copy
      End With
   End With
   cht.Paste
   Worksheets("Tabelle2").ChartObjects(1).Delete
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen Grafik und Diagramm