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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen