Office: Zusammengeführtes Ergebnis

Hallo Zusammen,

ich hoffe ich mache hiermit keinen neuen Thread auf, jedoch wusste ich leider auch nicht so wirklich was wie ich das Thema korrekt beschreibe.

Ich habe folgendes Problem zu lösen.
Ich habe 2 Arbeitsblätter in einer Datei.
Arbeitsblatt A hat die Spalten A "Name" und B "Mail"
Arbeitsblatt B hat die selben Spalten.

In Arbeitsblatt B wird per Power Query eine Liste aus einer Webdatenbank geholt die eben Namen und dazugehörige Mailadressen importiert.

Nun habe ich in Arbeitsblatt A die Spalte A -Name per VBA so konfiguriert, dass ich eine "Datenüberprüfung" mit DropDown Liste erstellt habe (auf Basis der Namen aus Arbeitsblatt B), mit der ich mehrere Namen aus der Liste von Arbeitsblatt B auswählen kann. Diese werden durch ein Komma getrennt.: "Name A, Name B, Name C" usw.

Ich brauche nun eine Möglichkeit, dass die Spalte B - Mail in Arbeitsblatt 1 automatisch die Mailadressen aus Arbeitsblatt B aller in Spalte A ausgewählten Namen zusammenfügt und diese durch ein Semikolon trennt.

Ich hoffe dass ihr versteht was ich meine und hoffe ihr könnt mir behilflich sein.

Vielen Dank im Voraus

 

Moin

Ich das habe mal einen Experten gefragt:

Ja, ich verstehe, was Sie erreichen möchten. Sie können eine benutzerdefinierte Funktion in VBA erstellen, die die E-Mail-Adressen basierend auf den ausgewählten Namen findet und sie mit einem Semikolon trennt. Hier ist ein Beispiel, wie Sie das tun könnten:

Code:

Function GetEmails(nameCell As Range, nameCol As Range, emailCol As Range) As String
    Dim names() As String
    Dim name As String
    Dim i As Long
    Dim emails As String
    
    names = Split(nameCell.Value, ",")
    
    For Each name In names
        name = Trim(name)
        For i = 1 To nameCol.Cells.Count
            If nameCol.Cells(i).Value = name Then
                emails = emails & emailCol.Cells(i).Value & ";"
                Exit For
            End If
        Next i
    Next name
    
    GetEmails = Left(emails, Len(emails) - 1)
End Function

Sie können diese Funktion in einer Zelle in Spalte B in Arbeitsblatt A verwenden, um die E-Mail-Adressen zu erhalten. Angenommen, die Namen sind in Spalte A und die E-Mail-Adressen sind in Spalte B in Arbeitsblatt B, dann könnten Sie die Funktion wie folgt verwenden:

`=GetEmails(A2, Sheet2!A:A, Sheet2!B:B)`

Bitte ersetzen Sie `Sheet2` durch den tatsächlichen Namen Ihres Arbeitsblatts B. Diese Funktion geht davon aus, dass die Namen in der Dropdown-Liste durch Kommas getrennt sind und entfernt führende und nachfolgende Leerzeichen von den Namen, bevor sie verglichen werden. Es fügt ein Semikolon nach jeder E-Mail-Adresse hinzu und entfernt das letzte Semikolon am Ende der Zeichenkette. Bitte beachten Sie, dass diese Funktion möglicherweise nicht gut funktioniert, wenn Sie sehr große Datenmengen haben, da sie jede Zelle in den angegebenen Bereichen durchläuft. In diesem Fall könnten Sie überlegen, eine effizientere Suchmethode zu implementieren.