Hallo SN User,
ich
suche ein Makro, mit dem ich an das Ende einer Liste springen kann.
Ausgangslage
Ich habe eine Spalte (A), in die Einträge jeweils nur für den aktuellen Anlass eingetragen werden. Nachdem das Thema erledigt ist, sollen diese Einträge in einer anderen Spalte (C) "archiviert" werden, in dem sie an das Ende der in Spalte C bereits vorhandenen Einträge gefügt werden.
Beispiel
Spalte .A |
Spalte B
Eintrag 4 | Eintrag 1
Eintrag 5 | Eintrag 2
................ | Eintrag 3
Die Anzahl der Einträge pro Durchgang kann unterschiedlich sein. In diesem Beispiel wurden bereits die Einträge 1-3 archiviert. Nun möchte ich die Einträge 4+5 aus Spalte A an das Ende der Spalte C anfügen.
Problem
Ich zeichne ein Makro auf:
1. Klick auf Zelle A1
2. Einträge 4+5 mit Strg+Shift+CurserDowndann markieren
3. Einträge mit Strg+x ausschneiden
4. Klick auf Zelle C1
5. Mit Strg+CurserDown auf den letzten Eintrag (Nr. 3) der Liste springen
6. Mit CurserDown in die Zelle unterhalb der Liste in Spalte C springen
7. Mit Strg+v den Inhalt einfügen
Der
Code des Makros sieht dann wie folgt aus:
Sub Macro13()
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Cut
Range("C1").Select
Selection.End(xlDown).Select
Range("C4").Select
ActiveSheet.Paste
End Sub
vermutete Problemursache
Aus meiner Sicht rührt das Problem aus der Zeile
Range("C4").Select im Code, weil dort ein fester Zellbezug auf Zelle C4 enthalten ist, wodurch auch bei zukünftigen Durchgängen die neuen Einträge ab C4 eingefügt werden.
Frage
Wie kann ich diesen festen Zellbezug umgehen und einfach ans Ende der Liste gelangen?
Danke vorab für Eure Vorschläge.
Gruß, Phlip