Code

Sub Arbeitsmappen() 
 
'Arbeitsmappen ansprechen 
MsgBox ThisWorkbook.Path 
MsgBox ThisWorkbook.FullName 
MsgBox ActiveWorkbook.FullName 
Range("A1").Value = Workbooks("Kundendaten.xlsm").FullName 
 
'Arbeitsmappe schließen 
Workbooks("Kundendaten.xlsm").Close savechanges:=True 
 
'Arbeitsmappe öffnen 
Workbooks.Open Filename:="C:UserskaiweDesktopKundendaten.xlsm" 
 
'Arbeitsmappe speichern 
Workbooks("Kundendaten.xlsm").SaveAs Filename:="C:UserskaiweDesktopStammdaten.xlsm" 
 
'Neue Arbeitsmappe erstellen 
Dim NewBook As Workbook 
Set NewBook = Workbooks.Add 
 
'Bereitgestellt von VBATrainer: www.vbatrainer.de

End Sub