Thema Datum  Von Nutzer Rating
Antwort
Rot Diese eine Zeile
 31.12.2016 06:40:50 FKSS
NotSolved
01.01.2017 16:44:46 BigBen
NotSolved

Ansicht des Beitrags:
Von:
FKSS		 Datum:
31.12.2016 06:40:50		 Views:
1042		 Rating:
     
Antwort:
  Ja
Thema:
Diese eine Zeile

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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Diese eine Zeile
 31.12.2016 06:40:50 FKSS
NotSolved
01.01.2017 16:44:46 BigBen
NotSolved