AW: nhalt einer Zelle periodisch mit Outlook versend
23.09.2003 09:03:37
Willie
Hier hast du schon mal den Code
Füge einen Commandbutton auf dein Excel-Blatt und mit der rechten maustaste
makro zuweisen! Dieses Makro!fertig
Gruß
Willie
Sub BereichAlsEMailVersenden()
Dim Empfänger As String
Dim Bereich As Range
Application.SheetsInNewWorkbook = 1
Empfänger = InputBox("Geben Sie den Empfänger des e-Mails ein!")
If Empfänger = "" Then Exit Sub
Set Bereich = Application.InputBox("Wählen Sie den Bereich aus Sie den versenden möchten", Type:=8)
Range(Bereich.Address).Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
ActiveWorkbook.SaveAs "Anhang.xls"
Application.Dialogs(xlDialogSendMail).Show _
Empfänger, "markierter Bereich"
End Sub