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?
|