AW: Diagramme aus mehreren Worksheets erstellen
19.10.2015 12:53:51
Beverly
Erstelle in Tabelle "KSP_1_2_1" das Diagramm und unter der Voraussetzung, dass der Name aller Tabellen, in denen ein Diagramm erstellt werden soll, mit der Zeichenkette "KSP_" beginnt, kannst du folgenden Code verwenden:
Sub Dias()
Dim wksTab As Worksheet
Dim lngLetzte As Long
Dim rngBereich As Range
Worksheets("KSP_1_2_1").ChartObjects(1).Copy
For Each wksTab In Worksheets
With wksTab
If wksTab.Name "KSP_1_2_1" And Left(wksTab.Name, 4) = "KSP_" Then
.Paste
lngLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), _
.Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count)
Set rngBereich = .Range(.Cells(1, 1), .Cells(lngLetzte, 6))
With .ChartObjects(1).Chart
.SetSourceData Source:=rngBereich
End With
End If
End With
Next wksTab
Set rngBereich = Nothing
End Sub