Hy,
wieso bekomm ich bei dem Code immer Fehlermeldung nach dem alles so ausgeführt wurde wie ich es brauche...
'Paste & Copy
Dim wr As Worksheet
For Each wr In Worksheets
wr.Range("A63:F63").Select
wr.Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
wr.Range("F3").Select
wr.Paste
wr.Range("A63:G63").Select
wr.Range(Selection, Selection.End(xlDown)).Select
Selection.Delete
Application.CutCopyMode = False
Next
|