Verkette Spalte A wenn "x" in Spalte B

[Goleo]

Hallo :43: 

Ich habe folgendes Problem: Ich habe einen Email-Verteiler für verschiedene Länder (Beispiel im Anhang - Reiter "Verteiler"). Jeder Empfänger ist für seinen jeweiligen Verteiler mit einem "x" gekennzeichnet. Jetzt soll auf dem ersten Tabellenblatt ("Formel") jeder Verteiler zusammengefasst werden - das heißt: Email Adresse 1,2,5 und 9 haben einen "x" für Deutschland und sollen somit im Verteiler für Deutschland gelistet werden. Des Weiteren sollen die die Email Adressen mit einem Semikolon getrennt werden. 

Ich hoffe, irgendwer kann mir hier helfen!!! Beschäftige mich schon seit Stunden mit dem Problem -.-

Liebe Grüße

[Peter]

Hallo,

mir ist nicht ersichtlich was jetzt in die Spalte An, CC und BCC haben willst.

Wenn diese Unterteilung nicht notwendig ist dann könnte man z.B. mit der folgenden Funktion arbeiten die in ein allgemeines Modul der Datei muss:

Code:

Function SummeWennText( _
                        SuchSpalte As Range, _
                        Suchbegriff As String, _
                        TextSpalte As Range, _
                        Optional TrennZeichen As String = "" _
                        ) As String
'http://www.office-loesung.de/fpost1924484.php#1924484
Dim arrS
Dim arrT
Dim i As Long
arrS = SuchSpalte.Value
arrT = TextSpalte.Value
For i = 1 To WorksheetFunction.Min(UBound(arrS, 1), UBound(arrT, 1))
    If arrS(i, 1) = Suchbegriff Then SummeWennText = SummeWennText & TrennZeichen & arrT(i, 1)
Next
SummeWennText = Mid(SummeWennText, Len(TrennZeichen) + 1)
End Function

Die Verkettung erhälst du dan mit der folgenden Formel:

=summewenntext(Verteiler!B2:B10;"x";Verteiler!A2:A10;";")

Für Österreich müsstest du dann B2:B10 auf C2:C10 ändern.

Kommst du damit weiter oder schreibe ich am Problem vorbei?

[Goleo]

Hallo,

vielen Dank für Deine Antwort. Der CC und BCC kann ignoriert werden. Leider klappt diese Formel bei mir nicht und ich glaube bei 50-60 Adressen könnte es Probleme geben, oder ?! Von einem Freund ich habe ich den Hinweis bekommen es mit folgendem Thema zu probieren: "Flexibles Verketten von Zellen eines Bereiches". Leider sagt mir das recht wenig und wenn ich mir folgenden Link (http://www.herber.de/excelformeln und bi...elcher=155) dazu anschaue, werde ich auch nicht schlauer

Viele Grüße

[Goleo]

Ganz vergessen: Die Rubrik "An" fasst einfach alle Email Adressen zusammen, getrennt sie durch ein Semikolon.

[steve1da]

Hola,

das klingt nach Verkettenwenn:

http://www.online-excel.de/fom/fo_read.php?f=1&bzh=37501&h=37473

Gruß,
steve1da

Edit: Sorry Peter, hatte deinen Vorschlag nicht probiert weil ich Summewenn... gelesen habe :)
Klappt auch - jedenfalls bei mir

[Peter]

Hallo,

Leider klappt diese Formel bei mir nicht und ich glaube bei 50-60 Adressen könnte es Probleme geben, oder

das ist ziemlich wenig Info - was heißt denn klappt nicht genau? Bekommst du ein falsches Ergebnis oder eine Fehlermeldung? Wenn ja, welche genau?

Ich habe die Formel bei mir getestet und die funktioniert problemlos.

Hast du den Code, wie ich geschrieben habe, in ein allgemeines Modul kopiert?

Und nein, bei 50 bis 60 Adressen dürfte der Code überhaupt keine Probleme machen.

[Goleo]

Jetzt hat alles geklappt. Hatte den Code falsch eingegeben! Vielen lieben Dank für die schnelle Hilfe :)