Guten Tag,
ich habe nicht viel Ahnung, und erstelle meine Scripts mit der Aufzeichnungsfunktion. (sorry:)
Das kam dabei Raus:
Sub Makro3()
'
' Makro3 Makro
'
'
ActiveCell.Offset(0, -3).Range("A1").Select
Selection.Copy
Sheets("MINCER").Select
ActiveSheet.PivotTables("PivotTable1").PivotFields("GROUP_ID").ClearAllFilters
ActiveSheet.PivotTables("PivotTable1").PivotFields("GROUP_ID").CurrentPage = _
"51271109"
Sheets("PIVOT").Select
ActiveCell.Offset(0, 3).Range("A1").Select
End Sub
Verstehen tue ich das schon - ihr bestimmt auch .) Das Problem ist, dass anstatt
ActiveSheet.PivotTables("PivotTable1").PivotFields("GROUP_ID").CurrentPage = _
"51271109"
Eigentlich der Wert aus der Zwischenablage:
ActiveCell.Offset(0, -3).Range("A1").Select
Selection.Copy
In die Pivottabelle soll. Ist doch ganz leicht, oder etwa nicht?
Danke für die Hilfe!
FKSS
|