Addieren von Textwerten in einer Zeile mit Wert 1

[berndhufmann]

Hi,

[
Bild bitte so als Datei hochladen: Klick mich!
]


in der Zelle U sollten alle Länderkürzel aufgelistet werden, die in der Spalte eine 1 stehen haben. Am besten getrennt durch einen /

z.Bsp  0008011-01   CN
z.Bsp. 010-01666A   EU/AU/CA/IL/IN/JP/KR/MX/NZ/SG/US

Die xlsx Liste besteht aus ca 4000 Materialnummern, eine Beispielliste ist angehängt.

Vielen Dank für eure Hilfe!

[Fennek]

Hallo,

ein von der Idee sehr konventionelle Lösung:

Code:

Sub Main
on error resume next
for i = 2 to cells(rows.count,1).end(xlup).row
    for j = 2 to 20
        if cells(i,j) then c = c & ", " & cells(1,j)
    next j
    cells(i,22) = mid(c, 3)
    c = ""
next i
End Sub

mfg

[Fennek]

Hallo,

dieser Ansatz ist etwas interessanter, aber nur an einem nachgemachten Beispiel getestet:

Code:

Sub Main
dim rr as range
for i = 2 to cells(rows.count, 1).end(xlup).row
set rr = rows(i).specialcells(2).offset(1-i)
for each r in rr
    Tx = Tx & ", " & r
next r
cells(i,22) = mid(Tx, 3)
Tx = ""
next i
End Sub

mfg

[LCohen]

{=TEXTVERKETTEN("/";WAHR;WENN(B2:T2;B$1:T$1;))} 

(in U2) müsste eigentlich gehen. Sonst interimsweise:

{=WECHSELN(TEXTVERKETTEN("/";WAHR;WENN(B2:T2;B$1:T$1;));"/0";)}

[berndhufmann]

Hi, vielen Dank für die Antworten. Werde sie ausprobieren und das Ergebnis posten.