über makro bestimmte Tabellenblätter ändern

Computer: Software & Programmierung Office Software
1

Hallo,

ich habe ein Makro aufgezeichnet (ich habe davon eigentlich keine Ahnung).
in Schriftform sieht das Makro so aus:

Sub Farbe_ändern()

ActiveSheet.ChartObjects(„Diagramm 1“).Activate
ActiveChart.SeriesCollection(6).Select
With Selection.Border
.Weight = xlThin
.LineStyle = xlAutomatic
End With
Selection.Shadow = False
Selection.InvertIfNegative = False
With Selection.Interior
.ColorIndex = 17
.Pattern = xlSolid
End With
ActiveChart.SeriesCollection(7).Select
With Selection.Border
.Weight = xlThin
.LineStyle = xlAutomatic
End With
Selection.Shadow = False
Selection.InvertIfNegative = False
With Selection.Interior
.ColorIndex = 34
.Pattern = xlSolid
End With
End Sub

Nun habe ich in der Exceltabelle circa 10 Tabellenblätter mit jeweils einem Diagramm. Das Makro sollte gleichzeitig in allen Blättern mit Diagramm laufen (es gibt auch Tabellenblätter mit Daten) und zwar ohne, dass ich auf jedem Blatt das Makro einzeln aufrufen muss.
Wie könnte ich das Makro ändern, damit es funktioniert (z.B. AllChart oder sowas?)

Danke und Grüße
Anja

2

Hallo Anja,

Ich gehe davon aus, dass in jedem Blatt das Diagramm gleich heisst:

Sub Farbe\_ändern()
 Dim oWorksheet

 For Each oWorksheet In ActiveWorkbook.Worksheets

 If oWorksheet.ChartObjects.Count Then
 If Not oWorksheet.ChartObjects("Diagramm 1") Is Nothing Then
 oWorksheet.ChartObjects("Diagramm 1").Activate

 ActiveChart.SeriesCollection(6).Select
 Selection.Border.Weight = xlThin
 Selection.Border.LineStyle = xlAutomatic
 Selection.Shadow = False
 Selection.InvertIfNegative = False
 Selection.Interior.ColorIndex = 17
 Selection.Interior.Pattern = xlSolid
 
 ActiveChart.SeriesCollection(7).Select
 Selection.Border.Weight = xlThin
 Selection.Border.LineStyle = xlAutomatic
 Selection.Shadow = False
 Selection.InvertIfNegative = False
 Selection.Interior.ColorIndex = 34
 Selection.Interior.Pattern = xlSolid
 End If

 End If ' oWorksheet.ChartObjects.Count

 Next ' Each oWorksheet In ActiveWorkbook.Worksheets
End Sub

Gruß Christian

3

Hallo Christian,

habe deine Änderungen übernommen und es funktioniert auch. Einziges Problem ist, dass er es nur macht, wenn das Diagramm auf einen Excel-Arbeitsblatt ist, wenn ich das Diagramm als neues Blatt mit dem Namen „Diagramm 1“ erzeuge, funktioniert es nicht.

Kannst du mir sagen, was ich ändern muss?

Danke und Grüße Anja

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]