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
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