Hallo Christian,
das könntest du mit einer benutzerdefinierten Funktion lösen.
Kopiere den folgenden Code in ein
Standard-Modul deiner Tabelle:
Public Function Verkettenwenn(ByRef Bereich As Range, ByRef Suchbegriff As Variant, ByRef Suchspalte As Long, ByRef Ergebnisspalte As Long) As String
'Eingabe wie eine normale Formel in Exceltabelle
' =Verkettenwenn(Datenbereich, Suchbegriff, Suchspalte, Ergebnisspalte)
' =Verkettenwenn(B11:C21;B4;1;2)
' Daten stehen im Bereich B11 bis B21
' in Zelle B4 steht der Suchbegriff
' in Spalte B (=Suchspalte; hier 1. Spalte des Bereiches) stehen die Suchbegriffe des zusammenfassenden Bereichs
' in Spalte C (=Ergebnisspalte; hier 2. Spalte des Bereiches) stehen die Begriffe, die zusammengefasst werden sollen
Dim varBereich As Variant
Dim z As Long
varBereich = Bereich
For z = LBound(varBereich, 1) To UBound(varBereich, 1)
If varBereich(z, Suchspalte) = Suchbegriff Then Verkettenwenn = Verkettenwenn & varBereich(z, Ergebnisspalte) & ";"
Next z
'letztes Semikolon abschneiden
Verkettenwenn = Left(Verkettenwenn, Len(Verkettenwenn) - 1)
End Function
Schreibe in C4 die folgende Formel:
=Verkettenwenn($B$11:$C$21;B4;1;2)
und ziehe sie soweit wie benötigt nach unten.
Gruß
M.O.
