Rainer
Sub Zeile_kopieren()
'Werte in Abhängigkeit der 3. Spalte in ein neues Arbeitsblatt
'hintereinander in Zeilen schreiben
Dim lngQRow As Long
Dim lngZRow As Long
Nochmal:
For lngQRow = 1 To Worksheets(1).Cells(Rows.Count, 3).End(xlUp).Row
If Worksheets(1).Cells(lngQRow, 3) = "x" Then
lngZRow = Worksheets(2).Cells(Rows.Count, 3).End(xlUp).Row + 1
Worksheets(1).Cells(lngQRow, 1).EntireRow.Cut Worksheets(2).Cells(lngZRow, 1).EntireRow
GoTo Nochmal
End If
Next
End Sub
Sub Zeile_kopieren()
'Werte in Abhängigkeit der 3. Spalte in ein neues Arbeitsblatt
'hintereinander in Zeilen schreiben
Dim lngQRow As Long
Dim lngZRow As Long
Nochmal:
For lngQRow = 1 To Worksheets(1).Cells(Rows.Count, 3).End(xlUp).Row
If Worksheets(1).Cells(lngQRow, 3) = "x" Then
lngZRow = Worksheets(2).Cells(Rows.Count, 3).End(xlUp).Row + 1
Worksheets(1).Cells(lngQRow, 1).EntireRow.Cut Worksheets(2).Cells(lngZRow, 1).EntireRow
GoTo Nochmal
End If
Next
End Sub