so direkt nicht aber da hast mal was:
If j <> 1 Or k <> 1 Then
Set chart = shtDiag.ChartObjects(1).Duplicate
Else
Set chart = shtDiag.ChartObjects(1)
End If
'Positionieren
chart.Top = shtDiag.Rows(zeile).Top
chart.Left = shtDiag.Columns(spalte).Left
chart.chart.SeriesCollection(1).Values = shtD.Range("E" & i_von & ":E" & i_bis)
chart.chart.SeriesCollection(2).Values = shtD.Range("F" & i_von & ":F" & i_bis)shtDiag is ein Worksheet-Objekt, chart ein ChartObject.
Damit positionierst ein Diagramm und weist die Datenquelle zu (in dem Fall zwei Datenreihen). Allerdings von einer Diagrammvorlage.
Die x-Achsen-Beschriftung kannst du glaub ich mit dem Axes-Objekt und CategoryNames oder so ändern, habs grad gefunden:
Set Charts("Chart1").Axes(xlCategory).CategoryNames = _
Worksheets("Sheet1").Range("B1:B5")is aus der VBA-Hilfe.
danke erstmal
das Problem ist halt dass es sich um ein relativ spezielles Diagram handelt, also zB werden die Achsen logarithmisch gestellt, es existiert ne zweite vertikale Achse etc und bis ich mir das alles rausgesucht hab werd ich alt 
bzw will ichs nach Möglichkeit vermeiden.
Aber das Diagramm existiert ja schon oder? Dann kannst es ja kopieren und nur die Datenquelle ändern oder?
Sie haben noch kein Benutzerkonto auf unserer Seite? Registrieren Sie sich kostenlos und nehmen Sie an unserer Community teil!