VBA gehe zur letzten Zelle mit dem Inhalt, nach rechts

[Tom2020]

Hallo
Eine Frage bzgl. der Selektieren von der letzten Zelle mit dem Inhalt
Von aktivierer Zelle springt zur LETZTEN Zelle nach Rechts mit dem Inhalt:
ActiveCell.End(xlToRight).Select
findet zwar die Zelle mit dem Inhalt, (was korrekt ist) und wenn man es nochmal ausführt, springt zu XFD Spalte/Zelle (was Falsch ist).
Ich wollte dass das Makro nur die letzte Zelle mit dem Inhalt findet und beim Anklicken nicht weiter springt.

Eine Idee?


danke

[Lutz Fricke]

Hallo Tom2020,

damit macht Dein Makro, was es machen soll und auch Strg+rechts macht.

Du könntest natürlich auch mit

Code:

Cells(ActiveCell.row, 1).End(xlToRight).Select

versuchen die bereits markierte Zelle nochmals zu markieren (geht aber schief, wenn Du weiter vorne in der Zeile eine leere Zelle hast).

Gruß,
Lutz

[snb]

Code:

application.goto cells(ActiveCell.row,columns.count).End(xlToLeft)

[Tom2020]

Danke an Euch Beide (Lutz & snb)

kann man den Code so erweitern

Code:

Cells(ActiveCell.row, 1).End(xlToRight).Select

dass man sagt, vom ActiveCell springe in AA spalte "nach Rechts" zur Zelle?
zB.

ActiveCell (in A20) springe zu Spalte AA, Zelle AA20
ActiveCell (in A21) springe zu Spalte AA, Zelle AA21
...
ActiveCell (in A200) springe zu Spalte AA, Zelle AA200
usw.

Gruss

[snb]

Code:

application.goto cells(ActiveCell.row,27)