Speicherbefehl wird nicht mehr ausgeführt
17.07.2018 14:42:33
Wolfgang
aus dem Urlaub zurückgekehrt läuft mein Makro mittendrin nicht mehr weiter und ich kann mir nicht erklären warum. Darum danke für Hilfe!
Das Makro (ich weiß, das kann man sicher schicker lösen....) schnappt sich jedes einzelne Arbeitsblatt einer Datei, killt die Formeln und speichert das einzelne Blatt als neue Datei unter neuen Namen in 2 unterschiedlichen Verzeichnissen. Das passiert für 11 Arbeitsblätter nacheinander und hat immer funktioniert.
Neuerdings bleibt das Makro beim Speicherbefehl des zweiten Arbeitsblattes hängen. Der identische Code für das erste Arbeitsblatt ist aber schon problemlos durchgelaufen.
Sub DateienProStandortErzeugen2()
'
'
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim Berichtsdatum As String
Dim neuerPfad As String
Dim Archivpfad As String
Berichtsdatum = Application.InputBox(Prompt:="Bitte das Berichtsdatum in der Form MMDD eingeben:", Type:=2)
neuerPfad = "F:\C\COOP_Oberursel\TPL\Statistik\Produktivität\GJ17_18\AHT_IND_2018\Versand\"
Archivpfad = "F:\C\COOP_Oberursel\TPL\Statistik\Produktivität\GJ17_18\AHT_IND_2018\Archiv\"
Sheets("PMI").Select
Sheets("PMI").Copy
ActiveSheet.Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("b5").Select
ActiveWorkbook.SaveAs neuerPfad & "PMI.xlsx"
ActiveWorkbook.SaveAs Archivpfad & "PMI_2018" & Berichtsdatum & ".xlsx"
ActiveWorkbook.Close
Windows("IND_Master.xlsm").Activate
Sheets("BOC").Select
Sheets("BOC").Copy
ActiveSheet.Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("b5").Select
ActiveWorkbook.SaveAs neuerPfad & "BOC.xlsx"
ActiveWorkbook.SaveAs Archivpfad & "BOC_2018" & Berichtsdatum & ".xlsx"
ActiveWorkbook.Close
Windows("IND_Master.xlsm").Activate
' usw für insgesamt 11 Arbeitsblätter
Danke und Gruß
Wolfgang