kann mir vielleicht jemand sagen wie man folgende zeilen umschreiben kann?
Range("AC22:AC" & lx).Select
ActiveSheet.Paste
Danke
Range("AB22:AB" & lx).Select
Selection.Copy
Range("AC22:AC" & lx).Select
ActiveSheet.Paste
folgendes schreiben:
Range("AB22:AB" & lx).Copy Destination:=Range("AC22:AC" & lx)
Gruß Ingolf