Hi All,
man kann natürlich auch beides zusammenführen indem man sich eine Eigene Formel
bastelt. Wusst ich doch, dass wir fast genau diese Frage erst vor kurzem hier hatten:
www.supportnet.de/t/2494487
Habe den dortigen Code mal für dich und spätere Fragesteller ein wenig angepasst:
Option Explicit
Function Überschrift(Bereich As Range, Suchwert As Variant, Optional Trennzeichen As
String = ", ") As String
Dim s As String, c As Range
For Each c In Bereich.Rows(Bereich.Rows.Count).Cells
If LCase(c) = Suchwert Then s = s & c.Offset(-Bereich.Rows.Count + 1, 0) & Trennzeichen
Next c
s = Left(s, Len(s) - Len(Trennzeichen))
Überschrift = s
End Function
Der Code gehört im VBA-Editor (Alt + F11) in ein Standardmodul (z.B. Modul1, kannst du
über Einfügen -> Modul hinzufügen)
Als Formel gibst du in deinem Arbeitsblatt dann z.B. ein: =Überschrift(C$6:G7;"x";";")
Dann einfach die Formel runterziehen.
Übrigens, wenn du den dritten Parameter mit dem Trennzeichen in der Formel weglässt
wird automatisch ", " als Trennzeichen verwendet.
Gruß Mr. K.