Makro: Cursor unterhalb v. Eingaben positionieren
tuska
ich habe mir mit dem Macrorecorder folgendes Makro aufgezeichnet
Sub auto_open()
Sheets("Tabelle1").Select
Range("A2").Select
Selection.End(xlDown).Select
Range("A5").Select
End Sub
Die Spalte A ist als Datum formatiert. In Zellen A2:A4 wurde jeweils das Datum 06.07.2010 eingegeben. A1: Zellüberschrift "Datum".
Ich möchte erreichen, daß der Cursor nach Ausführen des Makros in Spalte A immer um eine Zelle unterhalb des letzten Datums positioniert wird. Weiteres Beispiel: Die Spalte A mit Datum ist bis zur Zelle A20 befüllt, dann sollte das Makro bewirken, daß der Cursor in Zelle A21 positioniert wird, sodaß man mit Strg+. ein Datum in die leere Zelle eingeben kann. In obigem Makro wird der Cursor immer in Zelle A5 positioniert. Gibt es da vielleicht eine Lösung? Vielleicht könnte man anstatt "Range("A5").Select" ein ENTER nachsenden, damit der Cursor um eine Zeile nach unten bewegt wird. Dzt. habe ich "Range("A5").Select" bis zu einer evtl. Lösung vorläufig rausgelöscht und der Cursor bleibt auf dem letzten vorhandenen Datum stehen.
Danke im voraus für Eure Bemühungen.
Grüße Karl
Anzeige