Dringend Hilfe bei einer Pivottabelle

[atilla]

Hallo zusammen,

Mike unten stelle ich Deine Datei mit der Pivot ein. Schau sie Dir an und versuche sie dann nachzubauen.
Um Teilergebnisse für die Artikel zu erhalten, rechtsklick in Item.No und Teilergebnisse auswählen.

@Peter
Da ich die Datei gut kenne, weiß ich, dass in den besagten Spalten zwar Zahlen vorkommen, aber diese als Text eingefügt wurden(Textbox Userform) und zusätzlich die Spalte noch als Text formatiert ist. Deswegen wollte ich mich vergewissern welche als Text vorliegenden zahlen so dargestellt werden. So wie es ausschaut, Wandel die Pivot diese ungefragt in Zahlen um und stellt sie deswegen rechtsbündig als Zahl dar.

Mike, um diese Spalte trotzdem einheitlich darzustellen formatier sie als Text.

  Test2_Einkauf.xlsm (Größe: 526,67 KB / Downloads: 3)

[Mike4711]

Hallo Atilla,

habe es ausprobiert, wie du es in der Testmappe eingestellt hast.
Jetzt weiß ich wieder ein wenig mehr über Pivot-Einstellungen.


  Test2_Einkauf.xlsm (Größe: 533,76 KB / Downloads: 1)

Ich habe noch ein paar Spalten mehr dazu...siehe meine beigefügte Mappe.

Die letzte Spalte habe ich mit Rot mal Ergebniszahlen eingefügt.
Mir geht es darum, das ich zu der Bestellnummer am Ende eine Anzahl von Teillieferungen angezeigt haben möchte.
Leider bekomme ich Teilergebnisse in Spalte G nicht immer die richtige Anzahl an Teillieferungen.
Excel zählt in Spalte D ja alle eingetragenen Datumsangaben, auch wenn die doppelt sind zusammen.

Von der Aufmachung, wie die Pivottabelle jetzt aussieht, wäre sie genau richtig.....nur halt die Ergebnisse der Teillieferungen, ist noch ein Problem.

Die Spalte B, habe ich wie du erwähntes als Text formatiert, trotzdem zeigt er immer noch mal links mal rechtsbündig an. Wenn ich das Blatt wechsle und zurück zur Pivot gehe.

Grüße Mike

[atilla]

Hallo Mike,

da habe ich wohl Blödsinn eingestellt.

Ich schau mir Dir das heute Abend oder morgen noch mal an.

[atilla]

Hallo Mike,

anbei Deine Datei mit der neuen Pivot.

Eigentlich hatte shift-del diese Einstellungen schon vorgeschlagen.


  Test2_Einkauf-1.xlsm (Größe: 545,99 KB / Downloads: 2)

[Mike4711]

Hallo Atilla,

so sieht die Pivot natürlich perfekt übersichtlich aus!

Aber ich habe dort immer noch nicht die Ansicht, an wie vielen Tagen eine Order gesamte an Lieferungen hat?!

Ich habe noch einmal in der Pivot eingetragen, wie ich mir das vorstelle.


  Test2_Einkauf-2.xlsm (Größe: 529,52 KB / Downloads: 2)
Ist das nun machbar, oder nicht? :)

Sorry.

Grüße Mike

[atilla]

Hallo Mike,

Ok, da habe ich Dich falsch verstanden. Ich dachte Pro Artikel die Teillieferungen.
Für eine bestimmte Bestellung geht es nur über einen Umweg.

In der jetzt angefügten Datei sollten die Teillieferungen richtig gelistet sein.

Folgendes habe ich gemacht:

1. einen Namen "datenTeillieferungen" definiert. Formel für den Bezug des Namen ist:

='Bestellungen Suche'!$A$4:INDEX('Bestellungen Suche'!$P:$P;ANZAHL('Bestellungen Suche'!$P:$P)+4)

2. Als Quelle für die Pivottabelle habe ich den definierten Namen angegeben.


Dann habe ich hinter der Tabelle "Menge-Teillieferungen" folgenden Code stehen:

Code:

Option Explicit

Private Sub Worksheet_Activate()
  ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
End Sub

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
 Dim lngZ As Long
 With Sheets("Bestellungen Suche")
    .Range("A4").CurrentRegion.Clear
 End With
 With Sheets("Bestellübersicht")
    lngZ = .Cells(.Rows.Count, 1).End(xlUp).Row
    .Range("A1:Q" & lngZ).Copy Sheets("Bestellungen Suche").Range("A4")
 End With
 With Sheets("Bestellungen Suche")
    lngZ = .Cells(.Rows.Count, 1).End(xlUp).Row
     .Range("$A$4:$Q$" & lngZ).RemoveDuplicates Columns:=Array(1, 8), Header _
   :=xlYes
 End With
 Application.EnableEvents = False
 ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
 Columns("B:B").HorizontalAlignment = xlLeft
 Application.EnableEvents = True
End Sub

  Test2_Einkauf-2.xlsm (Größe: 574,47 KB / Downloads: 2)

[Mike4711]

Hallo Atilla,

habe hier über Ostern eine Menge Besuch.

Vielen Dank, für deine Überarbeitung.
Ich hoffe, das ich heute Abend dazu komme, mir diese genau anzuschauen.

Du hast über Ostern sicher auch eine Menge Besuch?

Ich freue mich aber dein neue Lösung bald anzuschauen.

Grüße Mike

[Mike4711]

Hallo Atilla,

die Pivot, ist genau richtig.
Wie kann ich diese am besten sauber in meine original Mappe übertragen?
Ich habe es versucht mit verschieben und kopieren, aber irgendwie bekomme ich immer die Verknüpfungen und die definierten Namen der Testmappe mit übertragen und kann sie nicht aus der originalen löschen?

In der Testmappe gibt es noch ein Tabellenblatt "Tabelle 1", was muss mit dieser Tabelle passieren?

Gruß Mike

[Mike4711]

Hallo Atilla,

so ein Mist......ich bekomme das einfach nicht am laufen.
Es zeigt alles nicht so an wie bei dir und die Kurzübersicht Pivot und das Das Blatt" Kurzübersicht" funktioniert auch nicht mehr richtig.

Ich bekomme beide Pivot nicht in meien original mappe am laufen.
In der Test-Mappe, ohne die ganzen Preislisten der Lieferanten, ging es.

Probiere schon den ganzen Nachmittag aus.

:(

Gruß Mike

[atilla]

Hallo Mike,


dann............

...............................schick mir die Datei........................