Office: "Summieren" von Textinhalten für mehrere Zeilen

Hallo ich habe ein Problem mit dem summieren von Textinhalten.

Ich habe eine Tabelle (siehe Angang mit 76 Zeilen). In dieser möchte ich Spalte C und D auslesen und je nach Ergebnis den Text aus Spalte A hintereinander aufreihen

z.b. Wenn für die erste Zeile in Spalte C ein "C1" steht und in Spalte D ein "x" ist, dann soll er den Text aus Spalte A nehmen und dann weiter runter gehen. Wenn das nicht übereinstimmt soll er eine Zeile weiter runter gehen. Ich habe das auch schon mal mit einer einfachen wenn-Funktion versucht. Wenn ich dies jedoch für alle 76 Zeilen machen will, muss ich 76 mal die Funktion ändern. Darum meine Frage geht es auch leichter? Besten Dank Odine

 

Hallo!

Von Hause aus kann Excel sowas nicht; dazu brauchst du VBA.
Hier wäre eine Möglichkeit mit einer benutzerdefinierten Funktion:
Kopiere diesen Code in ein allgemeines Modul (Alt+F11 > Einfügen > Modul):

Code:

Function Spezial(Ausgabe As Range, Such1 As Range, Krit1 As String, Such2 As Range, Krit2 As String)
Dim i As Long
For i = 1 To Ausgabe.Count
If Such1(i) = Krit1 And Such2(i) = Krit2 Then Spezial = Spezial & Ausgabe(i) & ","
Next i
Spezial = Left(Spezial, Len(Spezial) - 1)
End Function

Nun steht dir in der Tabelle die Funktion "Spezial" zur Verfügung, die du folgendermaßen ausführen kannst:

=spezial(A2:A100;C2:C100;"C1";D2:D100;"x")

sucht nach "C1" in Spalte C, nach "x" in Spalte D und verkettet die entsprechenden Einträge aus Spalte A.

 

Vielen Dank für die schnelle Antwort. Leider bekomme ich eine Fehlermeldung für die Formel ("Name"). Hast Du eine Idee woran das liegen kann? Viele Grüße Odine

 

Hallo!

Da kann ich nur raten:
Entweder hast du den Code an eine falsche Stelle kopiert und die Funktion wird daher nicht erkannt, oder es liegt an einem simplen Tippfehler.
Bei mir läuft's...

 

Sorry habe den Code ins falsche Tabellenblatt kopiert - noch mal vielen Dank!!!

 

Habe da noch eine kleine Frage ;-) Wie kann ich noch den Zusatz einbetten, dass wenn keine A,B ... gefunden werden die den Kriterien entsprechen die Ausagen kommt "keine Kriterien vorhanden"? Vielen Dank Odine

 

Hallo!

Teste mal dies:

Code:

Function Spezial(Ausgabe As Range, Such1 As Range, Krit1 As String, Such2 As Range, Krit2 As String)
Dim i As Long
For i = 1 To Ausgabe.Count
If Such1(i) = Krit1 And Such2(i) = Krit2 Then Spezial = Spezial & Ausgabe(i) & ","
Next i
If Spezial = "" Then
Spezial = "Keine Kriterien vorhanden"
Else
Spezial = Left(Spezial, Len(Spezial) - 1)
End If
End Function

 

Funktioniert super danke für die schnelle Antwort...