VBA - For Next Schleife funktioniert nur im Debug
04.06.2019 12:23:23
Arnd-Olav
ich möchte von einem Sheet alle Zeilen auf ein anders Sheet untereinander kopieren, wenn in einer bestimmten Zelle der Zeile "Send RFQ" steht.
Er macht dieses aber immer nur für die ersten beiden Zeieln auf dem Sheet, die er mit dieser Bedingung findet.
Ich find den Fehler nicht :(
Hat jemand eione Idee?
WS_UI_DEFAULT ist das Sheet von dem aus kopiert wird, das Ziel-Sheet heißt RFQ2
With WS_UI_DEFAULT
For r = 1 To Cells(Rows.Count, 16).End(xlUp).Row
If Cells(r, 5) = "Send RFQ" Then
With Workbooks("BS_TOOL_UI.xlsm").Worksheets("UI")
.Range(.Cells(r, 11), .Cells(r, 18)).Copy
End With
z = z + 1
With Workbooks("BS_TOOL_UI.xlsm").Worksheets("RFQ2")
.Range(.Cells(59 + z, 2).Address).PasteSpecial Paste:=xlValues
End With
Else
End If
Next
End With