Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon brocki vom 10.01.2021, 09:26 Options
daten kopieren von einem zur anderen Datei!
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
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
Antwort 1 von brocki vom 10.01.2021, 09:46 Options
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
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
Ähnliche Themen
Daten vergleichen und kopieren
baby 01.10.2007 - 18 Hits - 2 Antworten
Datei über Makro öffnen & Werte aus geöffneter Datei kopieren
Mini249 19.11.2007 - 209 Hits - 2 Antworten
Einige Daten von einer Tabelle in andere automatisch kopieren - WIE?
isidar 18.01.2008 - 18 Hits - 13 Antworten
Daten aus 20 excel dateien in eine excel datei kopieren mit einem vba script
Syrell 11.08.2008 - 347 Hits - 5 Antworten
Daten kopieren, die einen *Z*en enthalten mit Makro
Suki 05.12.2008 - 4 Hits - 7 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
