CodeProblem

Bild

Betrifft: CodeProblem
von: Johann
Geschrieben am: 24.11.2003 09:12:25

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.
Bild


Betrifft: AW: CodeProblem
von: Nike
Geschrieben am: 24.11.2003 09:23:43

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


Bild


Betrifft: AW: CodeProblem
von: Johann
Geschrieben am: 24.11.2003 10:23:12

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!


Bild

Beiträge aus den Excel-Beispielen zum Thema " Email ohne Anhang in Netscape versenden "