wenn X in Sp. B erst kopieren dann erst löschen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: wenn X in Sp. B erst kopieren dann erst löschen
von: Josef_T
Geschrieben am: 14.09.2015 15:54:47

Hallo Zusammen,
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

Bild

Betrifft: AW: wenn X in Sp. B erst kopieren dann erst löschen
von: Beverly
Geschrieben am: 15.09.2015 08:11:50
Hi Josef,
versuche es mal so (ungetestet):

Private Sub CommandButton1_Click()
   Dim i As Long
   Dim lngErste As Long
   With Worksheets("Archiv")
    lngErste = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, _
        1).End(xlUp).Row, .Rows.Count) + 1
    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).Copy .Cells(lngErste, 1)
            lngErste = lngErste + 1
            Rows(i).Delete
        End If
     Next i
    End If
   End With
   Application.ScreenUpdating = True
End Sub



Bild

Betrifft: AW: Danke Karin
von: Josef_T
Geschrieben am: 15.09.2015 11:07:42
Guten Morgen Karin,
funktioniert perfekt!
Danke sehr für Deine Hilfe bzw. Lösung.
Gruß
Josef

 Bild

Beiträge aus den Excel-Beispielen zum Thema "wenn X in Sp. B erst kopieren dann erst löschen"