Clever-Excel-Forum

Hallo,

ich stehe vor einem kleinen Problem in einer Tabelle. Meine Tabelle sieht in etwa so aus:

A B C D E
1 Name Name Name Name
2 x x
3 x x x

Ich möchte dass in Spalte E die Namen welche mit x markiert sind zusammen wiedergegeben werden. Gibt es hier eine Formel oder muss ich mit einem Makro arbeiten?

Hi Atram,

mein Vorschlag:

Tabelle1

	A	B	C	D	E
1	Peter	Eva	Adam	Gerlinde
2	x		x		Peter Adam
3	x	x		x	Peter Eva Gerlinde
4			x		Adam

Formeln der Tabelle

Zelle	Formel
E2	=GLÄTTEN(WENN(A2="x";ERSETZEN("x";1;1;A$1);"")&" "&WENN(B2="x";ERSETZEN("x";1;1;B$1);"")&" "&WENN(C2="x";ERSETZEN("x";1;1;C$1);"")&" "&WENN(D2="x";ERSETZEN("x";1;1;D$1);""))
E3	=GLÄTTEN(WENN(A3="x";ERSETZEN("x";1;1;A$1);"")&" "&WENN(B3="x";ERSETZEN("x";1;1;B$1);"")&" "&WENN(C3="x";ERSETZEN("x";1;1;C$1);"")&" "&WENN(D3="x";ERSETZEN("x";1;1;D$1);""))
E4	=GLÄTTEN(WENN(A4="x";ERSETZEN("x";1;1;A$1);"")&" "&WENN(B4="x";ERSETZEN("x";1;1;B$1);"")&" "&WENN(C4="x";ERSETZEN("x";1;1;C$1);"")&" "&WENN(D4="x";ERSETZEN("x";1;1;D$1);""))

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

Hallo Atram,

mein Vorschlag:

	A	B	C	D	E
1	Name1	Name2	Name3	Name4
2	x		x		Name1 Name3
3	x	x		x	Name1 Name2 Name4

Formeln der Tabelle

Zelle	Formel
E2	=WECHSELN(A2;"x";A$1&" ")&WECHSELN(B2;"x";B$1&" ")&WECHSELN(C2;"x";C$1&" ")&WECHSELN(D2;"x";D$1)
E3	=WECHSELN(A3;"x";A$1&" ")&WECHSELN(B3;"x";B$1&" ")&WECHSELN(C3;"x";C$1&" ")&WECHSELN(D3;"x";D$1)

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4

Gruß Uwe

Vielen Dank an euch beide, es hat super funktioniert. Eine kleine Frage habe ich noch, ist es möglich in Spalte E die Namen mit einem komma zu trennen?
#
Edit: hab es gefunden, führt aber zu einen weiteren Frage: wenn nur ein Wert übernommen wird setzt er natürlich auch das komma, kann man dies ausschließen?

Hallo,

noch eine Variante mit einer benutzerdefinierten Funktion.

Kopiere den folgenden Code in ein allgemeines Modul der Datei:

Code:
Function VerkettenWenn(Bereich As Range, KriterienBereich As Range, Suchkriterium As String, Optional Trenner As String = "") As Variant

'http://www.office-loesung.de/p/viewtopic.php?f=166&t=680624#p2830169

   Dim strWerte As String, lngZaehler As Long

   If Bereich.Cells.Count <> KriterienBereich.Cells.Count Then

      VerkettenWenn = CVErr(2042)

      Exit Function

   End If

   strWerte = ""

   For lngZaehler = 1 To Bereich.Cells.Count

      If KriterienBereich.Cells(lngZaehler) Like Suchkriterium Then

         strWerte = strWerte & Trenner & Bereich.Cells(lngZaehler)

      End If

   Next

   VerkettenWenn = Mid(strWerte, Len(Trenner) + 1)

End Function

In E2 kommt dann folgende Formel

=VerkettenWenn(A$1:D$1;A2:D2;"x";",")

die einfach nach unten kopiert wird.

Vielen Dank an alle für die Hilfe :)

Hallo,

für das Komma noch eine Formel:

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B	C	D	E
1	Name1	Name2	Name3	Name4
2	x		x		Name1, Name3
3	x	x		x	Name1, Name2, Name4

Zelle	Formel
E2	=WECHSELN(WECHSELN(A2;"x";$A$1&", ")&WECHSELN(B2;"x";$B$1&", ")&WECHSELN(C2;"x";$C$1&", ")&WECHSELN(D2;"x";$D$1&", ");", ";"";ANZAHL2($A2:$D2))
E3	=WECHSELN(WECHSELN(A3;"x";$A$1&", ")&WECHSELN(B3;"x";$B$1&", ")&WECHSELN(C3;"x";$C$1&", ")&WECHSELN(D3;"x";$D$1&", ");", ";"";ANZAHL2($A3:$D3))

Atram

WillWissen

Kuwer

Atram

Peter

Atram

BoskoBiati