Hallo Leute. Folgendes Makro funktioniert leider nicht. Also es funktioniert bis auf den letzten Teil, dass es einfach nicht abspeichert.
Public Sub aLG_macro(Optional ByVal nWorkbookName As String = "", _
Optional ByVal nTemplateName As String = "")
On Error Resume Next
ChDir _
"H:\fag\fkomp\03 A+O\10 Vorlagen\Neuer Ordner\04 Mengenerfassung FREKOG"
Workbooks.Open Filename:= _
"H:\fag\fkomp\03 A+O\10 Vorlagen\Neuer Ordner\04 Mengenerfassung FREKOG\02 Vorlage Grundlagen BP pne.xlsx"
Sheets.Add After:=ActiveSheet
Sheets("Tabelle1").Select
Sheets("Tabelle1").Name = "Mengen Revit"
Windows("Mengen Revit1").Activate
Cells.Select
Selection.Copy
Windows("02 Vorlage Grundlagen BP pne.xlsx").Activate
Cells.Select
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1:AF1").Select
Application.CutCopyMode = False
Selection.AutoFilter
Sheets("Grundlage Vorausmass").Select
Windows("Mengen Revit1").Activate
Columns("H:I").Select
Selection.Delete Shift:=xlToLeft
Range("A2:N10000").Select
Selection.Copy
Windows("02 Vorlage Grundlagen BP pne.xlsx").Activate
Range("C55").Select
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Windows("Mengen Revit1").Activate
ActiveWindow.Close
'abspeichern
ChDir "\\daten6\user$\14475\Desktop"
ActiveWorkbook.SaveAs Filename:="\\daten6\user$\14475\Desktop\AvorTool.xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub
Könnt Ihr mir sagen was da falsch läuft?
lg |