Aus einer Liste eine Datenbank machen

[DougHeffernan]

Guten Abend zusammen

Ich bin mit meinem Latein am Ende! Und zwar habe ich eine Tabelle die vereinfacht etwa so aussieht:

A Link1
A Link2
A Link3
B Link4
B Link5
C Link6
C Link7
C Link8
C Link9

Buchstaben = Produktnummer, Links = Bildpfade 
und ich benötige quasi eine kombinierte Tabelle

A Link1 Link2 Link3
B Link4 Link5
C Link6 Link7 Link8 Link9

Aktuell mach ich es manuell so, dass ich eine Textverkettung mit ";" als Trennzeichen mache und dann quasi "Link1;Link2;Link3" bekomme und dies dann mittels der Funktion "Text in Spalten" einfach wieder auftrenne. Aber ich muss das initial bei über 2'000 Produkten machen und anschliessend wöchentlich nochmals bei 200 bis 300 Produkten.... das wäre quasi unmöglich. 

Hat einer eine Idee? 

Beste Grüsse
Dougles

[Fennek]

Hallo,

es ist nett einer Kollegin helfen zu wollen.

Teste diesen Code für das Sheets("ist"):

Code:

Sub F_en()
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
    If Cells(i, 1) <> Cells(i - 1, 1) Then
        r = r + 1
        sp = 1
        Cells(r, 5) = Cells(i, 1)
        Cells(r, 5 + sp) = Cells(i, 2)
    Else
        sp = sp + 1
        Cells(r, 5 + sp) = Cells(i, 2)
    End If
Next i
End Sub

mfg

[DougHeffernan]

Hm, der Code funktioniert leider nicht. Das gibt mir einfach in den Spalten E nochmals das gleiche wie in der Spalte A aus und in der Spalte F das gleiche wie in der spalte B :)

[Fennek]

Du nutzt Excel auf einem MAC, da ist das mit VBA so eine Sache.

[{Boris}]

Hi,

D2:
=SORTIEREN(EINDEUTIG(A2:A10))

E2:
=MTRANS(FILTER(B$2:B$10;A$2:A$10=D2))

und runterkopieren.

[DougHeffernan]

Ah der code funktioniert doch, es hatte noch eine Spalte A gegeben bei nem vorangegebenen Versuch, jetzt hab ich's wieder in den Originalzustand versetzt und jetzt hats perfekt funktioniert! besten Dank!

jetzt mal umbauen für das grosse File :)