Ohne Zwischenspeichern Emailversand
Heinz
Im unteren Code wird vom Sheets Personalbesetzung eine Copy gemacht damit ich diese Copy als Email mit Anhang versenden kann.
Das Funktioniert auch.
Nur bleibt die Copy auf dem Rechner gespeichert.
Gäbe es nicht eine Möglichkeit diesen Sheets ohne Zwischenspeichern zu versenden.
Haben leider kein Outlook, sondern Novell
Gruß
Heinz
Option Explicit
Sub CopySchichtliste()
Application.ScreenUpdating = False
ActiveSheet.Unprotect
ActiveSheet.DrawingObjects.Visible = True
If MsgBox("Als Mail versenden ?", vbQuestion + vbYesNo, "Abfrage") = vbNo Then
Else
ThisWorkbook.Sheets("Personalbesetzung").Copy
With ActiveSheet.UsedRange
ActiveWorkbook.SaveAs "Personalbesetzung KE" & " " & " " & ActiveSheet.Range("Q5") & " " _
_
& "-" & "Schicht" & " " & ActiveSheet.Range("U5") & " " & ".xls"
'Ausfüllbereiche leeren
.Range("B50:B85").ClearContents
End With
ActiveSheet.DrawingObjects.Visible = False
End If
Application.ScreenUpdating = True
ActiveSheet.Protect
End Sub
Anzeige