mehrere Suchtreffer zu einem Wert

[Aqui]

Hallo zusammen,

ich knobel seit längerem an einer Augabenstellung.

ich habe:
- 80 Zeilen        (Kunden-Nr.)
- 140 Spalten    (Artikel-Nr.)
- im Schnittpunkt die jeweilige Bedarfsmenge

Im Prinzip gibt mir die Ausgangs-Liste alle Werte, diese möchte ich in die Ziel-Liste umwandeln, sodass ich 
80x die selbe Kd.-Nr. untereinander mit den jeweils 140 unterschiedlichen Artikel-Nr. aufliste und somit 11.200 Zeilen erhalte

Ich habe ein kleineres Beispiel angehängt.
diese Liste besteht aus 
- 10 Kunde
- 4 Artikeln
= also 40 Zeilen Endergebnis

hat hier jemand für mich eine Lösung?

Besten Dank schon jetzt für eure Unterstützung und Mühe

[coemm]

Hallo,

meinst du so etwas? Klick hier

oder so? Klick hier

[Jockel]

Hallo zusammen,

...

hat hier jemand für mich eine Lösung?

Hallo, meinst du so

J2=SUMMENPRODUKT(($A$5:$A$14=H2)*($B$3:$E$3=I2);$B$5:$E$14)

und runterziehen...

[atilla]

Hallo Jörg,


Du beziehst Dich mit der Formel auf die Zielliste.
Die Zielliste soll aus den Werten der Ausgangsliste aber erst erstellt werden.


Coemms Vorschlag mit der Pivot ist hier zielführend und braucht nur ein Paar Klicks.

[Jockel]

Hallo Jörg,


Du beziehst Dich mit der Formel auf die Zielliste.
...
Coemms Vorschlag mit der Pivot ist hier zielführend und braucht nur ein Paar Klicks.

Hallo, jepp, das habe ich wohl, ich hatte mir nur die Datei angesehen... ... und dachte das man aus einer Ausgangsliste eine Zielliste erstellt... so mache ich das für gewöhnlich... ... aber wenn's so nicht gemeint war, auch gut...

[atilla]

Hallo Jörg,

...und dachte das man aus einer Ausgangsliste eine Zielliste erstellt... so mache ich das für gewöhnlich...

verstehe ich nicht,das ist doch das, was der TE auch machen möchte.

In der Zielliste sollen die Spalten H und I auch erstellt werden. Wie machst Du das?

[Aqui]

HAMMER @ Conny ! :18:

Danke, die KREUZTABELLE hatte ich, nur nie auf der Summe Doppelklick gemacht. 

Das Hilft extrem weiter   :100:

[Aqui]

Guten Morgen zusammen,

vielleicht kann ich ja noch eine Challenge oben draufsetzen   :19: ... oder ihr mir eine Klasse Lösung für mein Problem anbieten 

Meine Datenbasis besteht aus zwei Tabellen.

- Ausgangs-liste 1 enthält 

1. Auftrags Nr
   
2. Kd Nr
   
3. Artikel Paket
   
4. Anzahl von Artikel Paket
   

- Ausgangs-liste 2 enthält 

1. Paket A Artikel. Nr.
   
2. Anzahl je Artikel
   
3. Paket B Artikel. Nr.
   
4. Anzahl je Artikel
   

Gerne möchte ich, 

• die Inhalte je Paket
  
• multipliziert mit der Bestellten Anzahl 
  
• je Auftrag
  

Eine Beispieldatei hängt an

Für einen Lösungsweg oder Ansatz ... wäre ich sehr dankbar.


Greetz
Aqui

[atilla]

Hallo,


ich habe hierfür eine VBA Lösung erarbeitet:

Code:

Sub mach()
Dim i As Long, j As Long, k As Long
Dim AListe As Range
Dim PaketA As Range
Dim PaketB As Range

Set AListe = Range("A3:D10")
Set PaketA = Range("F3:G6")
Set PaketB = Range("H3:I7")

