Vielen Dank!!! ;-)
Christian aus Berlin
++++
Sub xyz()
'Zellbereich der Datenquelle markieren.
Range([B5], [H65536].End(xlUp)).Select
'Diagrammerstellung.
Charts.Add
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Sheets("Datenquelle").Range("B5:H26"), _
PlotBy:=xlColumns
End Sub