Unterste Zelle im Aktiven Bereich

[DK84]

Hallo, kann mir jemand sagen warum das nicht funktioniert?

Sub Erweiterung()
Application.OnKey "+{TAB}"
End Sub


Z.B. Zelle 1A bis 5A ist ausgewählt 
und ich möchte das die aktive erste angeklickte Zelle in die unterste aktive Zelle wandert.
Es funktioniert wenn ich Zellen auswähle und dann Shift+Tab drücke.

   

[Sigi.21]

Hallo,

versuch's mal so:

Sub Erweiterung1()
        Selection(Selection.Count).Activate
End Sub

Sub Erweiterung2()
        Selection(Selection.Count).Select
End Sub


Sigi

[DK84]

Hallo, das funktionier klasse. Genau das habe ich gesucht!

Vielen Dank dafür!!!