ich habe ein VBA gefunden das noch erweitert werden sollte ...wenn das geht.
ich möchte einen Absenzettel online erfassen , von Mitarbeiter an Chef senden als Datei.xlsm, von Chef an personal dann als pdf ankommen....
gibt es so etwas, ist das möglich?
anbei Makro und Excel.
Sub Send_Range1()
' Select the range of cells on the active worksheet.
ActiveSheet.Range("A1:j35").Select
' Show the envelope on the ActiveWorkbook.
ActiveWorkbook.EnvelopeVisible = True
' Set the optional introduction field thats adds
' some header text to the email body. It also sets
' the To and Subject lines. Finally the message
' is sent.
With ActiveSheet.MailEnvelope
.Introduction = "Absenzenzettel online"
.Item.To = "test@mail.com"
.Item.Subject = "Absenzenzettel online"
.Item.Send
End With
End Sub
an
https://www.herber.de/bbs/user/89563.xlsm
besten Dank
freundliche Grüsse
Jürg