Sub Email_SICH_SENDEN()
Dim Neuer_Dateiname
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim i As Integer
Rem kopiert ganzes Blatt in neue Mappe, mit Formeln
Windows("Missing Files Auswertung V1.2.xlsm").Activate
ActiveWorkbook.RefreshAll
Sheets("Missing Files").Select
DATUM = Range("B4").Value
KW = Range("C4").Value
Sheets(Array("Missing Files", "Missing Stock", "Externe Fehler")).Copy
Rem in neuer Mappe alle Zellen kopieren
Cells.Copy
Rem in neuer Mappe A1 wählen
Range("A1").Select
Rem dort nur die Werte einfügen
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Rem Kopiermodus beenden (Laufrahmen beenden)
Application.CutCopyMode = False
Rem s.o.
Range("A1").Select
Rem Speichernabfrage
ActiveWorkbook.SaveAs Filename:="\\xxx.xxx.xxx.xxx\lw_reporting\SSF\Missing\Auswertung KW\Missing_Files" & "_KW" & "_" & KW & "_" & DATUM & ".xlsx"
ActiveWorkbook.RefreshAll
Application.DisplayAlerts = True
ActiveWorkbook.Close
Windows("Missing Files Auswertung V1.2.xlsm").Activate
'Call Sicherheitskopy
'Call Email
Call Email2
End Sub