VBA: Spalten getrennt markieren
27.06.2017 13:39:32
luflip
ich habe folgendes Problem:
Mein Ziel ist es eine über die Leistungsüberwachung erstellte Tabelle über ein Makro _ automatisch in Diagramme auf einer neu angelegten Tabellenseite zu überführen. Dabei steht in der ersten Spalte die Uhrzeit und in den jeweils nächsten Spalten in der ersten Zeile der Titel und den Folgezeilen die Datensätze. Hierfür habe ich bis jetzt folgendes Makro formuliert:
Sub mehrere_blätter_spaltenerkennung()
' mehrere_blätter_spaltenerkennung Makro
' Tastenkombination: Strg+s
Dim neu_blatt As Worksheet
Set neu_blatt = ThisWorkbook.Worksheets.Add
neu_blatt.Name = "Diagramme"
Dim intLetzteSpalte As Integer, aktiveSpalte As Integer
intLetzteSpalte = Sheets("Datenblatt 1").Cells(1, 256).End(xlToLeft).Column
For aktiveSpalte = 2 To intLetzteSpalte
Sheets("Datenblatt 1").Select
Range(Columns(1), Columns(aktiveSpalte)).Select
ActiveSheet.Shapes.AddChart2(227, xlLineMarkers).Select
ActiveChart.SetSourceData Source:=Sheets("Datenblatt 1").Range(Columns(1), Columns( _
aktiveSpalte))
ActiveChart.Parent.Name = "chart" & aktiveSpalte
ActiveChart.Location Where:=xlLocationAsObject, Name:="Diagramme"
ActiveSheet.ChartObjects("chart" & aktiveSpalte).Activate
ActiveSheet.Shapes("chart" & aktiveSpalte).IncrementLeft -531.75
ActiveSheet.Shapes("chart" & aktiveSpalte).IncrementTop -192.3749606299
Next aktiveSpalte
End Sub
Das Makro erstellt alle Diagramme und verschiebt diese auch auf das neu erstellte Tabellenblatt "Diagramme". Leider werden ab dem zweiten Diagramm mehrere Graphen im Diagramm vereint. Entsprechend sind im dritten Diagramm drei Graphen zu sehen, im vierten sind es vier usw. - wie schreibe ich das Makro nun also um, damit pro Diagramm nur eine Spalte (und somit ein Graph) zu sehen ist?
Vielen Dank
luflip