Mappe wird ohne Module gespeichert
Gisela
ich kann leider aufgrund meiner geringen Kenntnisse den Fehler nicht finden.
Der Makro funtioniert insoweit, dass die Daten kopiert werden und die Mappe danach auch an der richtigen Stelle gespeichert wird.
Problem ist aber, dass die 2 Module(sind im Original am Originalspeicherort vorher und nachher vorhanden) der Arbeitsmappe nach dem abspeichern auf einen neuen Speicherort verschwunden sind.
Kann mir bitte jemand helfen. Was muss ich ändern?
Sub plaufwerk()
Application.ScreenUpdating = False
Cells.Select
Selection.Copy
Workbooks.Open Filename:="G:\aaaaa\bbbbb\cccccc.xlsm"
Range("A1").PasteSpecial (xlPasteValues)
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("B2").Select
Call elementeLöschen
'Spalten löschen
Call machs1
Call machs2
Columns("Av:Cb").Delete Shift:=xlToLeft
'Formeln löschen
Range("AN11:AS124").Copy
Range("AN11").PasteSpecial (xlPasteValues)
Range("AR3").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Range("AR4").Select
Sheets.Copy
ActiveWorkbook.SaveAs Filename:="C:Users\zzzzzz\ddddd\xxxxxx.xls"
ActiveWorkbook.Close savechanges:=False
Application.DisplayAlerts = False
ActiveWorkbook.Close
Range("D3").Select
End Sub
Gisela