Schleife kopiert selbe Zeile mehrmals
23.04.2018 14:50:56
Jan
in einer Schleife vergleiche ich für jede Zeile einen Wert von einer Arbeitsmappe mit dem Wert einer anderen Arbeitsmappe.
Wenn dieser Wert NICHT in beiden vorkommt UND in Spalte P (16) das Wort "xy" vorkommt, soll die gesamte Zeile kopiert werden und in die Arbeitsmappe "MeineAM.xlsm" eingefügt werden.
Ich kann den folgenden Code ausführen, allerdings wird jede Zeile nicht nur einmal kopiert und eingefügt, sondern sehr viel öfter.
Ich gehe davon aus dass der Fehler im Fett markierten Teil liegt. Ist die Suche nach dem Wort "xy" vielleicht nicht richtig, habt ihr eine Ahnung?
Danke.
Es handelt sich hierbei nur um einen Ausschnitt. Einige Deklarationen sind hier also nicht zu sehen.
For y = 4 To letzteZeile
For a = 6 To letzteZeile2
Dim Result As Range
Set Result = xlSheet.Cells(y, 16).Find(what:="xy")
If xlSheet.Cells(y, 1).Value xlSheet2.Cells(a, 2).Value And Not Result Is Nothing Then
Dim letzte As Long
letzte = Workbooks("MeineAM.xlsm").Worksheets(1).Cells(Rows.Count, 2).End(xlUp).Row
letzte = letzte + 1
Application.WindowState = xlNormal
xlSheet.Rows(y).Copy
With Workbooks("MeineAM.xlsm").Worksheets(1).Rows(letzte & ":" & letzte)
.PasteSpecial xlPasteValuesAndNumberFormats
.PasteSpecial xlPasteFormats
.PasteSpecial xlPasteColumnWidths
End With
End If
Next
Next