letzte eingefügte Zeile komplet markieren
14.09.2005 11:24:06
Sören
ich habe dieses Script:
Sub Makro1()
ActiveCell.Select
Selection.EntireRow.Copy
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.Insert Shift:=xlDown
ActiveCell.EntireRow.PasteSpecial
End Sub
und möchte das die letzte eingefügte Zeile komplet markieren wird.
Wie geht das?
Viele Grüße Sören
Anzeige
