Clever-Excel-Forum

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

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

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 :)

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

Hi,

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

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

und runterkopieren.

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 :)

DougHeffernan

Fennek

DougHeffernan

Fennek

{Boris}

DougHeffernan