Hallo zusammen,
ich habe mit eine Schleife gebastelt, welche jede Zeile nach einem Datum durchsucht. Ist ein Datum gefunden, soll die ganze Zeile kopiert werden und in die nächst freie Zeile in Tabelle 2 eingefügt werden. Soweit klappt auch alles, nur wie schaffe ich es, dass erst ab Zeile 10 in Tabelle 2, die Zeilen eingefügt werden und ab da in die nächste freie Zeile?
Hoffe das Problem ist verständlich. Hier der Code
i = 1
Do While Not Cells(i, 1) = ""
If IsDate(Cells(i, 1)) Then Cells(i, 1).EntireRow.Copy Sheets("Tabelle2").Range("A" & Sheets("Tabelle2").Cells(Rows.Count, 2).End(xlUp).Row + 1)
i = i + 1
Loop
Bin um jeden Tipp dankbar.
|