Hallo ihr lieben,
wieder einmal ersuche ich eure Weisheit
Ich stehe vor einem Problem was meiner Theorie nach eigtl. mit einer wenn/dann Formel gelöst werden könnte, aber ich denke es geht einfacher?
Es geht darum das verschiedene Partner, verschiedene Merkmale aufweisen können.
Jeder dieser Partner bekommt für ein vorhandenes Merkmal ein "x".
Am Ende soll mir Excel in einer Zelle dann alle Merkmale des Partners mit Komma getrennt eintragen.
Ich habe eine Test Tabelle als Datei eingefügt und hier auch nochmal als Screenshot, für diejenigen die nicht gerne etwas herunterladen möchten :)
Ich danke schon mal im Voraus !
Gruß
Fabian
[
attachment=23566]
Zitat:Ich habe eine Test Tabelle als Datei eingefügt und hier auch nochmal als Screenshot, für diejenigen die nicht gerne etwas herunterladen möchten
Sehr sehr löblich! Mustergültig :100: :100: :100: :15: :15: :15:
Leider hast du noch Office 2010, da fällt mir kein sehr eleganter Weg ein (geht womöglich noch einfacher, mal sehen, welche Lösungen noch daherkommen).
Geht natürlich auch ohne Hilfsspalte - ersetze in der Formel in K2 einfach "J2" durch die Formel aus J2 :) Ich hab es nur der Übersichtlichkeit wegen mit Hilfsspalte gemacht.
Arbeitsblatt mit dem Namen 'Tabelle1' |
| A | B | C | D | E | F | G | H | I | J | K |
1 | Anrede | Name | Vorname | 1 | 2 | 3 | 4 | 5 | 6 | | |
2 | bla | bli | blu | x | | x | x | | x | 1, 3, 4, 6, | 1, 3, 4, 6 |
3 | bla | bli | blu | | x | x | x | | x | 2, 3, 4, 6, | 2, 3, 4, 6 |
4 | bla | bli | blu | x | | | | | | 1, | 1 |
5 | bla | bli | blu | | | | x | x | | 4, 5, | 4, 5 |
6 | bla | bli | blu | x | x | x | x | x | x | 1, 2, 3, 4, 5, 6, | 1, 2, 3, 4, 5, 6 |
Zelle | Formel |
J2 | =WENN(D2="x";$D$1&", ";"")&WENN(E2="x";$E$1&", ";"")&WENN(F2="x";$F$1&", ";"")&WENN(G2="x";$G$1&", ";"")&WENN(H2="x";$H$1&", ";"")&WENN(I2="x";$I$1&", ";"") |
K2 | =LINKS(J2;LÄNGE(J2)-2) |
J3 | =WENN(D3="x";$D$1&", ";"")&WENN(E3="x";$E$1&", ";"")&WENN(F3="x";$F$1&", ";"")&WENN(G3="x";$G$1&", ";"")&WENN(H3="x";$H$1&", ";"")&WENN(I3="x";$I$1&", ";"") |
K3 | =LINKS(J3;LÄNGE(J3)-2) |
J4 | =WENN(D4="x";$D$1&", ";"")&WENN(E4="x";$E$1&", ";"")&WENN(F4="x";$F$1&", ";"")&WENN(G4="x";$G$1&", ";"")&WENN(H4="x";$H$1&", ";"")&WENN(I4="x";$I$1&", ";"") |
K4 | =LINKS(J4;LÄNGE(J4)-2) |
J5 | =WENN(D5="x";$D$1&", ";"")&WENN(E5="x";$E$1&", ";"")&WENN(F5="x";$F$1&", ";"")&WENN(G5="x";$G$1&", ";"")&WENN(H5="x";$H$1&", ";"")&WENN(I5="x";$I$1&", ";"") |
K5 | =LINKS(J5;LÄNGE(J5)-2) |
J6 | =WENN(D6="x";$D$1&", ";"")&WENN(E6="x";$E$1&", ";"")&WENN(F6="x";$F$1&", ";"")&WENN(G6="x";$G$1&", ";"")&WENN(H6="x";$H$1&", ";"")&WENN(I6="x";$I$1&", ";"") |
K6 | =LINKS(J6;LÄNGE(J6)-2) |
Hey Prima danke ! :)
habe es erst so versucht :
=(WENN([@1]="x";Tabelle1[[#Kopfzeilen];[1]]&",";""))&(WENN([@2]="x";Tabelle1[[#Kopfzeilen];[2]]&",";""))&(WENN([@3]="x";Tabelle1[[#Kopfzeilen];[3]]&",";""))&(WENN([@4]="x";Tabelle1[[#Kopfzeilen];[4]]&",";""))&(WENN([@5]="x";Tabelle1[[#Kopfzeilen];[5]]&",";""))&(WENN([@6]="x";Tabelle1[[#Kopfzeilen];[6]];""))
Aber deines ist noch übersichtlicher
aber einen leichteren Weg scheint es nicht zu geben?
Gruß
Fabian
Hier noch eine VBA-Variante. Code gehört in ein allgemeines Modul (VBA-Editor - Einfügen - Modul)
Code:
Public Function Textverbinden(Bereich As Range, Optional Trenner As String = ", ")
Dim a() As Variant
Dim zellen As Range
Dim L As Long
ReDim a(Bereich.Count)
For Each zellen In Bereich
If zellen.Text <> "" Then
a(L) = Cells(1, zellen.Column).Text
L = L + 1
End If
Next
ReDim Preserve a(L - 1)
Textverbinden = Join(a, Trenner)
End Function
Dann kannst du in J2 die Formel
Code:
=Textverbinden(D2:I2)
eingeben und die Formel runterziehen.
Zitat:aber einen leichteren Weg scheint es nicht zu geben?
Keinen, den ich für deine Excelversion kenne. Wie gesagt, vielleicht findet einer der Cracks hier was.
Genial ! :)
so hab ich mir das vorgestellt !!! Liebsten Dank !!!!
Hi
Alternativ.
J2 =WECHSELN(WECHSELN((D2<>"")*1&", "&(E2<>"")*2&", "&(F2<>"")*3&", "&(G2<>"")*4&", "&(H2<>"")*5&", "&(I2<>"")*6;"0, ";"");", 0";"")
Gruß Elex