AW: Packliste und Shopliste 2.0
Hat funktioniert. Vielen Dank!
Hat funktioniert. Vielen Dank!
Sub test() For i = 1 To Cells(Rows.Count, 8).End(xlUp).Row If Cells(i, 8).Value = "x" Then Rows(i).Copy Destination:=Sheets("Tabelle2").Cells(Sheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Row + 1, 1) End If Next End Sub
Kommentar