Vorweg: Ich habe keine Kenntnisse in VBA, nur mit dem Recorder zum Teil gearbeitet, aber ich denke ein Makro würde mir eine Menge Arbeit ersparen.
Zum Problem:
Ich bin schon seit längerer Zeit dabei ein Diagramm über den Makrorecorder zu erstellen, aber es funktioniert einfach nicht ... habe auch schon hier im Forum geschaut, aber nichts 100% passendes gefunden.
Ausgangslage ist eine Tabelle mit zunächst 2 Spalten und 404 Zeilen.
Es soll ein Diagramm erstellt werden mit den im Code angegebenen Quellen (Alleine das funktioniert schon nicht).
Wenn das Problem gelöst sein sollte, möchte ich das ganze noch variabel gestalten, da es von dem "Datenpaket" "2 Spalten und 404 Zeilen" noch ca. 10 weitere gibt, mit den Daten in den gleichen Zeilen ...
Ich hoffe es ist eineigermaßen verständlich erklärt, kann leider keine Datei direkt uploaden, da es sich um unternehmensinterne Infos handelt.
Code:
Sub Makro4()
' Makro4 Makro
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlLine
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Name = "=""Gesamt"""
ActiveChart.SeriesCollection(1).Values = "='Tabelle2'!$Z$37;'Tabelle2'!$Z$69;'Tabelle2'!$Z$ _
103;'Tabelle2'!$Z$136;'Tabelle2'!$Z$170;'Tabelle2'!$Z$203;'Tabelle2'!$Z$237;'Tabelle2'!$Z$271;'Tabelle2'!$Z$304;'Tabelle2'!$Z$338;'Tabelle2'!$Z$371;'Tabelle2'!$Z$405"
ActiveChart.SeriesCollection(1).XValues = "='Tabelle2'!$N$372;'Tabelle2'!$N$339;'Tabelle2'!$N$ _
305;'Tabelle2'!$N$272;'Tabelle2'!$N$238;'Tabelle2'!$N$204;'Tabelle2'!$N$171;'Tabelle2'!$N$137;'Tabelle2'!$N$104;'Tabelle2'!$N$70;'Tabelle2'!$N$38;'Tabelle2'!$N$4"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(2).Name = "=""Umbuchung von"""
ActiveChart.SeriesCollection(2).Values = "='Tabelle2'!$Z$36;'Tabelle2'!$Z$68;'Tabelle2'!$Z$102;' _
Tabelle2'!$Z$135;'Tabelle2'!$Z$169;'Tabelle2'!$Z$202;'Tabelle2'!$Z$236;'Tabelle2'!$Z$270;'Tabelle2'!$Z$303;'Tabelle2'!$Z$337;'Tabelle2'!$Z$370;'Tabelle2'!$Z$404"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(3).Name = "=""Umbuchung nach"""
ActiveChart.SeriesCollection(3).Values = "='Tabelle2'!$AA$404;'Tabelle2'!$AA$370;'Tabelle2'!$AA$ _
337;'Tabelle2'!$AA$303;'Tabelle2'!$AA$270;'Tabelle2'!$AA$236;'Tabelle2'!$AA$202;'Tabelle2'!$AA$169;'Tabelle2'!$AA$135;'Tabelle2'!$AA$102;'Tabelle2'!$AA$68;'Tabelle2'!$AA$36"
End Sub
beim fettgedruckten Teil spuckt mir Excel bereits den Fehler "1004" aus "Anwendungs- oder objejektdefinierter Fehler"Vielleicht kann mir ja einer direkt weiterhelfen.
Danke im voraus!
Gruß,
Matthias