daten kopieren von einem zur anderen Datei!

Question

hallo zusammen

ich habe alte personalblätter und musste jetzt neue erstellen. jetzt müssen wir alle alten daten vom personalblatt auf das neue übertragen.

mein anliegen ist jetzt ich muss einzehln jedes öffnen dann die neue vorlage öffnen und die allten daten übertragen in das neue personalblatt. zur info die beiden tabellenblätter alt und neu sind gleich!

gibts es ein makro was mir die sache vereinfacht!

neue vorlage personalblatt
http://www.brockiflawil.ch/vorlagen/vorlage_personal_stundenrapporte_3_0.xls

besten dank im vorraus

Answer 1

Haloo habe mir einen Code gebasstelt aber der stimmt noch gar nicht.

Er sollte nur einzehlne dateien öffnen und ich kann sagen welches und das zum einfügen sollte wie es kopiert wir eingefügt werden. Bitte um Hilfe.

Option Explicit

Sub Daten_kopieren()
Dim Pfad As String, Dateiname As String, iRow As Long
Application.ScreenUpdating = False
Pfad = "Z:\tmp\"
Dateiname = Dir(Pfad & "*.xls")
Do While Dateiname <> ""
Workbooks.Open Filename:=Pfad & Dateiname
iRow = ThisWorkbook.Sheets("Personalblatt").Range("C4").End(xlUp).Offset(0, 0).Row
Workbooks(Dateiname).Sheets("Personalblatt").Range("C4").Copy
ThisWorkbook.Sheets("Personalblatt").Cells(iRow, 1).PasteSpecial
Workbooks(Dateiname).Sheets("Personalblatt").Range("H4").Copy
ThisWorkbook.Sheets("Personalblatt").Cells(iRow, 2).PasteSpecial
Workbooks(Dateiname).Sheets("Personalblatt").Range("A11").Copy
ThisWorkbook.Sheets("Personalblatt").Cells(iRow, 3).PasteSpecial
Workbooks(Dateiname).Close
Dateiname = Dir()
Loop
End Sub