Pivottabelle - Fehlermeldung | HERBERS Excel Forum

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Pivot_count() Dim ii%, arrOrient$(4) arrOrient(0) = "nix" arrOrient(1) = "Zeile" arrOrient(2) = "Spalte" arrOrient(3) = "Seite" arrOrient(4) = "Daten" For ii = 1 To Sheets.Count If Sheets(ii).Name = "Pivotfelder" Then Sheets(ii).Activate Exit For End If Next ii If ActiveSheet.Name <> "Pivotfelder" Then _ Worksheets.Add.Name = "Pivotfelder" Range("A1:D1") = Split("Pivotfeld Orient.-Nr Orient. Ausprägungen") For ii = 1 To Worksheets("Tabelle4").PivotTables(1).PivotFields.Count With Worksheets("Tabelle4").PivotTables(1).PivotFields(ii) Cells(ii + 1, 1) = .Name Cells(ii + 1, 2) = .Orientation Cells(ii + 1, 3) = arrOrient(.Orientation) Cells(ii + 1, 4) = .PivotItems.Count End With Next End Sub

Hallo Erich
Danke für deine schnelle Antwort.
Ich kämpfe zzt noch mit der Prozedur. Ich weiß z.B. nicht, was genau
arrOrient(0) etc. bedeutet.
Ich merke schon, wenn die Prozedur läuft, schreibt sie meine Felder auf
und füllt sie mit ? , ja mit was genau ? Das habe ich noch nicht verstanden.
Beim Schreiben bleibt die Prozedur dann genau mit der Fehlermeldung, die ich
beschrieben habe, stehen. Dann weiß ich zwar, der Fehler liegt im Feld z.B. Kennung,
aber das genaue Feld im Quelltext kann ich trotzdem noch nicht ausmachen.
Das zum einen, aber ich möchte die Prozedur auch verstehen, deshalb bin ich mit mir noch nicht zufrieden.
Vielleicht kannst du mir noch ein paar erklärende Worte dazu geben !?
Trotzdem schon mal vielen Dank für deine Mühen.
Viele Grüße
Hubert

Hallo Hubert,
mit der kleinen Prozedur bekommt man hauptsächlich Angaben darüber, wie wiele verschiedene Werte pro Feld es in der Tabelle gibt. Das steht unter "Ausprägungen" in Spalte D.
Die Spalten B und C sind nicht so wichtig:
In Spalte C steht, ob das Feld in der Pivottabelle als Seiten- Zeilen- oder Spaltenfeld verwendet wird. In VBA heißt diese Eigenschaft "Orientation" (Orientierung), das habe ich mit "Orient." abgekürzt. Wenn da "nix" steht, kommt das Feld gar nicht vor oder es steht im Datenbereich, wird also summiert, gezählt oder was auch immer.
Spalte B kannst du ignorieren, da steht nur die Orientierung als Zahlenwert, wie ihn Excel liefert - jeder Zahl entspricht der Text in Spalte C.
Wesentlich ist für dich nur die Spalte D mit den Anzahlen. Check doch mal, wie die Anzahlen aussehen, wenn sich die Pivottabelle noch erstellen lässt, etwa, nachdem du z. B. 10 Prozent der Zeilen in der Quelltabelle gelöscht hast. Wenn bei "Kennungen" eine große Zahl steht, ist das wohl der Verbrecher.
Du hast früh schon geschrieben, dass der Fehler bei Spalten auftritt, in denen zu gar nichts geändert hast. Spannende Frage: Welche Änderung an der Basistabelle führte zu dem Fehler? Sind Datensätze dazugekommen? Oder hast du die Werte von Feldern in den bestehenden Sätzen geändert?
Grüße von Erich aus Kamp-Lintfort

Beliebteste Forumthreads (12 Monate)

Pivottabelle - Fehlermeldung

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

7 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Pivottabelle - Fehlermeldung

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

7 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread