Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
340to344
340to344
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

CodeProblem

Forumthread: CodeProblem

CodeProblem
24.11.2003 09:12:25
Johann
Guten TAG!

Wer kann mich bei folgendem Problem unterstützten!

Ich starte mit einem Command Button ein Makro, dass PivotChart´s aktualisiert!
Dieser Button ist im Tabellenblatt Einstellungen!!

Sub AktualisierenPivot()

Application.ScreenUpdating = False

Sheets("P1").Select
Sheets("G1").Select
ActiveChart.PivotLayout.PivotTable.RefreshTable

Sheets("P2").Select
Sheets("G2").Select
ActiveChart.PivotLayout.PivotTable.RefreshTable

Sheets("Einstellungen").Select
Range("A90").Select

Application.ScreenUpdating = True

End Sub



Nun wollte ich zusätzlich, dass ich im Pivot Chart die selben Farben verwenden kann wie ich diese festgesetzt habe (Arbeitstabellen)!

Um die Einstellungen auch bei Veränderungen der Tabelle nicht zu verlieren, (Farben) habe ich diesen Code mit Calculate erstellt!

Programmcode:


Private Sub Chart_Calculate()
Application.ScreenUpdating = False
ActiveChart.SeriesCollection("Summe von u").Interior.ColorIndex = 6 'Fehler
ActiveChart.SeriesCollection("Summe von u?").Interior.ColorIndex = 23
ActiveChart.SeriesCollection("Summe von ru").Interior.ColorIndex = 4
ActiveChart.SeriesCollection("Summe von ru,5").Interior.ColorIndex = 3
ActiveChart.SeriesCollection("Summe von u,5").Interior.ColorIndex = 5
ActiveChart.SeriesCollection("Summe von z").Interior.ColorIndex = 44
ActiveChart.SeriesCollection("Summe von ku").Interior.ColorIndex = 45
Application.ScreenUpdating = True
End Sub



Wenn ich nun das Makro laufen lasse erhalte ich den Fehlercode Laufzeitfehler 91 Objektvariable od. With Blockvariable nicht festgelegt???

Nach Debuggen markiert Excel die erste Zeile (Makro) 

Private Sub Chart_Calculate()
ActiveChart.SeriesCollection("Summe von u").Interior.ColorIndex = 6
Was mache ich falsch bzw. welche Variable muss ich noch hinzufügen, damit der Code einwandfrei läuft!
Beste Grüße
Jo.
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: CodeProblem
24.11.2003 09:23:43
Nike
Moin,

das ActiveChart.SeriesCollection Objekt wird
wohl die Eigenschaft Interior nicht haben.
Es wird dabei nur auf die Quelle der Daten verwiesen,
aber nicht auf nen Range...
Daher würde ich empfehlen die Zellen anders zu addresieren,
wenn du den Zellbereich kennst, z.B. so:
Range("Summe von u").Interior.ColorIndex = 6
oder
Range("E1:E20").Interior.ColorIndex = 6

Bye

Nike
Anzeige
AW: CodeProblem
24.11.2003 10:23:12
Johann
Hallo Nike!

Im Pivot Table kenne ich diese Adresse nicht bzw. ich kann im Chart bzw. bei der Erstellung nur den gesamten Bereich angeben. Also den zu analysierenden Datenbereich!

Gibt´s noch ne Möglichkeit, dies per Code zu lösen!
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige