Ich habe 100 E-Mailadressen in einer Zelle stehen.
Wie kann ich Sie trennen?
Ich möchte das die E-Mail Adressen untereinander stehen!
Je Zelle eine E-Mailadresse untereinanader!
Danke!
Gruß
Rolf St.
Sub Liste()
Const Trennzeichen = " " 'das Trennzeichen
Const Zelle = "A1" 'die Zelle in der die Adr. stehen
Const AbZeile = 5 'Liste ab Zeile [abZeile]
Const Spalte = 3 'Liste in Spalte [Spalte]
Dim li, z As Integer
li = Split(Range("A1"), Trennzeichen)
For z = 0 To UBound(li)
Cells(z + AbZeile, Spalte) = li(z)
Next z
End Sub