Variable = Application.Index(ZweidimensionalesArray, Zeile, Spalte(n))

Variable = Join(Variable, Trennzeichen)

Ergebniszeichenkette:=  mm@beispiel.de;ab@beispiel.de

Hi LayzR8,

so könntest es machen (ohne Deine Datei zu kennen).

Kopiere die gezeigte Tabelle mal in A1:E5 und lass folgenden Code ablaufen:

    Dim v As Variant
    
    v = Application.Index(Range("A1:E5"), 2, Array(3, 5))
    v = Join(v, ";")
    MsgBox v

Hinweis:

Fehlerbehandlung wäre noch ein Thema, sowie Bereiche dynamsich handeln und die Projektnummer berücksichtigen.

Viel Erfolg.

gruß

Marco