Hallo zusammen,

ich habe folgendes geschrieben:

Sub TestKopieren()
Dim objCell As Range
Dim i As Integer
Dim lRow As Long

Worksheets("Anfrage").Rows("5:5000").Delete

lRow = Worksheets("Erfassung").Cells(Rows.Count, 7).End(xlUp).Row
i = 5
For Each objCell In Worksheets("Erfassung").Range("G2:G" & lRow).Cells
  If objCell <> "" Then
    If objCell.Value = Worksheets("Anfrage").Cells(1, 3).Value Then
      Worksheets("Erfassung").Rows(objCell.Row).EntireRow.Copy
      Rows(i).PasteSpecial xlPasteValues, xlPasteSpecialOperationNone
     
      i = i + 1
    End If
  End If
Next

End Sub

Funktioniert soweit auch. Jetzt hätte ich gerne, daß nicht nur im Sheet "Anfrage" C1 mit der Spalte G in "Erfassung" abgeglichen wird, sondern, daß nur die Zeilen aus "Erfassung" kopiert werden, bei denen in der Spalte K ein 0 steht (die 0 ist ein Ergebnis einer if-Abfrage).

Kann mir jemand helfen?