einen neuen Graf in ein Diagram tuen will..
sowas wie
add. range(celle(23,33),celle(29,99)
....
Sub DiaErstellen()
Dim lngLetzte As Long
Dim intLetzte As Integer
Dim intSpalte As Integer
With ActiveSheet.ChartObjects(1).Chart
For intSpalte = 1 To Rows(1).Find(What:="*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
With .SeriesCollection.NewSeries
lngLetzte = Columns(intSpalte).Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
.Values = Range(Cells(2, intSpalte), Cells(lngLetzte, intSpalte))
.Name = Cells(1, intSpalte)
End With
Next intSpalte
End With
End Sub
Bis später