Pivot Tabellen_Feld_Intems

Sub Pivot () Dim ws As Worksheet Dim pt As PivotTable intKW = 201445 For Each ws In ActiveWorkbook.Worksheets For Each pt In ws.PivotTables If pt.PivotFields("WK") "" Then Hier muss doch das Makro in die andere PivotTabelle springen, wenn in der ersten PivoT das Feld WK nicht auftaucht, aber esgeht nicht in die nächste PivotT, sondern es läuft weiter mit dem Code With pt.PivotFields("WK") .AutoSort xlAscending, "WK" .PivotItems(intKW - 1).Visible = True die neuen Wochen sollen eingeblendet werden .PivotItems(intKW - 2).Visible = True die neuen Wochen sollen eingeblendet werden .PivotItems(intKW - 3).Visible = True die neuen Wochen sollen eingeblendet werden .PivotItems(intKW - 14).Visible = False die neuen Wochen sollen eingeblendet werden End With End If Next 'pt Next 'ws End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Lee,
hier 2 Makrovarianten, die dies leisten können.
Variante 1 folgt deinem Versuch, die Visible-Eigenschaft der einzelnen Items anzupassen.
Variante 2 setzt den Filter des Feldes zurück (dabei werden alle Items eingeblendet) und setzt dann einen Beschriftungsfilter.
Variante 2 ist eigentlich die elegantere Methode. Wenn du mehrere Pivots auf einem Blatt plaziert hast, dann gibt es aber evtl. das Problem, dass sich Pivots überlagern können wenn alle Daten eingeblendet werden. Dies führt dann zu einem Fehlerabbruch. In diesem Fall muss du dann dei Glück mit Variante 1 versuchen.
Gruß
Franz

Sub Pivot_Var1()
Dim ws As Worksheet
Dim pt As PivotTable
Dim pvField As PivotField, pvItem As PivotItem
Dim intKW
On Error GoTo Fehler
intKW = Application.InputBox("Letzte KW im Pivotbericht?", "Pivottabellen aktualisieren", _
Year(Date - 7) * 100 + Application.WorksheetFunction.WeekNum(Date - 7, 21), _
Type:=1)
If intKW = False Then Exit Sub
For Each ws In ActiveWorkbook.Worksheets
For Each pt In ws.PivotTables
Set pvField = pt.PivotFields("WK")
With pvField
'prüfen,ob Feld im Bericht plaziert ist
If .Orientation  xlHidden Then
'Prüfen, ob Feld im Zeilen- oder Spaltenbereich
If .Orientation = xlRowField Or .Orientation = xlColumnField Then
.AutoSort xlAscending, "WK"
'PivotItems ein-/ausblenden
For Each pvItem In pvField.PivotItems
With pvItem
If Val(.Name) >= intKW - 12 And Val(.Name)  xlHidden Then
'Prüfen, ob Feld im Zeilen- oder Spaltenbereich
If .Orientation = xlRowField Or .Orientation = xlColumnField Then
.AutoSort xlAscending, "WK"
'Beschriftungsfilter zurücksetzen
.ClearLabelFilters
'Beschriftungsfilter setzen
.PivotFilters.Add Type:=xlCaptionIsBetween, _
Value1:=intKW - 12, _
Value2:=intKW
Else
MsgBox "Das Feld """ & pvField.Name _
& """ muss als Zeilen oder Spaltenfeld angeordnet sein!"
End If
End If
End With
Next_pt:
Next 'pt
Next 'ws
Fehler:
With Err
Select Case .Number
Case 0 'alles OK
Case 1004 'Feld "WK" ist in Feldliste der Pivottabelle nicht vorhanden
Resume Next_pt
Case Else
MsgBox "Fehler-Nr.: " & .Number & vbLf & .Description
End Select
End With
End Sub

Sub Pivot () Dim ws As Worksheet Dim pt As PivotTable Dim strJahrKw as String strJahrKw= 201445 For Each ws In ActiveWorkbook.Worksheets For Each pt In ws.PivotTables For Each pf In pt.VisibleFields If pf = "AUFTRAG_WK" Then With pt.PivotFields("AUFTRAG_WK") .AutoSort xlAscending, "AUFTRAG_WK" .PivotItems(strJahrKw - 1).Visible = True .PivotItems(strJahrKw - 2).Visible = True .PivotItems(strJahrKw - 3).Visible = True .PivotItems(strJahrKw - 14).Visible = False End With End If Next 'PF Next 'pt Next 'ws End Sub

Sub Pivot() Dim ws As Worksheet Dim pt As PivotTable Dim strJahrKw As Long strJahrKw = 201445 For Each ws In ActiveWorkbook.Worksheets For Each pt In ws.PivotTables pt.RefreshTable For Each pf In pt.VisibleFields If pf = "AUFTRAG_WK" Then With pt.PivotFields("AUFTRAG_WK") .AutoSort xlAscending, "AUFTRAG_WK" With .PivotItems(Format(strJahrKw - 1, "000000")) If .Visible = False Then .Visible = True End With With .PivotItems(Format(strJahrKw - 2, "000000")) If .Visible = False Then .Visible = True End With With .PivotItems(Format(strJahrKw - 3, "000000")) If .Visible = False Then .Visible = True End With With .PivotItems(Format(strJahrKw - 14, "000000")) If .Visible = True Then .Visible = False End With End With End If Next 'PF Next 'pt Next 'ws End Sub

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Pivot Tabellen_Feld_Intems

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread