Thema Datum  Von Nutzer Rating
Antwort
Rot Makros aufnehmen bzw. Pivottabellen per Makro einstellen
 25.09.2014 11:59:05 Nico
NotSolved

Ansicht des Beitrags:
Von:
Nico		 Datum:
25.09.2014 11:59:05		 Views:
1571		 Rating:
     
Antwort:
  Ja
Thema:
Makros aufnehmen bzw. Pivottabellen per Makro einstellen

Hallo Zusammen!

 

Ich bin noch nicht besonders lange dabei mich mit VBA in Excel auseinanderzusetzten und habe eine Frage zu der Funktion "Makros Aufnehmen".

Ich will ein kurzes Makro schreiben, dass mir eine Pivottabelle auf eine bestimmte Ausgangseinstellung setzt. Weil ich nicht wusste wie, habe ich die Einstellungen "mit der Maus gemacht" und als Makro aufgenommen um die entsprechenden Befehle dann zu übernehmen. Wenn ich aber jetzt versuche das Aufgenommene als Macro auszuführen bekomme ich eine Fehlermeldung:

Laufzeitfehler 1004:

Die PivotFields-Eigenschaft des PivotTable-Objektes kann nicht zugeordnet werden.

 

Der Aufgenommene Code ist:

 

Sub Grundeistellungen()
'
' Grundeistellungen Makro
'

'
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Tree genus"). _
        ClearAllFilters
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Genus").CurrentPage = _
        "(All)"
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Product").ClearAllFilters
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Product").CurrentPage = _
        "(All)"
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Price Unit"). _
        ClearAllFilters
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Price Unit").CurrentPage = _
        "USD/m3"
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Type of price"). _
        ClearAllFilters
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Type of price"). _
        CurrentPage = "FOB"
End Sub

 

"Makros aufnehmen" ist ziemlich sinnlos wenn sie im Nachhinein nicht funktionieren, oder?

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 Makros aufnehmen bzw. Pivottabellen per Makro einstellen
 25.09.2014 11:59:05 Nico
NotSolved