Hi,
ich hab mir einen Code geschrieben, der 2 Excel Mappen nach gleichen Werten durchsucht.
Bei der ersten Excel Arbeitsmappe stehen die Werte in Spalte A und bei der zweiten Mappe in der Spalte B.
Von allen Werten, die in beiden Mappen vorkommen soll die gesamte Zeile kopiert werden und in der aktiven Arbeitsmappe "WorkOn.xlsm" eingefügt werden.
Wenn ich meinen Code ausführe passiert leider nichts, es kopiert mir die Zeile leider nicht und es kommt auch kein Fehler.
Das finden der gleichen Werte funktioniert aber definitiv, habe das mit dem Code: Workbooks("WorkOn.xlsm").Worksheets(1).Cells(Rows.Count, "A").End(xlUp).Offset(1).Value = xlSheet2.Cells(a, 2).Value
in der if abfrage schon getestet.
Könnte bitte jemand mal drüber gucken?
Was mach ich falsch?
Danke euch vielmals.
Habe den "interessanten" Teil Fett markiert:
Set xlBook = xlApp.Workbooks.Open("C:\MeinPfad1\test.xlsx")
Set xlSheet = xlBook.Worksheets(1)
Dim letzteZeile As Long
letzteZeile = Cells(Rows.Count, 1).End(xlUp).Row
'--------------------------------------------------------------------------------
Set xlApp2 = GetObject(, "Excel.Application")
If xlApp2 Is Nothing Then
Set xlApp2 = CreateObject("Excel.Application")
End If
Set xlBook2 = xlApp2.Workbooks.Open("C:MeinPfad2\test2.xlsx")
Set xlSheet2 = xlBook2.Worksheets(1)
Dim letzteZeile2 As Long
letzteZeile2 = Cells(Rows.Count, 1).End(xlUp).Row
'--------------------------------------------------------------------------------
Dim y, a As Integer
Dim letzteZeile2 As Long
letzteZeile2 = Cells(Rows.Count, 2).End(xlUp).Row
For y = 1 To letzteZeile
For a = 1 To letzteZeile2
If xlSheet.Cells(y, 1).Value = xlSheet2.Cells(a, 2).Value Then
xlSheet2.Rows(a).Copy Destination:=Workbooks("WorkOn.xlsm").Worksheets(1).Rows(Rows.Count)
End If
Next
Next