Ich sehe keinen Sinn das in eine Prozedur auszulagern.
Option Explicit
Sub DiagrammErstellen()
Dim DL As Integer '#Zeilen
Dim i As Integer ' Zeilen Laufindex
Dim sheet As Worksheet
Set MyWorksheet = ThisWorkbook.Sheets("KPI")
Application.CutCopyMode = False
DL = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To DL
With MyWorksheet.Shapes.AddChart2(216, xlBarClustered)
With .Chart
.ChartArea.ClearContents
.SeriesCollection.NewSeries
With .FullSeriesCollection(1)
.Name = "=Pivot! " & Cells(i, 1).Address
.Values = "=Pivot!" & Range(Cells(i, 2), Cells(i, 3)).Address
End With
'.HasLegend = False
End With
.Width = 10
.Height = 10
.Top = Cells(i, 2).Top
.Left = Cells(i, 2).Top
End With
Next
End Sub
|