Hallo zusammen,

ich habe in der Suche ungefähr ein Ergebnis bekommen das die Lösung meines Problems sein könnte, leider verlinkt mich der Link immer auf die Startseite deswegen erstelle ich die Frage neu.

Ich habe ein Makro das bei mir mehrere Zellen einer Excel ausfüllt und hinterher eine Email generiert. Die Email Adresse wird durch das Makro per vlookup ausgelesen, jedoch habe ich manchmal noch eine 2te  und 3te Email Adresse in den Spalten rechts daneben.

Dim Email as String

Email = Application.VLookup(Kundennr, Kundendaten.Range("A2:H1000"), 5, False)

In Spalte 5 steht die erste Emailadresse, in Spalte 6 macnhmal eine zweite und in 7 manchmal eine dritte Adresse.

Ich würde gerne das wenn in Spalte 6 und oder 7 was steht die Ergebnisse(Addressen) mit einem ; (Semikolon) verkettet werden damit diese in die Adresszeile geschrieben werden können.

Könnt ihr mir da weiterhelfen?

Vg André