Private Sub CommandButton5_Click()
Application.ScreenUpdating = False
' In den nächsten zwei Zeilen wird der darzustellende Bereich markiert.
i = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column
ActiveSheet.Range(Cells(1, "a"), Cells(20, i)).Select
Charts.Add
ActiveChart.ChartType = xlLineMarkers
'source für das diagramm ist der oben markierte bereich, wie sagt man dem das?
' So wie es da steht kommt eine Fehlermeldung: Objekt unterstützt Eigenschaft oder Methode nicht
ActiveChart.SetSourceData Source:=Sheets("entwicklungen").range.selected, PlotBy _
:=xlRows
ActiveChart.Location Where:=xlLocationAsNewSheet
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
Application.ScreenUpdating = True
Exit Sub
End Sub
Danke, Bernd