Punktdiagramm XY Artikel als Koordinate darstellen
04.02.2016 20:32:40
Andi
habe wieder mal ein Problem.
Ich habe ein Punktdiagramm und hierzu möcht ich, das aus Spalte A z.B. Artikel
jeweils als Koordinate in dem Punktdiagramm angezeigt wird.
Artikel Wert1 Wert2
A 22 35
B 33 22
A soll in der X-Achse auf 22 und Y-Achse auf 35 stehen
B soll in der X-Achse auf 33 und Y-Achse auf 22 stehen
usw.
Bisher habe ist das manuell durchgeführt über Datenreihen bearbeiten.
Bei mehreren 100 Zeilen halt sehr Zeitraubend!
Kann mann diese Datenreihen über VBA automatisch in das Punktdiagramm ausführen.
Habe hier in Archiv schon geschaut und nichts gefunden.
Auch eine Macro-Aufzeichnung bringt mich nicht weiter, da eben nur für drei Datenpunkte immer der gleiche Zellbezug ausgeführt wird.
Die Datenpunkte sollen immer die gleiche grösse und das gleiche Blasensymbol haben.
Über einen Mitterwertkreuzpunkt habe ich noch Linien eingebaut die mit der Vertikalen Fehlerinikator in der Y-Achse duchgehend ist abr in der X-Achse bekomme ich das nicht hin.
Und beim Löschen einer Zeile bekomme ich eine Fehlermeldung, und dieser Daten punkt ist dann nicht ganz gelöscht.
Ich lade einfach eine Datei hoch
https://www.herber.de/bbs/user/103295.xlsm
Vielen Dank im vorraus für eure Bemühungen
Gruß
Andi
Sub Makro2()
ActiveSheet.ChartObjects("Diagramm 19").Activate
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(8).Name = "=Tabelle1!$A$9"
ActiveChart.SeriesCollection(8).XValues = "=Tabelle1!$B$9"
ActiveChart.SeriesCollection(8).Values = "=Tabelle1!$C$9"
ActiveSheet.ChartObjects("Diagramm 19").Activate
ActiveChart.SeriesCollection(8).Select
With Selection
.MarkerStyle = -4118
.MarkerSize = 7
End With
Selection.MarkerStyle = 8
End Sub