Clever-Excel-Forum

Hallo,
ich benötige Unterstützung für ein kleines Problem (für mich ein etwas Größeres). Huh

Ich habe eine Tabelle mit ca. 300 Tsd. Einträgen mit zwei Spalten. In Spalte A steht der Ortsname und in Spalte B die Namen der Eheleuten. Diese möchte ich gerne transponieren, so dass der Ortsname und die Eheleute in einer Zeile stehen. Also: Ortsname; Name Mann; Name Frau; Geburtsname Frau;
Die Reihenfolge der Namen ist egal.

Zu 99% steht 3 x der Ortsname pro Ehepaar (Spalte A). Manchmal 4 x der Ortsname, wenn ein Ehepartner schon einmal verheiratet war. Siehe Beispiel Anhang.

Vielen Dank im Voraus

Jacob.

Hallo,

für diesen Data-Set:

Code:
Sub Main

for i = 2 to 24

    if cells(i,"A") <> cells(i-1, "A") then

        r=r+1

        cells(r,"E") = cells(i,"A")

        cells(r,"F") = cells(i,"B")

        o=0

    else

        cells(r,"F").offset(,o+1) = cells(i,"B")

        o=o+1

    endif

next i

End Sub

mfg

Besten Dank Fennek.

Jacob01

Fennek

Jacob01