Hallo,
ich habe eine Seite mit email-Adressen. Die Adressen stehen in der 1. Spalte untereinander in 20 Zeilen.
Mit folgenden Code lese ich die Spalte bis zu letzten Zeile aus.
Ich möchte es aber auch so haben, das es zwischendurch auch leerzeilen gibt in denen gerade keine Adresse steht, aber trotzdem den Inhalt der aller Zeilen (1-20) auslesen.
Der Bereich bleibt bei max. 20 (A1:A20) Zeilen!
Hat jemand eine Idee wie ich das anpassen kann?!
Danke
Public Sub Senden()
Dim MailAdresse As String
Dim intZeile As Integer
intZeile = 1
MailAdresse = ""
With ThisWorkbook.Sheets("Mail")
Do While .Cells(intZeile, 1).Value ""
MailAdresse = MailAdresse & .Cells(intZeile, 1).Value & ";"
intZeile = intZeile + 1
Loop
End With