Makro Kopieren_Einfügen
15.11.2020 20:06:30
Pierangelo
ich glaube für die experten ist dies eine kleine Aufgabe:
Ich habe folgendes Makro:
Sub Test()
' Test Makro
Range("IH6:II59").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=-220
Range("IH8:II8").Select
ActiveSheet.Paste
Range("IH6:II7").Select
Selection.ClearContents
End Sub
Ziel ist diese Aufgabe unabhängig von der Zelle auszuführen.
In der Zelle in der ich mich befinden, sollte das Makro die aktive Spalte und die nächste von Zeile 6-59 selektieren, kopieren ab Zeile 8 einfügen und die Daten von der Zeile 6 und 7 löschen. Dies erfolgt immer in 2 Spalten.
Danke für Eure hilfe