Kopieren und in erster freier Zeile einfügen
22.09.2006 09:39:11
Peter
habe eine Datei "Gesamt.xls". Hier möchte ich in Tabellenblatt 1 ("Daten")
Werte aus 2 verschiedenen Dateien (Bezirk1.xls,Bezirk2.xls)
jeweils aus Tabellenblatt("tabelle1") zusammenfassen.
Dabei sollen in ("Bezirk1.xls"/"tabelle1") alle Zeilen mit Werten kopiert und in "Gesamt.xls"/"Daten" eingefügt werden. Die nachfolgende Datei (Bezirk2)soll in der gleichen Art und Weise geöffnet/kopiert/geschlossen und übertragen werden.
Dabei sollen diese Werte in der 1. freien nachfolgenden Zeile eingefügt werden.
Mit u. g. Makro bekomme ich zwar die Daten kopiert, aber sie werden nicht an der richtigen Stelle eingefügt.
Wäre sehr dankbar, wenn mir jemand bei der Lösung behilflich sein könnte.
Besten Dank schon mal im Voraus und beste Grüße
Peter
Sub Makro_Test()
' Dim wksZiel As Worksheet
Dim IngLastRow As Long
Set wksZiel = Workbooks("Gesamt.xls").Worksheets("Daten")
Workbooks.Open Filename:= _
"Z:\F\Bezirk1.xls"
Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy
ActiveWindow.Close
Sheets("Ziel").Select
ActiveSheet.Paste
Workbooks.Open Filename:= _
"Z:\F\Bezirk2.xls"
Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy
ActiveWindow.Close
Sheets("Ziel").Select
IngLastRow = wksZiel.Cells(Rows.Count, "A").End(xlUp).Row + 1
ActiveSheet.Paste
End Sub
Anzeige