Spalten copy, einfügen anhand Zuordnung
01.05.2020 21:24:36
Marian
Ich habe eine Aufgabe für alle Profis.
Ich würde gerne aus einer XLS Datei mit 19 Spalten, die Werte aus Spalten 4-6,8-14 und 19 kopieren und an einer bestimmten Stelle in einer bestehenden Datei einfügen. Ich nenne diese Datei mal Mappe1
Die Schwierigkeit: Die Zeilen sollen jeweils an eine verschiedene Stelle in einem Blatt in einer neuen Mappe (Mappe2) kopiert werden. Die Zuordnung erfolgt über identische Werte in Spalte 3 von Mappe1 und Spalte 5 von Mappe2.
Mappe2 hat noch weitere Zeilen, die nicht in Mappe1 vorkommen, eine Sortierung der Daten und dadurch eine Zuordnung ist deswegen also nicht möglich.
Das Makro soll also erkennen in welchen Zeilen die Werte in den Spalten 3 von Mappe1 mit den Werten in Spalte 5 von Mappe2 übereinstimmen und dann die Werte aus Spalte 4-6,8-14 und 19 von Mappe1 nebeneinander in der gleichen Zeile in Mappe2 mit einem Abstand von X zu Spalte 3 kopiert werden.
Wenn eine Zuordnung nicht möglich ist, oder die Zeile in Mappe1 leer ist, sollen die Werte nicht kopiert werden können.
Ist das überhaupt möglich?
Ein kleiner Anfang:
Sub Import ()
Dim QWB As Workbook, ZWB As Workbook
Workbooks.Open Filename:="C:\Mappe1.xlsx"
Set QWB = ThisWorkbook
Set ZWB = Workbooks("Mappe1.xls")
Dim QWS As Worksheet, ZWS As Worksheet
Set QWS = QWB.Worksheets("Tabelle1")
Set ZWS = ZWB.Worksheets("Daten")
QWS.Range("D:F", "I:O", "S:S").Cells.Copy 'Wenn Zelle einen Inhalt hat und zugeordnt werden _
kann
'Zuordnung aller Zeilen zu ZWS Spalte E fehlt von QWS Spalte C fehlt
'Werte nebeneinander kopieren fehlt
'Werte einfügen mit Abstand X zu Spalte ZWS.Spalte E fehlt (Sprich wenn Abstand X=2 dann einfü _
gen in richtiger Zeile in Spalte G)
Workbooks("Mappe1.xls").Close
End Sub
Hier fehlt noch einiges. Ich freue mich über jede Hilfe.
Viele Grüße
Marian