Arbeitsmappen richtig ansprechen
✓ Arbeitsmappen ansprechen: ThisWorkbook, ActiveWorkbook, Name und Index
✓ Pfad und Dateiname auslesen
✓ Arbeitsmappen schließen, öffnen, speichern und neu erstellen
✓ Arbeitsmappen in einer Variable speichern und ansprechen
✓ Pfad und Dateiname auslesen
✓ Arbeitsmappen schließen, öffnen, speichern und neu erstellen
✓ Arbeitsmappen in einer Variable speichern und ansprechen
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
