Hi zusammen,
Ich habe 2 Sheets
1.
Name |
Date1 |
Date2 |
Test1 |
23.01.2017 |
17.09.2019 |
Test2 |
17.09.2019 |
11.08.2022 |
Test3 |
11.08.2022 |
23.01.2017 |
Test4 |
12.07.2016 |
07.05.2020 |
2.
Name |
Bez |
Date1 |
Date2 |
Test8 |
udb106.e1001_ms_1516 |
|
|
Test2 |
udb106.cocos_liste |
|
|
Test |
udb106.e1001_ms_1516 |
|
|
Test2 |
udb106.E0011_Hunter_Lead |
|
|
Jetzt würde ich gerne die 2 daten von Sheet1 nach holen, sodass es so aussieht:
Name |
Bez |
Date1 |
Date2 |
Test8 |
udb106.e1001_ms_1516 |
|
|
Test2 |
udb106.cocos_liste |
27.01.2022 |
11.08.2022 |
Test |
udb106.e1001_ms_1516 |
|
|
Test2 |
udb106.E0011_Hunter_Lead |
27.01.2022 |
11.08.2022 |
Ich hatte es wie folgt versucht:
Dim i As Integer
i = 2
'arrNamen = Sheet 1
'arrNamen2 = Sheet 2
For Each item In arrNamen2
If IsError(Application.Match(item, arrNamen, 0)) Then
Else
Cells(i, 3).Value = Worksheets("Sheet1").Cells(i, 2).Value
Cells(i, 4).Value = Worksheets("Sheet1").Cells(i, 3).Value
End If
i = i + 1
Next item
Allerdings bekomme ich dann nur die Daten kopiert und nicht die, die zu dem namen gehören:
Name |
Bez |
Date1 |
Date2 |
Test8 |
udb106.e1001_ms_1516 |
23.01.2017 |
17.09.2019 |
Test2 |
udb106.cocos_liste |
17.09.2019 |
11.08.2022 |
Test |
udb106.e1001_ms_1516 |
11.08.2022 |
23.01.2017 |
Test2 |
udb106.E0011_Hunter_Lead |
12.07.2016 |
07.05.2020 |
|