gestern habe ich mein code gepostet und wollte wissen was ich besser machen kann.als antwort habe ich " verzichte auf select " bekommen.ist das alles ?
ich danke euch im voraus fuer eure interesse.
marc :-)
Sub LetzteZelleAktivieren_FolmelnCopy()
Sheets("DatBank.193").Activate
Range("L65536").End(xlUp).Offset(1, 0).Select
ActiveCell.End(xlUp).Offset(0, 0).Select
Selection.Copy
ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlFormulas
Application.CutCopyMode = False
ActiveCell.Offset(0, 2).Activate
ActiveCell.Offset(-1, 0).Select
Selection.Copy
ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlFormulas
Application.CutCopyMode = False
ActiveCell.Offset(0, 2).Select
ActiveCell.Offset(-1, 0).Select
Selection.Copy
ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlFormulas
Application.CutCopyMode = False
ActiveCell.Offset(0, 2).Select
ActiveCell.Offset(-1, 0).Select
Selection.Copy
ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlFormulas
Application.CutCopyMode = False
ActiveCell.Offset(0, -7).Activate
End Sub