Daten aus anderer Datei kopieren

Hallo Excel_Profis,
ich habe ein kleines größeres Problem und leider keine Ahnung wie ich das anstellen soll.
Ich versuche es einmal zu beschreiben:
Ich habe 2 Dateien
1. Datei (Bericht.xlsm)
-Hier tragen alle Mitarbeiter ihre Dateien ein (alles untereinander wenn neuer Tag ist, dann sind 2 leere Zeilen dazwischen)
- es sind 3 Tabellenblätter, die alle Gleich aufgebaut sind
- In Spalte 1 steht immer ein Datum (ab Zeile 6)
2. Datei (Kontrolle.xlsm)
- die Datei ist genauso aufgebaut wie die andere Datei
- hat auch 3 Tabellenblätter
Jetzt mein Problem:
In der 2. Datei (Kontrolle) sollen per Button (oder beim öffnen der Datei weiß ich noch nicht genau) die Daten der anderen Datei (Bericht) kopiert werden,
und zwar immer 2 Zeilen unter dem letzten Eintrag der gemacht wurde.
Es soll nicht alles eingefügt werden, sondern nur das, was neu dazu gekommen ist, also vom Datum abhängig machen
Bsp.:
-wenn ich am 16. Das Makro aktiviere, dann sollen alle Daten von 15. In die Datei geschrieben werden (2 Zeilen nach dem letzten Eintrag.)
-falls Wochenende ist, dann muss halt vom Freitag die Dateien kopiert werden
-wenn ich Donnerstag das Makro aktivieren und das am Mittowch vergessen habe, dann müssen 2 Tage eingetragen werden
es soll IMMER der Bereich A:K kopiert werden (wobei A bei Zeile 6 erst anfängt)
Kann mir irgendjemand von den ganzen Excel-Fachleuten so ein Code zusammen basteln?
Ich habe überhaupt keine Ahnung
Danke
Lutz

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub lesenBericht() Dim wb as workbook Set wb = thisworkbook Chdir "c:\tmp" Workbooks.open curdir & "\bericht.xlsx" Wb.activate For i = 1 to wb.sheets.count LrK = workbooks("kontrolle.xlsx").sheets(i).cells(rows.count,1).end(xlup).row LrB = workbooks("bericht.xlsx").sheets(i).cells(rows.count,1).end(xlup).row Workbooks("bericht.xlsx").sheets(i).range("A" & LrK & "K" & LrB).copy destination:=workbooks(" _ Kontrolle.xlsx").sheets(i).range("A" & LrK) Next i Workbooks("bericht.xlsx").close false End Sub

Sub lesenBericht() Dim wb As Workbook Dim i As Integer, LrK As Integer, LrB As Integer Dim Quellverzeichnis As Variant Set wb = ThisWorkbook Quellverzeichnis = "E:\Dokumente\Berichte\Buch_1" Workbooks.Open Filename:=Quellverzeichnis & "\Buch_1.xlsm" wb.Activate For i = 1 To wb.Sheets.Count LrK = Workbooks("Kontrolle.xlsm").Sheets(i).Cells(Rows.Count, 1).End(xlUp).Row LrB = Workbooks("Buch_1.xlsm").Sheets(i).Cells(Rows.Count, 1).End(xlUp).Row Workbooks("Buch_1.xlsm").Sheets(i).Range("A" & LrK & "K" & LrB).Copy _ Destination:=Workbooks("Kontrolle.xlsm").Sheets(i).Range("A" & LrK) Next i Workbooks("Buch_1.xlsm").Close False End Sub

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

336 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Daten aus anderer Datei kopieren

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

336 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread