Mehrere Lieferanten zu einem Artikel

[faaabi]

Hallo zusammen,

irgendwie steh ich auf dem Schlauch und hoffe ihr könnt mir helfen.


Ich möchte mir aus einer Tabelle alle Lieferanten zu einem bestimmten Artikel anzeigen lassen, siehe Beispiel-Datei.
Ich war der Meinung, dass dies per Pivot funktioniert - da ich eine Array-Formel vermeiden wollte aufgrund der Masse an Daten - bekomme es jedoch einfach nicht hin, dass mir hinter jedem Artikel die einzelnen Lieferanten angezeigt werden.

Vielleicht kann mir ja jemand auf die Sprünge helfen.

Vielen Dank im Voraus!

Gruss 
faaabi

[RPP63]

Moin!

• Artikel in Zeilen
  
• Lieferant in Spalten
  
• Artikel in Werte, zusammenfassen nach Summe
  

Jetzt hast Du bei jedem Lieferanten, der den Artikel führt eine 0
Wenn Dich diese stört, kannst Du das benutzerdefinierte Zahlenformat ;;"X"; vergeben.
Evtl. noch im Entwurf Gesamtergebnisse ausblenden.
Ergibt:
   

Gruß Ralf

[faaabi]

Erst einmal Danke Ralf!

Jetzt folgt die nächste Hürde :)

Wie bekomme ich es nun hin, mir zu jedem Artikel die jeweiligen Lieferanten anzeigen zu lassen, siehe Anhang.
Ziel ist es, mit den jeweiligen Lieferanten zu jedem Artikel dann weiterarbeiten zu können.

Gruss
faaabi

[RPP63]

Ich kann Dir nicht ganz folgen!
Füge zwei Datenschnitte ein (Artikel und Lieferant).
Dann kannst Du nach Herzenslust filtern (Zeilen und/oder Spalten).

[snb]

Schau mal:

[Gast 123]

Hallo

ich habe die Beispieldatei mal mit einer Makro Lösung versehen und noch ein bisschen erweitert. Bitte mal anschauen ob es so gefaellt.

mfg Gast 123

[snb]

Pivot von VBA erstellt:

PHP-Code:

Sub M_snb()
  With ThisWorkbook.PivotCaches.Create(1, Sheet1.Cells(1).CurrentRegion).CreatePivotTable(Sheet1.Cells(20, 4), "snb")
    .PivotFields(1).Orientation = 1
    .AddDataField .PivotFields(2), " ", -4112
    .PivotFields(2).Orientation = 2

    .CompactLayoutRowHeader = .PivotFields(1).Name & " "
    .CompactLayoutColumnHeader = "  "
    .PivotFields(2).PivotItems(1).LabelRange.Resize(, .PivotFields(2).PivotItems.Count).NumberFormat = """Lieferant ""0"

    .RowGrand = False
    .DataBodyRange.EntireColumn.AutoFit
  End With
End Sub 


[faaabi]

Guten Morgen zusammen!

Vielen Dank für die ganzen Vorschläge, aber ich glaub ich habe mein Problem nicht gut genug erläutert.

Ich hab eine Liste mit vergangenen Bestellungen von unterschiedlichen Artikeln, diese können dabei entweder immer bei einem Lieferanten oder aber auch von unterschiedlichen Lieferanten bezogen werden, d.h. Artikel1 wir bspw. von Lieferant 2 bezogen und Artikel2 von einmal von Lieferant2 und zweimal von Lieferant3.

Jetzt möchte ich aus diesen Daten eine Liste erstellen bei der zu jedem Artikel die jeweiligen Lieferanten stehen bei denen dieser bestellt wurde.
Habe nochmal ein Beispiel angehängt wie das Ergebnis dann aussehen sollte.

Vielen Dank im voraus und Entschuldigung für die ganze Mühe!

Gruss
faaabi

[snb]

So sollte man das nie zeigen lassen.

Code:

Sub M_snb()
  Application.ScreenUpdating = False
  With ThisWorkbook.PivotCaches.Create(1, Sheet1.Cells(1).CurrentRegion).CreatePivotTable(Sheet1.Cells(1, 6), "snb")
    .PivotFields(1).Orientation = 1
    .AddDataField .PivotFields(2), " ", -4112
    .PivotFields(2).Orientation = 2

    .CompactLayoutRowHeader = .PivotFields(1).Name & " "
    .CompactLayoutColumnHeader = "  "
    .PivotFields(2).PivotItems(1).LabelRange.Resize(, .PivotFields(2).PivotItems.Count).NumberFormat = """Lieferant ""0"

    .RowGrand = False
    .ColumnGrand = False
    .DataBodyRange.NumberFormat = """x"";"
    .DataBodyRange.EntireColumn.AutoFit
  End With
End Sub

[Gast 123]

Hallo

ich hab das Programm von  snb  getestet. bekomme es bei mir aber nicht ans laufen. Vielleicht weil dieses Beispiel keine Pivot Tabelle ist???  Da habe ich Null Ahnung.
Dafür eine kleine Beispieldatei die alle Lieferanten wie gewünscht auflistet. 

mfg Gast 123

---

Sorry, Beispiel war noch nicht angehangen. Unklar ist mir ob der Code von snb vielleicht doch bim Frager funktioniert??