Hi,
ich will ab einer bestimmten Zeile abwärts in einer best. Spalte alles ausschneiden und dann eine Zeile drüber wieder einsetzen lassen.
Range(Cells(quellzeile + 1, 35).Cells(66, 35)).Select // Hier macht er probleme
Selection.Cut
Range(Cells(quellzeile, 35)).Select
ActiveSheet.Paste
Er soll ab der Quellzeile+1 bis 66 alles markieren& ausschneiden und dann in die Quellzeile eintragen.
z. B. von 12 bis 66 ausschneiden und in die 11 bis 65 eintragen.
Danke