Thema Datum  Von Nutzer Rating
Antwort
07.11.2024 08:05:16 Andreas
NotSolved
Blau Laufzeitfehler bei Pivot Erstellung
 08.11.2024 00:11:51 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
ralf_b		 Datum:
08.11.2024 00:11:51		 Views:
124		 Rating:
     
Antwort:
  Ja
Thema:
Laufzeitfehler bei Pivot Erstellung

schöne grüße von chatgpt. vielleicht stimmt dessen Erklärung sogar. Probiers aus.

Der Code enthält einige Probleme, die eine Fehlermeldung verursachen könnten. Ich sehe insbesondere zwei mögliche Fehlerquellen:

  1. Doppelte Methode .Create bei der Pivot-Cache-Erstellung: In diesem Code wird die .Create-Methode zweimal hintereinander aufgerufen, was zu einem Fehler führt. Die .CreatePivotTable-Methode sollte direkt auf den PivotCache angewendet werden, nicht auf das Ergebnis von .Create.

  2. Fehlender Worksheet-Objektbezug für Rows.Count und Columns.Count: Wenn Rows.Count und Columns.Count verwendet werden, sollte sichergestellt sein, dass sie sich explizit auf ein bestimmtes Arbeitsblatt beziehen, da ActiveSheet.Rows.Count verwendet wird, wenn kein Blatt angegeben wird. In deinem Code ist dies zwar für Tabelle8 impliziert, könnte jedoch explizit angegeben werden, um Missverständnisse zu vermeiden.

Hier ist der korrigierte Code:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim PCache As PivotCache
Dim PRange As Range
Dim LastRow As Long
Dim LastCol As Long
 
' Finde die letzte Zeile und Spalte in Tabelle8
LastRow = Tabelle8.Cells(Tabelle8.Rows.Count, 1).End(xlUp).Row
LastCol = Tabelle8.Cells(1, Tabelle8.Columns.Count).End(xlToLeft).Column
 
' Bereich für Pivot-Tabelle festlegen
Set PRange = Tabelle8.Cells(1, 1).Resize(LastRow, LastCol)
 
' Pivot-Cache erstellen
Set PCache = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=PRange)
 
' Pivot-Tabelle auf Grundlage des Pivot-Caches erstellen
PCache.CreatePivotTable TableDestination:=Tabelle9.Cells(20, 2), TableName:="PivotTableIRRBB"

 

Erklärung:

  1. Die .Create-Methode wird nur einmal aufgerufen, und anschließend wird die CreatePivotTable-Methode auf dem PCache-Objekt verwendet.
  2. Tabelle8.Rows.Count und Tabelle8.Columns.Count stellen sicher, dass die letzte Zeile und Spalte im Kontext von Tabelle8 berechnet wird.

Der Code sollte jetzt fehlerfrei laufen und eine Pivot-Tabelle erstellen.

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
07.11.2024 08:05:16 Andreas
NotSolved
Blau Laufzeitfehler bei Pivot Erstellung
 08.11.2024 00:11:51 ralf_b
NotSolved