folgendes Problem: Ich habe mehrere Zeilen mit Informationen. Am Ende jeder dieser Zeilen steht eine Emailadresse. Wie muss ich nun diesen Code abändern, damit jede dieser Zeilen in einer eigenen Emailnachricht an die dazugehörige Emailadresse versendet wird?:
Sub EmailErinnerung()
Dim rng As Range
Dim sAddress As String
Application.ScreenUpdating = False
Set rng = Selection
sAddress = Range("L2").Value
Workbooks.Add 1
rng.Copy Range("A1")
Columns.AutoFit
ActiveWorkbook.SendMail sAddress, "Open Action Item Reminder"
ActiveWorkbook.Close savechanges:=False
Application.ScreenUpdating = True
End Sub
Könnt ihr mir helfen?
Matthias