Daten zwischen geschlossenen Arbeitsmappen kopieren
✓ Dateipfad, Dateiort und Dateiname manuell auslesen
✓ Dir-Funktion
✓ Zell-Methoden: Kopieren und Einfügen mit der Copy-Methode
✓ Direktfenster
✓ Zellbereich ansprechen
✓ Tabellenblätter ansprechen (Index)
✓ Arbeitsmappen ansprechen, in Variablen speichern, öffnen und schließen
✓ Variablen und Datentypen (Set-Anweisung)
✓ Code schrittweise ausführen (F8)
✓ Makro einem Button zuweisen
✓ If-Anweisung
✓ Vervollständigung von vorgeschlagenem Code
✓ Dir-Funktion
✓ Zell-Methoden: Kopieren und Einfügen mit der Copy-Methode
✓ Direktfenster
✓ Zellbereich ansprechen
✓ Tabellenblätter ansprechen (Index)
✓ Arbeitsmappen ansprechen, in Variablen speichern, öffnen und schließen
✓ Variablen und Datentypen (Set-Anweisung)
✓ Code schrittweise ausführen (F8)
✓ Makro einem Button zuweisen
✓ If-Anweisung
✓ Vervollständigung von vorgeschlagenem Code
Code
Sub Geschlossene_Arbeitsmappe()
Dim sPfad As String
Dim wbQuelle As Workbook
'ScreenUpdating und PopUps deaktivieren
Application.ScreenUpdating = False
Application.DisplayAlerts = False
'Dateipfad der Quelldatei
sPfad = "C:UserskaiweDesktopFebruary.xlsx"
'Prüfen, ob Datei existiert
If Dir(sPfad) <> "" Then
'Arbeitsmappe öffnen
Set wbQuelle = Workbooks.Open(sPfad)
'Daten kopieren und einfügen
wbQuelle.Worksheets(1).Range("A2:E7").Copy ThisWorkbook.Worksheets(1).Range("A8")
'Arbeitsmappe schließen
wbQuelle.Close SaveChanges:=False
End If
'ScreenUpdating und PopUps aktivieren
Application.ScreenUpdating = True
Application.DisplayAlerts = True
'Bereitgestellt von VBATrainer: www.vbatrainer.de
End Sub
