Fortlaufend Copy/Past mit CommButton
09.03.2020 16:25:39
Stefan
Ganz kurz vorweg, ich habe bis jetzt kein passendes Thema in diverse Foren gefunden und wende mich deshalb jetzt an euch, in der Hoffnung auf geballte Kompetenz :) Sollte sich dieses Thema doch irgendwo finden lassen kann gerne darauf verwiesen werden.
Nun zu meinem Anliegen. Ich möchte gern per Command Button der sich "Wiederholer" nennt, einen festgelegten Bereich "P2:T5" bei Klick auf den Button kopieren und immer in die zweit nächste leere Zeile von Spalte A bis E einfügen. Der Bereich "A1:E5" hat immer dieselben Informationen und bleibt deswegen auch immer gleich. Wichtig dabei ist, dass auch die Formeln mit kopiert und eingefügt werden. Es gibt nur ein Worksheet und das heißt "Test", alle Informationen befinden sich darin.
Wie ich Makros erstelle weiß ich, auch wie ich den Command Button zuweise, nachdem ich mir die Kopier-Funktion erstellt habe. Wo es dann aufhört ist, das kopierte immer in die zweit nächste leere Zeile zu schreiben.
Es sieht wie folgt aus, kopiert aber natürlich immer an dieselbe Stelle bzw. überschreibt nur.
Private Sub Wiederholer_Click()
Range("P2:T5").Select
Selection.Copy
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveSheet.Paste
Range("A7").Select
End Sub
Ich bitte um eure Hilfe. Vielen Dank im Voraus.
LG
Stefan