Danke im Voraus
André
dies hier springt in die zell unterhalb des letzten Eintrags.
Wieso unter dem letzten Eintrag 2 Leerzeilen einfügen? Die sind doch sowieso frei?
Sub Letzte_Zelle()
Application.ScreenUpdating = False
ActiveCell.SpecialCells(xlLastCell).Select
ActiveCell.Offset(1, 0).Select
End Sub
Werner
wenn Du den letzten Eintrag in einer Tabelle suchst, sollten die beiden darunterliegenden Zellen doch leer sein, oder?
Trotzdem, ich hoffe das ist, was Du suchst:
Sub test()
Columns("F:F").Select
Selection.End(xlDown).Select
Selection.Offset(1, 0).Select
Selection.EntireRow.Insert
Selection.EntireRow.Insert
End Sub
Glückauf! Alex
André