Mit dem Code lösche ich per Button alle Zeilen wenn in Spalte B:B ein X steht.
Kann mir jemand behilflich sein, den Code so abändern, dass alle Zeilen die in Spalte B ein X stehen haben, zuerst in das TB "Archiv" kopiert und dann erst gelöscht werden?
Private Sub CommandButton1_Click()
Dim i As Integer
Application.ScreenUpdating = False
If MsgBox("Wirklich löschen?", vbYesNo + vbDefaultButton2 + vbCritical, "Sicherheitsabfrage") _
_
_
= vbYes Then
For i = Cells(Rows.Count, 2).End(xlUp).Row To 1 Step -1
If LCase(Cells(i, 2)) = "x" Then Rows(i).Delete
Next i
End If
Application.ScreenUpdating = True
End Sub
Danke schon mal
Gruß, Josef