Zeilen verschioeben wenn...
27.10.2020 11:38:56
Luisa
folgendes Problem:
ich möchte gerne alle Zeilen in Spalte F in denen 'erledigt' eingetragen wird, aus Tabelle1 ausschneiden und in Tabelle 2 fortlaufend untereinander einfügen. Die leere Zeilen in Tabelle 1 sollen außerdem gelöscht werden.
Leider funktioniert mein Ansatz nicht, würde mich sehr über Hilfe freuen.
Sub zeilenkopieren()
Dim i As Long
With Sheets("Disskusion")
For i = .Cells(Rows.Count, "F").End(xlUp).Row To 2 Step -1
Debug.Print .Cells(i, "F")
'If .Cells(i, "F").Text Like "erledigt" Then
If StrComp(.Cells(i, "F"), "erledigt", 1) Then
.Rows(i).Copy Sheets("erledigt").Cells(Sheets("erledigt").Cells(Rows.Count, "F"). _
End(xlUp).Row + 1, "A")
Sheets(Disskusion).Activate
.Rows(i).Delete
End If
Next
End With
ActiveWorkbook.Save
End Sub