Sparklines in mehreren Sheets
04.11.2021 15:05:16
yxos
folgendes Makro wirft einen Laufzeitfehler 1004:
______________________________________________
Sub SparklineEinfuegen()
Dim wksBlatt As Worksheet
Dim wkbMappe As Workbook
Dim SpG As SparklineGroup
Set wkbMappe = ThisWorkbook
For Each wksBlatt In wkbMappe.Worksheets
' MsgBox wksBlatt.Name
' wksBlatt.Tab.ColorIndex = 3
Set SpG = wksBlatt.Range("$E$2:$E$14").SparklineGroups.Add(Type:=xlSparkColumn, SourceData:="wksBlatt!B2:D14")
SpG.SeriesColor.Color = RGB(255, 0, 0)
Next wksBlatt
End Sub
Wenn ich die beiden kritischen Zeilen (mit den SpG-Objekten) auf ein einziges Tabellenblatt loslasse funktioniert alles!
Und wenn ich über den oben auskommentierten Befehl die Namen der Blätter anzeigen lasse oder sie einfärbe funktioniert das auch, d.h. die Blätter werden erkannt.
Warum aber kann ich die Sparklines nicht auf alle Worksheets anwenden?
Danke
Roland