Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1260to1264
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1260to1264
1260to1264
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Pivot Tabelle filtert nicht richtig

Pivot Tabelle filtert nicht richtig
Abu
Hallo zusammen,
habe mal wieder ein Problem und hoffe ihr koennt mir weiterhelfen.
Folgender Code soll eine Pivot Tabelle aktualisieren und anschliessend bestimmte Werte anzeigen.

ActiveSheet.PivotTables("DayDamage").PivotCache.Refresh
ActiveSheet.PivotTables("DayDamage").PivotFields("Week").CurrentPage = "(All)"
With ActiveSheet.PivotTables("DayDamage").PivotFields("Week")
.PivotItems(woche).Visible = True
For i = 1 To woche - 1
.PivotItems(i).Visible = False
Next
End With
Erst soll die aktuelle Woche gesetzt werden und anschliessend alle anderen Wochen rausgefiltert.
Der Code laeuft auch durch ohne zu murren allerdings bleibt immer woche 16 stehen.
Kann mir jemand sagen woran das liegt? Selbst mit .PivotItems(16).Visible = False bekomme ich es nicht ausgeblendet obwohl eine andere Woche auch ausgewaehlt ist.
Wuerde mich ueber Antwort freuen.
Beste Gruesse
Abu

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

Betreff
Benutzer
Anzeige
AW: Pivot Tabelle filtert nicht richtig
23.04.2012 23:22:14
fcs
Hallo Abu,
möglicherweise gibt es ein Problem mit der Index-Nr. und den Namen der PivotItems des Feldes, so dass Index-Nr und Woche nicht übereinstimmen.
Deshalb ist es evtl. sinnvoll über die Namen des Page-Felde-Items zu arbeiten.
Die Tatsache, dass du mit einer Liste im Seitenfeld arbeitest mit Mehrfach-Auswahl deutet darauf hin, dass du mit Excel 2007 arbeitets. In Excel 2003 gab es diese Funktionalität noch nicht ,wenn ich mich korrekt erinnere.
Wenn nur die Daten zu einer Woche anzeigen willst, dann kannst du auch die Mehrfachauswahl deaktivieren und direkt die Wochennr. als Seiten-Wert festlegen. Wenn die Woche als PivotItem nicht nur aus der Nummer der Woche besteht sondern als KW16 oder ähnlich in der Auswahlliste erscheint, dann muss du für die Namen der Pivot-Items entsprechende Strings zusammenbasteln
z.B.: "KW" & CStr(woche)
Gruß
Franz 
Sub aaTest()
Dim Woche, i
Woche = ActiveSheet.Range("H1") 'Testzeile
ActiveSheet.PivotTables("DayDamage").PivotCache.Refresh
ActiveSheet.PivotTables("DayDamage").PivotFields("Week"). _
EnableMultiplePageItems = False
ActiveSheet.PivotTables("DayDamage").PivotFields("Week").CurrentPage = CStr(Woche)
End Sub
Sub bbTest()
Dim Woche, i
Woche = ActiveSheet.Range("H1") 'Testzeile
ActiveSheet.PivotTables("DayDamage").PivotCache.Refresh
ActiveSheet.PivotTables("DayDamage").PivotFields("Week"). _
EnableMultiplePageItems = True
With ActiveSheet.PivotTables("DayDamage").PivotFields("Week")
.PivotItems(CStr(Woche)).Visible = True
For i = 1 To Woche - 1
.PivotItems(CStr(i)).Visible = False
Next
End With
End Sub

Anzeige
AW: Pivot Tabelle filtert nicht richtig
24.04.2012 11:51:11
Abu
Hallo Franz,
Du hast beinahe recht. Ich habe es in 2010 geschrieben aber gebraucht wird es in 2003. Die Itemwahl mit (CStr(i)) und korrektur der Daten liefern nun endlich das gewuenschte Ergebnis. Habe 'Namen' angelegt um beim aktualisieren auch die neuen Daten zu erfassen. Da hatte ich ein paar luecken in den Zeilen und nicht alles wurde angezeigt. Musste allerdings die PivotTabellen und Charts alle neu anlegen damit der alte muell aus den Listen kam...
Vielen Dank.
Beste Gruesse
Abu

