Private Sub Command2_Click()
Dim oXL As Object
Dim oBook As Object
Dim oSheet As Object
Dim oChart As Object
 
Dim iRow As Integer
Dim iCol As Integer
 
Const cNumCols = 10
Const cNumRows = 2
 
 
    ReDim aTemp(1 To cNumRows, 1 To cNumCols)
 
    Set oXL = CreateObject("Excel.application")
    Set oBook = oXL.Workbooks.Add
    Set oSheet = oBook.Worksheets.Item(1)
 
 
    Randomize Now()
    For iRow = 1 To cNumRows
       For iCol = 1 To cNumCols
          aTemp(iRow, iCol) = Int(Rnd * 50) + 1
       Next iCol
    Next iRow
    oSheet.Range("A1").Resize(cNumRows, cNumCols).Value = aTemp
 
    Set oChart = oSheet.ChartObjects("Diagramm1").Chart 'Hier kommt ein Fehler 
    ' "Das Element mit dem angegebenen Namen wurde nicht gefunden."
 
    Clipboard.Clear
    With oChart
        .ChartArea.Copy
    End With
 
    oXL.Visible = True
 
    oXL.UserControl = True
    Clipboard.Clear
 
 
 
End Sub

Wer aufhört sich zu verbessern, hört auf gut zu sein.