Diagramm auf jedem Worksheet
22.02.2008 17:18:00
Oliver
Ich habe ein Workbook mit circa 70 sheets. Auf jedem dieser Sheets will ich ein Diagramm darstellen.
Die Quelldaten sind jeweils am selben Ort (B10:M12).
Mit dem untenstehenden Code wird die Tabelle wie gewünscht auf dem aktuellen Sheet erstellt.
Sub diagramm()
Dim sh_name
Dim cht As Chart
sh_name = ActiveSheet.Name
Set cht = Charts.Add
With cht
.ChartType = xlLineMarkers
.SetSourceData _
Source:=Sheets(sh_name).Range("B10:M12")
.Location Where:=xlLocationAsObject, Name:=sh_name
End With
End Sub
Mein Problem ist, dass ich die Grafik auf jedem vorhandenen Sheet erstellen möchte.
Dazu habe ich die Funktion "For Each blatt In Worksheets .... Next" verwendet.
Das Ergebnis sind 70 gleiche Diagramme auf dem ersten Sheet, die anderen sheets bleiben unverändert.
Freundliche Grüsse,
Oliver