Gruppe
Allgemein
Problem
Es wird geprüft, ob in Spalte Q ein Wert enthalten ist. Wenn ja, wird die komplette Zeile in das Blatt Target übernommen.
StandardModule: Modul1
Sub CopyValues()
Dim lRow As Long, lRowL As Long, lRowT As Long
lRowL = Cells(Rows.Count, 17).End(xlUp).Row
lRowT = 1
For lRow = 2 To lRowL
If Not IsEmpty(Cells(lRow, 17)) Then
lRowT = lRowT + 1
Worksheets("Target").Rows(lRowT).Value = Rows(lRow).Value
End If
Next lRow
End Sub