wie kann ich ein aktives Sheet per Mail versenden? Die Mailadresse soll aber variabel sein!
Danke für Eure Hilfe..
Micha
Sub Blatt_senden()
Sheets("Tabelle1").Copy
ActiveWorkbook.SendMail "empfaenger@provider.de", "Betreffzeile"
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
End Sub
Sub Blatt_senden()
Sheets("Tabelle1").Copy
ActiveWorkbook.SendMail "empfaenger@provider.de", "Betreffzeile"
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
End Sub