Werte aus matrix entnehmen ?

Hallo erstmal,
ich habe folgendes Problem und stelle mich mal wieder ein bisschen zu doof an, naja ich komm nicht drauf.
In Blatt1 habe ich mir ein Formular angelegt das allerdings je nach inhalt an einen unterschiedlichen Verteiler per Mail verschickt wird. Die Namen stehen im Bereich B31:F39.
In Blatt2 Spalte C habe ich die Namen aller möglichen Empfänger gelistet und in Spalte D die zugehörigen Mailadressen.
Nun möchte das wenn in Blatt1, Bereich B31:F39 ein Name aus der Liste Blatt2 Spalte C enthalten ist die Emailadresse in Blatt 2 Spalte C6 eingetragen wird. Natürlich nicht nur die Emailadresse eines Namens sondern aller Namen die in Blatt 1 eingetragen wurden mit Semikolon getrennt.
Ich habe mir das Makro von Rondebruin in die Tabelle gebaut mit der man Einzelen Tabellenblätter aus einer Exceltabelle mit verschicken kann. Es wäre halt super wenn sich der Verteiler dann auch entsprechend anpasst.
Ich hoffe mal das ihr mit weiterhelfen könnt.
Grüße Andreas

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
habe Dir mal eine Funktion gebastelt.

Option Explicit

Function MeinVerteiler(Bereich As Range, SuchBereich As Range) As String
Dim Zelle As Range
Dim FZelle As Range

For Each Zelle In Bereich

 If Zelle <> "" Then
    Set FZelle = SuchBereich.Find(Zelle, , xlValues, xlWhole, xlByRows, xlNext, True, False)
        If Not FZelle Is Nothing Then
         MeinVerteiler = MeinVerteiler & FZelle.Offset(0, 1) & ";"
        End If
 End If

Next Zelle
If MeinVerteiler <> "" Then
    MeinVerteiler = _
        IIf(Right$(MeinVerteiler, 1) = ";", _
        Left$(MeinVerteiler, Len(MeinVerteiler) - 1), _
        MeinVerteiler)
End If
End Function

Diese kannst Du nun beliebig einsetzen.
In einer Zelle

	B	C	D
30	Musterman@Provider.de;Musterfrau@Provider.de
31	Mustermann	Musterfrau
32
33

Formeln der Tabelle

Zelle	Formel
B30	=MeinVerteiler(B31:F39;Tabelle2!C:C)

In einem Makro

Option Explicit
Sub Verteiler()
Dim strVert As String
strVert = MeinVerteiler(Tabelle1.Range("B31:F39"), Tabelle2.Range("C:C"))
End Sub

Der erste Bereich ist der Bereich der Deine Suchnamen enthält, der Zweite bereich ist der wo Deine Daten gesucht werden sollen.
Gruß Tino

www.VBA-Excel.de

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

315 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Werte aus matrix entnehmen ?

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

315 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread