Hallo,
mit nachfolgenden Code kann ich eine ausgewählte Zeile in ein anderes Tabellenblatt nach dem Letzten Datensatz verschieben.
Dim TB1, TB2, TB3, i&, LR1&, LR2&, LR3&
Set TB1 = Sheets("Aufstellung")
Set TB2 = Sheets("Lager BSK")
LR1 = TB1.Cells.SpecialCells(xlCellTypeLastCell).Row 'Letzte Zeile
For i = LR1 To 1 Step -1
If TB1.Cells(i, 69).Value = "Entfällt" Then
LR2 = TB2.Cells.SpecialCells(xlCellTypeLastCell).Row 'Letzte Zeile
TB1.Rows(i).Copy TB2.Rows(LR2 + 1)
TB2.Cells(LR2 + 1, 171) = TB1.Cells(i, 69)
TB2.Cells(LR2 + 1, 173) = Format(Now, "DD.MM.YYYY")
TB2.Cells(LR2 + 1, 174) = TB1.Cells(2, 23)
TB2.Cells(LR2 + 1, 175) = TB1.Cells(i, 76)
TB2.Cells(LR2 + 1, 176) = TB1.Cells(i, 77)
TB2.Cells(LR2 + 1, 177) = TB1.Cells(i, 78)
TB1.Rows(i).Delete
End If
Next
Eigentlich müsste es aber so sein, es sollte die letzte beschrieben Zeile gefunden werden und der Datensatz wird immer darüber eingefügt.
Dabei wird die gefunden Zeile nach unten verschoben.
Kann mir wer Helfen ich könnte schon LR2 + 1 auf LR2 - 1 ändern aber dann überschreibt er den vorletzten Datensatz.
Hat jemand eine Idee?