Autor
|
Thema: Pivot Tabellen und vb (1384 mal gelesen)
|
Axel.Strasser Ehrenmitglied V.I.P. h.c. Selbstständig im Bereich PLM/CAx
Beiträge: 4107 Registriert: 12.03.2001 Früher war vieles gut, und das wäre es heute immer noch, wenn man die Finger davon gelassen hätte!
|
erstellt am: 06. Jul. 2010 16:25 <-- editieren / zitieren --> Unities abgeben:
Ich habe ein kommisches Problem wenn ich meine Pivot Tabellen via Script bearbeiten will Zitat: With Sheets(BlattName).PivotTables("Abrechnung").PivotFields("Department") For i = 1 To .PivotItems.Count If .PivotItems(i).Name = "Abteil ABC" Then .PivotItems(i).Visible = False ElseIf .PivotItems(i).Name = "(blank)" Then .PivotItems(i).Visible = True ElseIf .PivotItems(i).Name = " " Then .PivotItems(i).Visible = True Else If .PivotItems(i).Visible = False Then .PivotItems(i).Visible = True End If End If Next End With
dann läuft es durch für (blank) und für " " nur dann wenn ich den Wert auf False setze HAt da jemand eine Erklärung / Lösung ? Ich kapiere es nicht mehr. Axel PS: Excel 2007 ------------------ Inoffizielle deutsche CATIA Hilfeseite Netiquette von cad.de [Diese Nachricht wurde von Axel.Strasser am 06. Jul. 2010 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Axel.Strasser Ehrenmitglied V.I.P. h.c. Selbstständig im Bereich PLM/CAx
Beiträge: 4107 Registriert: 12.03.2001 Früher war vieles gut, und das wäre es heute immer noch, wenn man die Finger davon gelassen hätte!
|
erstellt am: 06. Jul. 2010 21:41 <-- editieren / zitieren --> Unities abgeben:
|
Samson53 Mitglied Nur noch selten simulierend
Beiträge: 119 Registriert: 18.02.2010
|
erstellt am: 15. Jul. 2010 08:53 <-- editieren / zitieren --> Unities abgeben: Nur für Axel.Strasser
|
Axel.Strasser Ehrenmitglied V.I.P. h.c. Selbstständig im Bereich PLM/CAx
Beiträge: 4107 Registriert: 12.03.2001 Früher war vieles gut, und das wäre es heute immer noch, wenn man die Finger davon gelassen hätte!
|
erstellt am: 15. Jul. 2010 10:14 <-- editieren / zitieren --> Unities abgeben:
|
Samson53 Mitglied Nur noch selten simulierend
Beiträge: 119 Registriert: 18.02.2010
|
erstellt am: 16. Jul. 2010 08:20 <-- editieren / zitieren --> Unities abgeben: Nur für Axel.Strasser
So jetzt, ich weiß zwar nicht wodran es liegt, es muss aber mit dem Erstellen der PT zusammenhängen. Wenn man händisch versucht das " " auszublenden kommt die Fehlermeldung hoch "Pivottabelle ungültig". Ich aber in einem neuen Blatt eine PT von Hand angelegt. Da geht alles. Schau mal in den Anhang. Und prüfe die PT-Definition ------------------ Gruß Samson Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Axel.Strasser Ehrenmitglied V.I.P. h.c. Selbstständig im Bereich PLM/CAx
Beiträge: 4107 Registriert: 12.03.2001 Früher war vieles gut, und das wäre es heute immer noch, wenn man die Finger davon gelassen hätte!
|
erstellt am: 16. Jul. 2010 10:58 <-- editieren / zitieren --> Unities abgeben:
Bei mir laufen beide problemlos ich habe das Ganze inzwischen anders gelöst: Code: Dim pvItem As PivotItem With Sheets(BlattNameAbrechnung).PivotTables("Abrechnung").PivotFields("Department") .ClearAllFilters For Each pvItem In .PivotItems Select Case pvItem.Name Case "Abteil ABC" pvItem.Visible = False Case Else 'do nothing End Select Next End With
Damit geht es, ich habe inzwischen im Internet noch gefunden, dass vba und Pivot Tabellen manchmal etwas ungewöhnlich reagiern. Axel ------------------ Inoffizielle deutsche CATIA Hilfeseite Netiquette von cad.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |