|
Hallo,
eventuell ist dieser VBA-Code hilfreich:
Sub Makro3()
'
' Makro3 Makro
'
'
With Sheets("MINCER")
.PivotTables("PivotTable1").PivotFields("GROUP_ID").ClearAllFilters
.PivotTables("PivotTable1").PivotFields("GROUP_ID").CurrentPage = Worksheets("Tabelle1").Range("A1").Value
End With
End Sub
Bei diesem VBA-Code wird der Inhalt in der Zelle A1 direkt in die CurrentPage eingesetzt. Es wird hierfür kein Umweg über die Zwischenablage benötigt.
Es muss bei bedarf der Tabellenname (hier: Tabelle1") angepasst werden.
Falls immer der Wert ausgehend von der aktuell markierten Zelle verwendet werden soll kann auch dieser VBA-Code eingesetzt werden:
Sub Makro3()
'
' Makro3 Makro
'
'
With Sheets("MINCER")
.PivotTables("PivotTable1").PivotFields("GROUP_ID").ClearAllFilters
.PivotTables("PivotTable1").PivotFields("GROUP_ID").CurrentPage = ActiveCell.Offset(0, -3).Range("A1").Value
End With
End Sub
Bei diesem VBA-Code kann schnell ein Laufzeitfehler auftreten, wenn man zu einem späteren Zeitpunkt nicht mehr weiß, von welcher Tabelle und Zelle ausgehend die Sub aufgerufen werden muss. Bei Laufzeitfehlern kann es u.U. sehr lange dauern, bis die Ursache gefunden wurde.
LG, BigBen
|