Thema Datum  Von Nutzer Rating
Antwort
Rot Laufzeitfehler '1004': Anwendungs- oder objektdefinierter Fehler
 04.08.2015 08:36:40 Marina
NotSolved

Ansicht des Beitrags:
Von:
Marina		 Datum:
04.08.2015 08:36:40		 Views:
1618		 Rating:
     
Antwort:
  Ja
Thema:
Laufzeitfehler '1004': Anwendungs- oder objektdefinierter Fehler

Hallo,

ich benötige mal eure Hilfe. Ich habe nur gefährliches Halbwissen von VBA und weiß nie so recht, wo ich welchen Code hinschreiben muss (Arbeitsmappe, Modul oder hinter der jeweiligen Tabelle).

Ich möchte den Berichtsfilter einer Pivottabelle automatisch ändern. Dieser soll auf einen anderen Reiter zugreifen, in dem ich eine Tabelle manuell mit Zahlen fülle.
Ich habe beispielhaft eine Datei angehängt. Hier möchte im Reiter "Eingabe" in C4 die Zahl 22222 eingeben und die Pivottabelle im Reiter "gemeldete Zeiten_Tabelle" soll sich automatisch anpassen.

So, ich habe nun ein bisschen weitergebastelt. Komisch: In meiner vereinfachten Testdatei funktioniert der Code einwandfrei - in meiner Originaldatei nicht :(

Hier der Code: Ich habe den jetzt unter "Diese Arbeitsmappe":

Sub PivotRMNrSetzen()
 Dim Pivot1 As PivotTable
 Dim cnummer As Integer

 cnummer = Worksheets("Eingabe").Range("$C$4").Value
 Set Pivot1 = Worksheets("gemeldete Zeiten_Tabelle").PivotTables("PivotTable1")

With Pivot1
 .PageFields(1).CurrentPage = cnummer
End With
End Sub

Sub Seitenfeld_mit_Rekorder_setzen()

Dim cnummer As Integer
Dim Pivot1 As PivotTable

Set Pivot1 = Worksheets("gemeldete Zeiten_Tabelle").PivotTables("PivotTable1")
cnummer = Worksheets("Eingabe").Range("$C$4").Value

With Pivot1
.PivotFields(1).CurrentPage = cnummer
End With
End Sub

Ich erhalte beim Ausführen einen Fehler:
Laufzeitfehler '1004': Anwendungs- oder objektdefinierter Fehler

Kann mir wer weiterhelfen?

Grüße,

Marina

 

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 Laufzeitfehler '1004': Anwendungs- oder objektdefinierter Fehler
 04.08.2015 08:36:40 Marina
NotSolved