Daten Kopieren

Daten zwischen offenen Arbeitsmappen kopieren

✓ Makro einem Button zuweisen
✓ Erste freie Zelle / letzte befüllte Zelle finden mit Rows.Count, End(XlUp) und Offset
✓ Code über mehrere Zeilen schreiben mit dem Unterstrich
✓ Zell-Methoden: Kopieren und Einfügen mit der Copy-Methode
✓ Range ohne Header finden (mit Intersect)
✓ Direktfenster
✓ Zellbereiche ansprechen (Range, UsedRange)
✓ Tabellenblätter ansprechen (Index)
✓ Arbeitsmappen ansprechen (ThisWorkbook und Name)
✓ Variablen und Datentypen (Set-Anweisung)

 

Code

Sub Datei_kopieren() 
 
Dim rng As Range 
 
'Range der Quelldatei definieren 
Set rng = Workbooks("February.xlsx").Worksheets(1).UsedRange 
 
'Daten ohne Header kopieren und einfügen 
Intersect(rng, rng.Offset(1)).Copy _ 
ThisWorkbook.Worksheets(1).Range("A" & ThisWorkbook.Worksheets(1).Rows.Count).End(xlUp).Offset(1) 
 
'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