Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Daten aus anderer Datei kopieren

Daten aus anderer Datei kopieren
18.02.2016 18:12:40
Lutz
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

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Daten aus anderer Datei kopieren
18.02.2016 20:45:11
Michael
Hallo,
Dieser Code kopiert immer die neuesten Zeilen, ist aber "blind".
Der Pfad muss angepasst werden.
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

Anzeige
AW: Daten aus anderer Datei kopieren
19.02.2016 16:53:55
Lutz
Hallo Michael,
danke für deine Hilfe
ich habe den Code ein "wenig" umgestellt.
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
leider bekomme ich bei der dick markierten Zeile ein "Laufzeitfehler 1004"
was mache ich falsch?
danke Lutz

Anzeige
AW: Daten aus anderer Datei kopieren
20.02.2016 11:21:41
Lutz
Ich konnte das Problem alleine Lösen
danke noch einmal für den Code
grüße Lutz
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige