Hallo zusammen,
ich bin leider kompletter Anfänger was VBA Programmierung angeht und komme bei einem Problem auf keine funktionierende Lösung.
Das Makro soll aus verschieden Quellmappen (hier im Beispiel 2 Stk.) Daten auslesen ohne diese Mappen zu öffnen/offen zu haben und diese Daten dann in eine Zielmappe mit je einer Leerzeile Abstand untereinander hineinzukopieren. Da sich die Anzahl der Zeilen in jeder Zielmappe ändern kann, ist es nicht möglich einen fixen Zeilenwert anzugeben an dem die Daten eingefügt werden sollen, sondern er sollte sich dynamisch an die schon über ihm eingefügten Quelldaten ausrichten.
Hier ist mal mein versuchter Code:
Sub GetMeasurementDataFromClosedBook()
'Test Quellmappe1
Dim src As Workbook
Dim lr As Long
Set src = Workbooks.Open("C:\Users\YL\Desktop\Testumgebung\Quellmappe1.xlsx", True, True)
lr = Range("A" & Rows.Count).End(xlUp).Row
Range("A1:N" & lr).Copy
ThisWorkbook.Activate
Worksheets("GesamtData").Range("A1:N" & lr).Formula = src.Worksheets("Tabelle1").Range("A1:N" & lr).Formula
Application.CutCopyMode = False
src.Close (False)
'Test Quellmappe2
Dim src1 As Workbook
Dim lr1 As Long
Set src1 = Workbooks.Open("C:\Users\YL\Desktop\Testumgebung\Quellmappe2.xlsx", True, True)
lr1 = Range("A" & Rows.Count).End(xlUp).Row
Range("A1:D" & lr1).Copy
ThisWorkbook.Activate
Worksheets("GesamtData").Range("lr + 1 :D" & lr1).Formula = src1.Worksheets("Tabelle1").Range("A1:D" & lr1).Formula
Application.CutCopyMode = False
src.Close (False)
src1.Close (False)
End Sub
Hoffe, ich hab mein Problem anschaulich verdeutlichen können und wäre über jede Hilfe mehr als dankbar!:)
Gruß
|