Columns("R:U").Clear
j = 3
For i = 1 To AListe.Rows.Count
 If AListe.Cells(i, 3) = "Paket A" Then
   PaketA.Copy Cells(j, 20)
   For k = 1 To PaketA.Rows.Count
     Cells(j + k - 1, 21) = AListe.Cells(i, 4).Value * PaketA.Cells(k, 2).Value
   Next k
   Range(Cells(j, 18), Cells(j + PaketA.Rows.Count - 1, 19)).Value = Range(AListe.Cells(i, 1), AListe.Cells(i, 2)).Value
   j = j + PaketA.Rows.Count
 Else
   PaketB.Copy Cells(j, 20)
   For k = 1 To PaketB.Rows.Count
     Cells(j + k - 1, 21) = AListe.Cells(i, 4).Value * PaketB.Cells(k, 2).Value
   Next k
   Range(Cells(j, 18), Cells(j + PaketB.Rows.Count - 1, 19)).Value = Range(AListe.Cells(i, 1), AListe.Cells(i, 2)).Value
   j = j + PaketB.Rows.Count
 End If
Next i

End Sub

Die Zielliste wird ab Zeile 3 (im Code: j = 3) und in die Spalten R-U (im Code werden diese gelöscht: Columns("R:U").Clear) erstellt

[Aqui]

Hallo Atilla,

besten Dank, habe ich getestet und es läuft.

Da ich nicht wirklich in VBA fit bin  ... habe ich mir angeschaut was du gemacht hast und dann versucht ... es etwas anzupassen. 
Aber leider falsch, da es nicht funktioniert.

Kann ich beliebige ELSE einbauen? Dachte ich wandel es ab das es passt ..  :22: aber  :69:

meine Datei dazu im Anhang.

Code:

Sub mach()
Dim i As Long, j As Long, k As Long
Dim AListe As Range
Dim PaketA As Range
Dim PaketB As Range
Dim PaketC As Range
Dim PaketD As Range

Set AListe = Range("A3:D72")
Set PaketA = Range("F3:G5")
Set PaketB = Range("H3:I6")
Set PaketC = Range("J3:K4")
Set PaketD = Range("L3:M3")

Columns("R:U").Clear
j = 3
For i = 1 To AListe.Rows.Count
If AListe.Cells(i, 3) = "Paket A" Then
  PaketA.Copy Cells(j, 20)
  For k = 1 To PaketA.Rows.Count
    Cells(j + k - 1, 21) = AListe.Cells(i, 4).Value * PaketA.Cells(k, 2).Value
  Next k
  Range(Cells(j, 18), Cells(j + PaketA.Rows.Count - 1, 19)).Value = Range(AListe.Cells(i, 1), AListe.Cells(i, 2)).Value
  j = j + PaketA.Rows.Count
Else
  PaketB.Copy Cells(j, 20)
  For k = 1 To PaketB.Rows.Count
    Cells(j + k - 1, 21) = AListe.Cells(i, 4).Value * PaketB.Cells(k, 2).Value
  Next k
  Range(Cells(j, 18), Cells(j + PaketB.Rows.Count - 1, 19)).Value = Range(AListe.Cells(i, 1), AListe.Cells(i, 2)).Value
  j = j + PaketB.Rows.Count
Else
  PaketC.Copy Cells(j, 20)
  For k = 1 To PaketC.Rows.Count
    Cells(j + k - 1, 21) = AListe.Cells(i, 4).Value * PaketC.Cells(k, 2).Value
  Next k
  Range(Cells(j, 18), Cells(j + PaketC.Rows.Count - 1, 19)).Value = Range(AListe.Cells(i, 1), AListe.Cells(i, 2)).Value
  j = j + PaketC.Rows.Count
Else
  PaketD.Copy Cells(j, 20)
  For k = 1 To PaketD.Rows.Count
    Cells(j + k - 1, 21) = AListe.Cells(i, 4).Value * PaketD.Cells(k, 2).Value
  Next k
  Range(Cells(j, 18), Cells(j + PaketD.Rows.Count - 1, 19)).Value = Range(AListe.Cells(i, 1), AListe.Cells(i, 2)).Value
  j = j + PaketD.Rows.Count
End If
Next i

End Sub

vielleicht gibt es ja auch eine PowerPivot Möglichkeit?

Grüße und herzlichen Dank