ich habe da noch ein Problem. Ich möchte, wenn ein Wert in der 4. Spalte negativ ist diese Zeile kopieren, und in die nächste freie Zeile einer anderen Liste einfügen. Kann mir da jemand helfen?
Vielen Dank. Gruß Thorsten
Sub test()
Dim c As Range
With Worksheets("Tabelle1")
For Each c In .Range("D1:D50")
If c < 0 Then
c.EntireRow.Copy _
Destination:=Worksheets("Tabelle2"). _
Cells(65536, 1).End(xlUp).Offset(1, 0)
End If
Next c
End With
End Sub
Sub test()
Dim c As Range
With Worksheets("ewiger Durchlaufplan")
For Each c In .Range("D1:D50")
If c < 0 Then
c.EntireRow.Copy _
Destination:=Worksheets("ewige Verspätungsliste"). _
Cells(65536, 1).End(xlUp).Offset(1, 0)
End If
Next c
End With
End Sub