328 Forumthreads zu ähnlichen Themen

Tabelle nach Anzahl sortieren
Pascal

Hallo,
wie kann ich eine Tablle nach der Anzahl der Wörter in einer Spalte sortieren?
Die Tabelle sieht etwa so aus:
Spalte1 | Spalte2 | Spalte 3
1 | der die | ...
2 | der | ...
3 | der die das | ...
und aussehen soll...
25.09.2008 11:50:39
Thread-ID: 1012284
6 Beiträge
Anzeige
Makro funktioniert nicht richtig, Werte auslesen
Uwe

Hallo zusammen, habe folgendes Problem in dem beigefügtem Makro funktioniert es nicht das er die Werte 2 und 3 aus der Tabelle ausliest. Wert 1 geht wunderbar. Hat jemand eine Lösung?
Hallo Uwe,
unregelmäßig aufgebaute Tabellen per Makro abzuarbeiten ist immer ziemlich aufwendig zu prog...
07.11.2008 08:22:00
Thread-ID: 1022502
2 Beiträge
Tabelle nach Namen durchsuchen -> Wert ausgeben
Aschi

Hallo,
ist es möglich mit einer Excel Funktion eine Tabelle nach gewissen Informationen zu durchlaufen und in einer anderen Zelle dann einen entsprechenden Wert auszugeben?
Also z.B. ich habe eine Liste und in der Zelle E steht „1. FC Köln“, eine Zeile darunter steht in E „FC Bayern Mün...
02.12.2008 16:17:12
Thread-ID: 1029551
8 Beiträge
Anzeige
Tabelle sortiert nicht im Netzwerk ?
A.Franz

Hallo...,
ich hoffe wirklich bei meinem nachfolgendem Problem kann mir jemand helfen,da ich mir das ganze nicht erklären kann.Ich habe eine ListBox mit 5-Spalten die über Row-Source A1:E gefüllt wird.Weiterhin habe ich eine Textbox über die ich einen Suchbegriff für die Auftragsnummer einge...
12.12.2008 11:25:00
Thread-ID: 1032340
2 Beiträge
Autofilter über Makro funktioniert nicht mehr
Ramon

Hallo Excel-Freunde,
ich habe ein ganz komisches Problem:
Wenn ich im Makro die Autofilter-Funktion einbinde, wird beim ausführen des entsprechenden
Makros in dem Modul der Begriff "Autofilter" gelb markiert, mit der Fehlermeldung:
"Fehler beim kompilieren:
Methode oder Date...
23.01.2009 15:01:21
Thread-ID: 1043020
3 Beiträge
Tabellen sortiere und nach wert in zelle
Walli

Guten Tag,
ich habe folgendes Makro für das Sortieren der Tabellenblätter
gefunden, funktioniert auch.:
Sub Tabellenblätter_sortieren() Dim Cnt As Integer Dim N As Integer Dim M As Integer On Error GoTo EndOfMacro Application.ScreenUpdating = False Cnt = ActiveWorkbook.Worksheets....
21.02.2009 11:24:43
Thread-ID: 1052581
7 Beiträge
Auto open funktioniert nicht richtig
Bodo

Guten Tag.
Ich versuche diesen Code hier zum Laufen zu bringen.
Sub Auto_open() ' Auto_öffnen Makro ' Blatt "Grundwerte" ausblenden. Unnötiges ausblenden. Blatt "Hinweise" aktivieren. In Vollbild- _ Modus schalten. Sheets("Grundwerte").Visible = False Sheets("Hinweise").Select ActiveW...
25.02.2009 14:31:35
Thread-ID: 1053941
6 Beiträge
Tabellen in Datei sortieren aber nach ...
walli

Guten Morgen,
ich habe eine große Datei mit vielen Tabellen.
Die Tabellen haben Namen z.B. Busch und Busch M also der gleiche Name
aber nach dem Namen Leerzeichen und ein großes M.
Ich möchte die Tabellen automatisch nach Namen sortieren + direkt
daneben jeweils die Tabe...
18.03.2009 09:17:28
Thread-ID: 1061282
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
7
1
7
3
1
2
6
5
2
4
10
16
2
6
2
10
2
4
3
2
14
4
2
1