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é
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen