Diagramm aktualisieren

[iriearis]

Hallo!

Folgendes Problem:


Ich habe ein Balkendiagramm, das nur eine Datenreihe besitzt. Handelt sich dabei um Projekte in einem entsprechenden Postleitzahl-Gebiet (0, 1, 2, 3, 4, 5, 6, 7, 8, 9)
Diese Datenreihe wird nach und nach erweitert, je nach dem wann Projekte hinzukommen.

Jetzt soll das Diagramm die Top 5 der Postleitzahlen, in der die meisten Projekte sind, wieder geben.

Ich habe dafür die Anzahl der Projekte mit den PLZ-Gebieten sortiert und den Datenbereich des Diagramms auf die obersten 5 Zeilen festgelegt.
Das Diagramm funktioniert so auch.

Wenn jetzt aber neue Projekte hinzukommen muss ich die Liste aus dem Datenbereich neu sortieren (sprich aktualisieren), bevor sie ins Diagramm aufgenommen werden.

Kann ich die Sortierungder Liste und damit auch die Aktualisierung des Diagramms automatisch hinbekommen?

Vielen Dank für eure Hilfe!

[Jonas0806]

Hallo,

verwende dafür ein Pivot-Chart. Das bietet die gesuchte Funktionalität.

[iriearis]

inwiefern? Auch bei einer Pivot muss ich doch selbstständig aktualisieren, oder nicht?

[Jonas0806]

Hallo,

in einem PivotChart kannst Du direkt filtern, oder z.B. auch, sehr komfortabel, mit Datenschnitten arbeiten.

[Rabe]

Hi,

Auch bei einer Pivot muss ich doch selbstständig aktualisieren, oder nicht?

aber eine Pivot kann automatisch per Makro aktulisiert werden.

Sub Pivot_aktualisieren()
'
' Pivot_aktualisieren: alle Pivot einer einzelnen Tabelle
' © 21.09.2011, Ralf
' Aufgerufen mit Worksheet_Activate() im betreffenden Tabellenblatt
'
Dim pt As PivotTable
'

'Alle Pivot-Tabellen eines Tabellenblattes durchlaufen
For Each pt In ActiveSheet.PivotTables

'Den PivotCache der PT aktualisieren
pt.PivotCache.Refresh
Next pt

' Dim i As Integer
' Dim j As Integer
' j = ActiveSheet.PivotTables.Count ' die Nummer der Pivot pro Sheet muß fortlaufend sein ohne Lücken
'
' For i = 1 To j
' ActiveSheet.PivotTables("PivotTable" & i).PivotCache.Refresh
' Next i

End Sub

Sub AllePivotTabellenaktualisieren() ' © Thomas Ramel
'Variablen deklarieren
Dim ws As Worksheet
Dim pt As PivotTable

'Alle Tabellenblätter der Mappe durchlaufen
For Each ws In ActiveWorkbook.Worksheets

'Alle Pivot-Tabellen eines Tabellenblattes durchlaufen
For Each pt In ws.PivotTables

'Den PivotCache der PT aktualisieren
pt.PivotCache.Refresh
Next pt
Next ws
End Sub

Aufruf hinter das Tabellenblatt

Private Sub Worksheet_Activate()
Call Pivot_aktualisieren
End Sub