ich möchte gerne via Makro ein Diagramm einzelner gewählter Spalten erstellen. Das Makro habe ich mit dem Recorder aufgenommen, ist schon etwas her wo ich mich etwas mehr mit VBA beschäftigt habe. Von daher brauche ich hier definitiv Hilfe.
Aktuell bezieht sich das Makro in meiner Tabelle nur auf den Bereich K18-K39. Alle zahlen dort werden zu einem Diagramm zusammengefasst. Ich würde gerne, wenn in der danebenliegenden Spalte L18-L39 neue Daten eingegeben werden, ein neues Diagramm erzeugen. Und dann würde es mit der nächstfolgenden Spalte weitergehen usw.
Was muss ich am Code verändern damit nicht immer nur dieselbe Spalte ausgewertet wird? Es müsste ja vielleicht anhand eines Zählers o.ä. erkannt werden, welche Spalte zuletzt gefüllt wurde?
Vielen Dank für die Hilfe - hier ist das Makro :)
Liebe Grüße
Sebastian
Private Sub btn_Diagramm_Click()
ActiveSheet.Shapes.AddChart2(317, xlRadarFilled).Select
ActiveChart.SetSourceData Source:=Range( _
"Tabelle1!$K$18,Tabelle1!$K$24,Tabelle1!$K$29,Tabelle1!$K$34,Tabelle1!$K$39" _
)
ActiveChart.ChartGroups(1).RadarAxisLabels.Select
ActiveChart.ChartGroups(1).RadarAxisLabels.Select
Application.CutCopyMode = False
ActiveChart.FullSeriesCollection(1).XValues = _
"={""Sortieren"",""Säubern"",""Systematisieren"",""Standardisieren"",""Selbstdisziplin & KVP""}"
ActiveChart.ChartTitle.Select
ActiveChart.ChartTitle.Text = "Auswertung"
end sub