Zeile Kopieren bei Bedingung

Sub ZeilenKopieren()

    Dim wsQuelle As Worksheet, wsZiel As Worksheet

    Dim r As Long, zielZeile As Long



    Set wsQuelle = Sheets("Eingaben") 'Anpassen

    Set wsZiel = Sheets("Kosten")   'Anpassen



    zielZeile = wsZiel.Cells(wsZiel.Rows.Count, "A").End(xlUp).Row + 1



    For r = 2 To wsQuelle.Cells(wsQuelle.Rows.Count, "A").End(xlUp).Row

        If wsQuelle.Cells(r, "L").Value > 0 Then 'Kriterium Zelle > 0

            wsQuelle.Rows(r).Copy wsZiel.Rows(zielZeile)

            zielZeile = zielZeile + 1

        End If

    Next r

End Sub