Sub Bei_leer_kopieren()
Worksheets("Angebotsnummern").Columns("V:V").SpecialCells(xlCellTypeBlanks).EntireRow.Copy Destination:=Worksheets("monatlich").Range("A1")
End Sub
Jetzt müßte ich aber noch eine Bedingung hinzufügen: nur kopieren, wenn der Betrag in Spalte "P" größer Null ist. Ich hoffe, Ihr könnt mir wieder weiterhelfen. Danke schon mal im Voraus
Lg
Gorggi