Geschlossene Arbeitsmappe

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

 

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

Teile diesen Beitrag

Empfehlungen für dich

VBATrainer Excel VBA Coaching - Lagerverwaltung

Sichere dir jetzt meine kostenlose Lagerverwaltungs-Anwendung