Ich möchte gerne das nachstehende Makro so abändern, dass nicht fix die Zelle A1316 angesprungen wird, sondern nach „Selection.End(xlDown).Select“ die aktive Zelle noch um eine Zeile nach unten gesetzt wird (die Spalte bleibt gleich).
Selection.End(xlToRight).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Cut
Range(„A1“).Select
Selection.End(xlDown).Select
Range(„A1316“).Select
ActiveSheet.Paste
Range(„A1“).Select
Wer kann mir helfen?
DANKE - Peter
us Forum Tabellenkalkulation, mehr Informationen
Hallo Peter,
Die nächste untere Zelle anwählen mit:
ActiveCell.Offset(1, 0).Select
Mir ist jedoch nicht klar, was du eigentlich machen willst. Jedenfalls hat es für meinen Geschmack viele unnötige selects und es kommt sehr darauf an, wo der Cursor zu Beginn steht.
Zu deutsch: dein Makro gefällt mir nicht!
Wenn du beschreiben könntest, was du machen willst (also z.B. Bereich „Daten“ kopieren nach Bereich „Kopie“) schreibe ich dir gerne ein kurzes Makro.
Bitte um Klärung
Erich
Vielen Dank für die Hilfe.
Dieses Makro habe ich einfach aufgezeichnet - einmalig verwendet und wieder gelöscht.
Des halb lege ich HIER keinen besonderen Wert auf Programmierstil. Schade um die Zeit.
Aber vielen Dank für Deine Hilfe und das Angebot, die Sache doch etwas professioneller zu gestalten!
Danke - ich habe meine Aufgabe bereits mit Deiner Hilfe erledigt. „Anbei“ daher der verdiente Stern!
LG Peter
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]