Selektierrahmen nach Copy
05.07.2002 05:50:35
Manfred F
Mit diesem Makro kopiere ich die letzte nicht leere Zeile, springe eine weiter und füge wieder ein. Wie läßt man nach dem Einfügen den Selektierrahmen wieder verschwinden ?
danke
Sheets("Tabelle1").Select
Range("A3").Select
ActiveCell.CurrentRegion.Rows(ActiveCell.CurrentRegion.Rows.Count).Select
Selection.Copy
Range("A3").Select
Selection.End(xlDown).Offset(1, 0).Select
Selection.Insert