Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

VBA gehe zur letzten Zelle mit dem Inhalt, nach rechts
#1
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
Antworten Top
#2
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
Antworten Top
#3
Code:
application.goto cells(ActiveCell.row,columns.count).End(xlToLeft)
Zum übersetzen von Excel Formeln:

http://dolf.trieschnigg.nl/excel/index.p...gids=en+de
Antworten Top
#4
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
Antworten Top
#5
Code:
application.goto cells(ActiveCell.row,27)
Zum übersetzen von Excel Formeln:

http://dolf.trieschnigg.nl/excel/index.p...gids=en+de
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste