rows
Frank
habe einkleines problem bekomme die meldung Type unverträglich
Dim bas As Integer
Dim cas As Integer
Sheets("LV").Select
Rows("1:9").Select
Selection.Copy
Sheets("Angebot").Select
bas = Range("d1").End(xlDown).Row + 1
cas = 10
Rows("bas:cas").Select
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
MfG
Frank