Pareto per VBA
02.08.2019 15:28:25
Andreas
per VBA möchte ich mir ein Parteodiagramm ausgeben lassen.
Sub Pareto()
Dim wks As Worksheet: Set wks = ActiveSheet
wks.Range("A10:A45").Select
wks.Range("A10:A45,AH10:AH45").Select
wks.Range("AH10").Activate
Application.CutCopyMode = False
ActiveSheet.Shapes.AddChart2(366, xlRegionMap).Select
ActiveSheet.ChartObjects("Diagramm 8").Activate
End Sub
Das Makro ist zur Hälfte selbst programmiert und zur Hälfte aufgezeichnet. Mit einem normalen Säulendiagramm hat meine Programmierung immer geklappt, damit leider nicht.
Im Moment findet Excel das Diagramm 8 nicht (Laut Fehlermeldung)
Was kann ich tun?
Kann ich das Makro direkter (zielgerichtet auf ein Pareto) programmieren?
Vielen Dank schon mal für die Hilfe