Excelformel, 2 Bedingungen ausgeben

Hallo zusammen,

gibt es eine Formel, mit der man mehrere Bedingungen anzeigen kann (also quasi ein SVERWEIS, der nicht eindeutig ist). Z.B. bei einer Tabelle:

1 a
1 b
2 c
2 d

Die Formel soll so sein, dass ich nach 1 suche und er mir dann a,b ausgibt.
Gibt es für sowas eine Formel? Weil ohne Makro sich ich eigentlich keine Lösung…

Danke schonmal!

MfG

Grüezi Brille

1 a
1 b
2 c
2 d

Die Formel soll so sein, dass ich nach 1 suche und er mir dann
a,b ausgibt.
Gibt es für sowas eine Formel? Weil ohne Makro sich ich
eigentlich keine Lösung…

Wie wäre es mit einem Filter?

Wenn Du in der ersten Spalte nach ‚1‘ filterst bleiben alle Zeilen stehen die diesem Kriterium entsprechen. Das geht ganz ohne VBA-Programmierung.

Mit freundlichen Grüssen

Thomas Ramel

  • MVP für MS-Excel -

Hallo Thomas,

wenns so einfach wäre…:smile:
Aber wenn ichs gerad lese, merk ich das ich die Hälfte vergessen hab, sry…die 1 soll auf einem Übersichtsblatt stehen und daneben dann a,b. Deswegen meinte ich quasi wie ein SVERWEIS, bloß halt mit mehreren Alternativen.
Was du da einen Ansatz ohne VBA?

MfG

Aber wenn ichs gerad lese, merk ich das ich die Hälfte
vergessen hab, sry…die 1 soll auf einem Übersichtsblatt
stehen und daneben dann a,b. Deswegen meinte ich quasi wie ein
SVERWEIS, bloß halt mit mehreren Alternativen.

Hallo Brille,

Tabellenblatt: [Mappe1]!Tabelle1
 │ C │ D │ E │
──┼───┼───┼─────┤
5 │ 1 │ a │ a,b │
──┼───┼───┼─────┤
6 │ 1 │ b │ c,d │
──┼───┼───┼─────┤
7 │ 2 │ c │ │
──┼───┼───┼─────┤
8 │ 2 │ d │ │
──┴───┴───┴─────┘
Benutzte Formeln:
E5: =sammel(1;$C$5:blush:C$8)
E6: =sammel(2;$C$5:blush:C$8)
E7: =sammel(3;$C$5:blush:C$8)

C5:E8
haben das Zahlenformat: Standard

Tabellendarstellung erreicht mit dem Code in FAQ:2363

Vorher in einem Standardmodul einfügen:

Function Sammel(ByVal Such As Variant, ByRef Bereich As Range) As String
Dim Zei As Long
For Zei = 1 To Bereich.Cells.Count
 If Bereich.Cells(Zei, 1).Value = Such Then
 Sammel = Sammel & Bereich.Cells(Zei, 1).Offset(0, 1).Value & ","
 End If
Next Zei
If Len(Sammel) \> 0 Then Sammel = Left(Sammel, Len(Sammel) - 1)
End Function

Gruß
Reinhard

1 „Gefällt mir“

Hallo Reinhard,

danke schonmal für den Code, hab leider gerad wenig Zeit es zu testen.
Werds aber mal so probieren!

MfG