Hallo allerseits,
ich versuche einen VBA Code zu finden mit dem es mir möglich ist den WErt einer ZElle in eine Variable zu packen und mit dieser Variabel die Pivot nach dem besagten Wert zu filtern. Die Fehlermeldung betrifft "Set mitarbeiter = cells (1,1).Valule und sagt, dass die Typen unverträgelich sind. Hat jemand eine Idee?
Sub KV_Geschäfte_Reports_generieren_2()
'
' Reports_generieren Makro
'
Dim PvtTbl As PivotTable
Set PvtTbl = Worksheets("Journale").PivotTables("PivotTable1")
Dim mitarbeiter As PivotFields
Set mitarbeiter = cells (1,1).Value
PvtTbl.PivotFields("Mitarbeiter").ClearAllFilters
PvtTbl.PivotFields("Mitarbeiter").PivotFilters.Add Type:=xlCaptionContains, Value1:=mitarbeiter
End Sub
Danke.
VG
KT |