Doppelte Einträge zusammenfassen und nebeneiander in neue Zellen einfügen

[Matt Eagle]

Hallo zusammen,

bisher war ich hier im Forum nur lesend tätig. Es war mir in der Vergangenheit schon oft eine Hilfe.
Nun habe ich einen Fall bei dem ich nicht weiterkomme.

Ich habe eine Excel-Datei mit über 3000 Zeilen, die wie folgt aufgebaut ist:

Art-Nr. | Bild-URL
00001 |
Dateiupload bitte im Forum! So geht es: Klick mich!

00001 |
Dateiupload bitte im Forum! So geht es: Klick mich!

00002 |
Dateiupload bitte im Forum! So geht es: Klick mich!

00002 |
Dateiupload bitte im Forum! So geht es: Klick mich!

00002 |
Dateiupload bitte im Forum! So geht es: Klick mich!

00003 |
Dateiupload bitte im Forum! So geht es: Klick mich!

00004 |
Dateiupload bitte im Forum! So geht es: Klick mich!

00004 |
Dateiupload bitte im Forum! So geht es: Klick mich!

…

In Spalte A ist die Artikelnummer aufgeführt, in der Spalte B die Bild-URL.
Wenn zu dem Artikel mehrere Bilder existieren, ist die Art-Nr in Spalte A mehrmals vorhanden.
Ich benötige zur weiteren Bearbeitung jedoch eine andere Aufstellung. In Spalte A darf die Art-Nr nur einmal vorkommen. Dafür sollen die Bild-URLs in den Zellen dahinter aufgeführt werden.

Das Ergebnis wünsche ich mir so: 
Art-Nr. | Bild-URL | Bild-URL2 | Bild-URL3 | Bild-URL4 | Bild-URL5 | Bild-URL6 | …
00001 |
Dateiupload bitte im Forum! So geht es: Klick mich!
|
Dateiupload bitte im Forum! So geht es: Klick mich!

00002 |
Dateiupload bitte im Forum! So geht es: Klick mich!
|
Dateiupload bitte im Forum! So geht es: Klick mich!
|
Dateiupload bitte im Forum! So geht es: Klick mich!

00003 |
Dateiupload bitte im Forum! So geht es: Klick mich!

00004 |
Dateiupload bitte im Forum! So geht es: Klick mich!
|
Dateiupload bitte im Forum! So geht es: Klick mich!

...

Jemand eine Idee und Lösung wie ich die Bild-URLs zu den Art-Nrn zusammenfassen kann?

Beste Grüße
Matt

[steve1da]

Hola,

schau mal hier:

http://www.herber.de/excelformeln und bitte suchen .../formeln.html?welcher=28

Gruß,
steve1da

[Matt Eagle]

Hallo steve1da,

danke für den Link. Habe viel probiert. Bekomme es einfach nicht hin. Ich bin ja auch ein Freund davon sich selber was anzulernen. Aber mit Excel stehe ich seit jeher auf Kriegsfuß. Irgendwie fehlt mir das Verständnis dafür. Evtl. sollte ich meinen Arbeitgeber wegen einem Excel-Workshop anhauen. Ich bekomme immer mehr Aufgaben, die ich mit Excel lösen muss. Komme wohl nicht drumherum...  :s

Kannst du mir bitte eine Hilfestellung geben? Ich raff es nicht.

[steve1da]

Hola,

ausgehend von deiner Beschreibung, Quelldaten stehen in Tabelle 1 ab A2, Zieldaten kommen in Tabelle 2, ab B2, weil in A2 bis Axyz die Artikelnummern stehen:

Code:

{=WENNFEHLER(INDEX(Tabelle1!$B$2:$B$9;KKLEINSTE(WENN(Tabelle1!$A$2:$A$9=$A2;ZEILE($2:$9)-1);SPALTE(A1)));"")}

Achtung: die {} nicht mit eingeben, sondern die Formel mit Strg-Shift-Enter abschließen! Anschließend nach rechts und nach unten kopieren.

Gruß,
steve1da

[Matt Eagle]

Danke für deine Zeit und Mühe!

Wenn ich so wie du beschrieben hast ausführe, dann erhalte ich folgendes Ergebnis:

Art-Nr. | Bild-URL | ...
00001 | [url=
Dateiupload bitte im Forum! So geht es: Klick mich!
]
[color=#333333]00001 | [url=
Dateiupload bitte im Forum! So geht es: Klick mich!
]
[color=#333333]00002 | [url=
Dateiupload bitte im Forum! So geht es: Klick mich!
]
[color=#333333]00002 | [url=
Dateiupload bitte im Forum! So geht es: Klick mich!
]
[color=#333333]00002 | [url=
Dateiupload bitte im Forum! So geht es: Klick mich!
]
[color=#333333]00003 | [url=
Dateiupload bitte im Forum! So geht es: Klick mich!
]
[color=#333333]00004 | [url=
Dateiupload bitte im Forum! So geht es: Klick mich!
| [url=
Dateiupload bitte im Forum! So geht es: Klick mich!
]
00004 | [url=
Dateiupload bitte im Forum! So geht es: Klick mich!
]

[color=#026cb1]Noch eine Idee?

[Matt Eagle]

Ich nehm alles zurück!

War ein Bedienungsfehler meinerseits. Funktioniert soweit hervorragend! Muss jetzt nur noch die Duplikate entfernen.

Vielen Dank steve1da! Du hast mir Stunden von Arbeit erspart.  :19:

[lakiexceler]

Hallo,
wenn es auch ein kleines VBA sein darf, dann kannst du es wie in dem folgenden kleine Excelbeispiel machen, was ich gerade erstellt habe.

Viele Grüße

Klaus

[pefeu]

Hallo Matt Eagle

und noch eine VBA Variante, die auch die Dupülikate gleich beseitigt

PHP-Code:

Public Sub Bilder_zuordnen()

Dim MyDict   As Variant
Dim lZeile   As Integer
Dim Test     As Variant
Dim iSpalte  As Integer
Dim vTemp    As Variant
Dim iTemp    As Integer
 
  
   Set MyDict = CreateObject("Scripting.Dictionary")
  
   With ThisWorkbook.Worksheets("Tabelle1") ' den Tabellenblattnamen ggf. anpassen !
      For lZeile = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
         If .Cells(lZeile, 1).Text <> "" Then
            If MyDict.Exists(.Cells(lZeile, 1).Text) Then
               MyDict(.Cells(lZeile, 1).Text) = MyDict(.Cells(lZeile, 1).Text) & "##" & .Range("B" & lZeile).Value
             Else
               MyDict(.Cells(lZeile, 1).Text) = MyDict(.Cells(lZeile, 1).Text) & .Range("B" & lZeile).Value
           End If
         End If
      Next lZeile
         .Range("E2").Resize(MyDict.Count) = Application.Transpose(MyDict.Keys)
         lZeile = 2
         For Each Test In MyDict.Items
            iSpalte = 6
            vTemp = Split(Test, "##")
            For iTemp = 0 To UBound(vTemp)
               .Cells(lZeile, iSpalte).Value = Trim$(vTemp(iTemp))
               iSpalte = iSpalte + 1
            Next iTemp
            lZeile = lZeile + 1
         Next Test
   End With
  
End Sub

Gruß Peter 


[pefeu]

Hallo Matt Eagle,

hier noch die Test-Mappe zur Anschauung.

Gruß Peter

[pefeu]

Hallo Matt Eagle,

wenn auch die Bilder nicht doppelt vorkommen sollen, dann hier noch eine Test-Mappe zur Anschauung.

Gruß Peter