Ja, das stimmt, ich habe eine ältere Version des Codes hochgeladen, mein Code ist tatsächlich:
...
Table = ws.Range("A1:P" & nRows)
For i = 1 To nRows
If Table(i, 2) = "01.09.2020" Or Table(i, 2) = "01.10.2020" Or Table(i, 2) = "01.11.2020" Then
Last_row = Worksheets(s_Main).Cells(Rows.Count, 1).End(xlUp).Row
ws.Range("A" & i & ":P" & i).Copy Worksheets(s_Main).Range("A" & Last_row)(2)
End If
Next i
End If
Change_ws:
Next ws
End Sub
Leider verstehe ich immer noch nicht, wie ich genau meinen Code mithilfe ihres Beispiels ersetzen sollte? Ich möchte, dass es immer die zukünftigen drei Monate sind. Ist es beispielsweise Januar, möchte ich, dass die Zeilen mit Januar, Februar und März kopiert werden.
Vielen Dank für die Hilfe!
Leider verstehe ich immer noch nicht, wie ich genau meinen Code mithilfe ihres Beispiels ersetzen sollte?
|