Hallo,
ich habe ein Makro welches mir ein Diagramm erstellen soll aufgezeichnet nun soll das aber auf 130 Tabellenblätter durch laufen, allerdings nimmt er immer nur die Daten vom Tabellenblatt 1 (Schreiner) und kopiert die 130 mal? Was muss ich bitte wo ändern damit er die Daten vom jeweiligen Tabellenblatt nimmt?
Besten Dank
Dim WsTab As Worksheet
For Each WsTab In Sheets
WsTab.Activate
Range("A1:M2").Select
ActiveSheet.Shapes.AddChart2(332, xlLineMarkersStacked).Select
ActiveChart.SetSourceData Source:=Range("Schreiner!$A$1:$M$2")
ActiveChart.PlotArea.Select
ActiveChart.ChartArea.Select
ActiveSheet.Shapes("Diagramm 1").IncrementLeft -532.1249606299
ActiveSheet.Shapes("Diagramm 1").IncrementTop -190.5
Range("G10").Select
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveSheet.Shapes("Diagramm 1").ScaleWidth 2.2708333333, msoFalse, _
msoScaleFromTopLeft
ActiveChart.SetElement (msoElementDataLabelTop)
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.ChartTitle.Select
With Selection.Format.TextFrame2.TextRange.Font
.NameComplexScript = "Arial"
.NameFarEast = "Arial"
.Name = "Arial"
End With
Selection.Format.TextFrame2.TextRange.Font.Size = 28
Selection.Format.TextFrame2.TextRange.Font.Bold = msoTrue
Selection.Format.TextFrame2.TextRange.Font.UnderlineStyle = _
msoUnderlineSingleLine
ActiveChart.ChartTitle.Text = "Schreiner"
Range("A1").Select
Next WsTab