Hallo zusammen
Ich möchte beim nachfolgenden Code nicht eine spezifische Zelle selektieren sondern unabhängig mach xldown eine Spalte weiter markieren. Könnt ihr mir da helfen?
Viele Grüsse
Marcel
Sheets("AB").Select
Range("AC7").Select
Range("A7").Select
ActiveSheet.Paste
Range("AM8:AP8").Select
Application.CutCopyMode = False
Range("AM8").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Range("AL8").Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Range("AG7").Select
Selection.End(xlToLeft).Select
Range("A8").Select
Selection.End(xlDown).Select
Selection.End(xlToRight).Select
Selection.End(xlToRight).Select
Selection.End(xlToRight).Select
Range("AM2846").Select ' Selektion sollte einfach nur eine Spalte weiter
Range(Selection, Selection.End(xlUp)).Select
ActiveSheet.Paste
Range("AM2845").Select
Selection.End(xlUp).Select
Range("AM7").Select