VBA Bestimmte Zeilen aus n Mappen copy&pasten
08.10.2019 12:40:15
Dome
In einer Quelldatei befinden sich mehrere Mappen (mehr als jene 2 im Code unten) mit Daten in den Zeilen 6, 9, 10, etc., welche ich in der Zieldatei in Tabelle1 einfügen möchte, und zwar transponiert und untereinander eingefügt.
Folgenden Code habe ich mir aufgezeichnet:
Sub copy_transform_aggregate()
Sheets("Tabelle1").Select
Range("A1").Select
Workbooks.Open Filename:= _
"...\Quelldatei.xlsx"
Sheets("Mappe1").Select
Range("6:6,9:9,10:10,12:12,13:13,14:14,15:15,28:28,29:29,30:30,31:31").Select
Selection.Copy
Windows("Zieldatei.xlsm").Activate
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Windows("Quelldatei.xlsx").Activate
Sheets("Mappe2").Select
Range("6:6,9:9,10:10,12:12,13:13,14:14,15:15,28:28,29:29,30:30,31:31").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Zieldatei.xlsm").Activate
Range("A12").Select '1. Zelle unterhalb der eingefügten Daten
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Windows("Quelldatei.xlsx").Activate
ActiveWindow.Close
End Sub
Vorab bereits herzlichen Dank für Eure Ideen.
LG
Dome