27.03.2020, 08:10
Guten Tag,
ich habe eine Exceldatei mit zwwei Tabellenblättern, bei der, wenn in Tabelle1 Spalte M das Datum gleich dem Tagesdatum -1 ist, die entsprechende Zeile in Tabelle2 kopiert und aus Tabelle1 gelöscht werden soll. In Tabelle1 sollen dann die restlichen Zeilen "nachrutschen", es sollen also keine Leerzeichen entstehen. In Tabelle2 sollen die kopierten Zeilen fortlaufend unetreinander stehen.
Geschafft habe ich nur, dass die Zeilen aus Tabelle1 in Tabelle2 verschoben werden, aber in Tabelle1 verbleiben. Weiter komme ich nicht, wobei ich mich auch eher als Laie bezeichnen würde.
Würde mich über eine Lösung sehr freuen.
Grüße, Uli
Hier mein Code:
ich habe eine Exceldatei mit zwwei Tabellenblättern, bei der, wenn in Tabelle1 Spalte M das Datum gleich dem Tagesdatum -1 ist, die entsprechende Zeile in Tabelle2 kopiert und aus Tabelle1 gelöscht werden soll. In Tabelle1 sollen dann die restlichen Zeilen "nachrutschen", es sollen also keine Leerzeichen entstehen. In Tabelle2 sollen die kopierten Zeilen fortlaufend unetreinander stehen.
Geschafft habe ich nur, dass die Zeilen aus Tabelle1 in Tabelle2 verschoben werden, aber in Tabelle1 verbleiben. Weiter komme ich nicht, wobei ich mich auch eher als Laie bezeichnen würde.
Würde mich über eine Lösung sehr freuen.
Grüße, Uli
Hier mein Code:
Code:
Sub Uli()
Sheets("Tabelle2").Unprotect
For i = 1 To Cells(Rows.Count, 13).End(xlUp).Row
If Cells(i, 13) < Date - 1 Then
ls = Cells(i, 256).End(xlToLeft).Column
lz = Sheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Row + 1
Range(Cells(i, 1), Cells(i, ls)).Copy Sheets("Tabelle2").Cells(lz, 1)
End If
Next i
Sheets("Tabelle2").Protect
End Sub