in meiner Verzweifelung wende ich mich mal wieder an euch. Ich habe einen Makro geschrieben, der aus Sheet0 die Zeilen kopiert in denen in Spalte 12 das Datum größer ist als heute.
Funktioniert alles wunderbar. Beim Einfügen im neuen Sheet1 sollen die ersten 15 Zeilen freigelassen werden. (die Zeilen sind nicht alle mit Daten befüllt!)
Wie kann ich die ersten 15 Zeilen freilassen?
Tausend Dank im Voraus
Daniel
LastRow = Worksheets("Sheet0").Cells(Worksheets("Sheet0").Rows.Count, "A").End(xlUp).Row
For Row = 2 To LastRow
If Worksheets("Sheet0").Cells(Row, 12).Value > Date Then
Worksheets("Sheet0").Cells(Row, 12).EntireRow.Copy
Worksheets("Sheet1").Activate
nextrow = Range("a" & LastRow).End(xlUp).Row + 1
Range(nextrow, 1).Select
ActiveSheet.Paste
End If
Next Row