mit untenstehender Makro Funktion versende ich Emails, funktioniert auch super ...
Meine Frage, wie muß ich das Makro verändern damit ich nicht nur eine Email Adresse (lese ich momentan aus Zelle G10 aus), sondern zwei bzw. drei Empfänger automatisch eingeben kann?
Danke für Eure Hilfe im voraus
Grüße
Falk
Function Email_versenden()
Dim Empfänger As String
Empfänger = Range("g10").Value
ActiveWorkbook.ActiveSheet.Copy
ActiveWorkbook.SaveAs Range("F1").Value & ".xls"
ActiveWorkbook.SendMail _
Recipients:=Empfänger, _
Subject:=Range("F1").Value
ActiveWorkbook.Close savechanges:=False
End Function