Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Seriescollection bei einem Pivot chart kopieren
zurück: Button deaktivieren, der leider den Focus hat weiter: Datum + Stunden:Minuten:Sekunden in Tabelle schreiben Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Daniel82
Gast


Verfasst am:
29. Jun 2007, 14:17
Rufname:


Seriescollection bei einem Pivot chart kopieren - Seriescollection bei einem Pivot chart kopieren

Nach oben
       Version: Office 2003

Hallo liebe Foren-User,

ich habe folgendes Problem: bei einem PivotChart habe ich verschiedene SeriesCollections die bis auf die anzahl der datenpunkte gleich sind. da ich aber nur die Laengste davon haben moechte, habe ich folgendes makro geschrieben:
Code:
    Dim oChart
    Dim oSeries
   
    For Each oChart In Me.ChartSpace.Charts
        j = oChart.Index
        For Each oSeries In Me.ChartSpace.Charts(0).SeriesCollection
            Save = Right(oSeries.Name, 10)
            save2 = Right(oSeries.Name, 9)
            If Right(oSeries.Name, 6) = "shift1" Or _
               Left(Save, 6) = "shift1" Then
                If maxPointsS1 > oSeries.Points.Count Then
                    i = oSeries.Index
                    Form1.ChartSpace.Charts(j).SeriesCollection.Delete i
                  Else
                    Set availableCapS1 = oSeries
                    Set S1Points = oSeries.Points
                    i = oSeries.Index
                    maxPointsS1 = oSeries.Points.Count
                    Form1.ChartSpace.Charts(j).SeriesCollection.Delete i
                End If
            End If
        Next oSeries
        Set availableCapS1 = oChart.SeriesCollection.Add
        availableCapS1.Value
        availableCapS1.Interior.Color = "green"
        availableCapS1.Type = chChartTypeColumnStacked
        availableCapS1.Caption = "Shift1"
        i = availableCapS1.Points.Count
    Next oChart
das scheint soweit auch alles zu funktionieren (die neue serie hat die selbe anzahl an datenpunkten, wie die von der kopiert wird) NUR haben alle punkte den Wert 0...

Falls einer einen Tip hat, waehre ich sehr dankbar Smile

liebe gruesse
Daniel
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Pivot filtrieren 0 Cirtap 277 04. Nov 2008, 11:58
Cirtap Pivot filtrieren
Keine neuen Beiträge Access Tabellen & Abfragen: text in griechisch von excel nach access kopieren 3 superlars234 1103 21. Mai 2008, 11:20
MAPWARE text in griechisch von excel nach access kopieren
Keine neuen Beiträge Access Tabellen & Abfragen: Problem mit Pivot Chart 0 wubbz 2310 20. Mai 2008, 11:56
wubbz Problem mit Pivot Chart
Keine neuen Beiträge Access Tabellen & Abfragen: Datumsformat aendert sich beim Kopieren 1 myRandom 380 20. Feb 2008, 17:36
KlausMz Datumsformat aendert sich beim Kopieren
Keine neuen Beiträge Access Tabellen & Abfragen: Kreuztabellenabfragen Pivot Auswertung 1 Riza 2013 19. Feb 2008, 17:10
Nouba Kreuztabellenabfragen Pivot Auswertung
Keine neuen Beiträge Access Tabellen & Abfragen: Chart y-Achse bei 0 anfangen??? 1 Gast 806 17. Nov 2007, 23:44
Billi Chart y-Achse bei 0 anfangen???
Keine neuen Beiträge Access Tabellen & Abfragen: SQL-->UNION + Pivot Chart 1 HD985 905 03. Okt 2007, 00:06
JörgG SQL-->UNION + Pivot Chart
Keine neuen Beiträge Access Tabellen & Abfragen: Pivot Tabelle drucken 1 FlorianWein 4138 27. Jul 2007, 12:40
datroc Pivot Tabelle drucken
Keine neuen Beiträge Access Tabellen & Abfragen: in einer sauberen DB erlaubt?..Stammtabelleninhlt kopieren 5 derArb 503 18. Apr 2007, 23:32
derArb in einer sauberen DB erlaubt?..Stammtabelleninhlt kopieren
Keine neuen Beiträge Access Tabellen & Abfragen: Tabellen kopieren 2 James11 498 15. Apr 2007, 19:16
James11 Tabellen kopieren
Keine neuen Beiträge Access Tabellen & Abfragen: Wert kopieren 2 noboc 385 04. Feb 2007, 20:55
Gast Wert kopieren
Keine neuen Beiträge Access Tabellen & Abfragen: Kompletten Datensatz Kopieren 2 dpik 1292 31. Jan 2007, 13:20
Gast Kompletten Datensatz Kopieren
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML Forum