Office: Letzte Zeile per Button kopieren und neu einfügen

Hallo zusammen,

ich möchte gerne am Ende eines xls-Sheets einen Button haben, mit dem man auf Knopfdruck die letzte Zeile kopieren und unter die letzte zeile einfügen kann. Der Button wandert dann auch mit nach unten.

Wenn man jetzt nochmals den Button drückt wird wieder die letzte (also die zuvor neu eingefügte) Zeile kopiert und unter diese eingefügt. Der Button wandert wieder mit nach unten.

Gibt es dafür eine Möglichkeit? Es sollte auch funktionieren, dass ich z.B. eine Zeile hinzufüge, die Datei speichere und zu einem späteren Zeitpunkt wieder per Button eine Zeile einfügen kann, ohne dass die zuletzt eingefügte Zeile beeinträchtigt ist. Eine Beispielmappe hängt anbei.

Vielen Dank,
Andreas

:)

 

Hallo Andreas,

habe Dir in der beigefügten Mappe mal ein Makro eingebaut, das die Aufgabe erledigen sollte...

Grüße
EarlFred

 

Hallo Andreas,

ich bin mir nicht ganz sicher, ob ich das richtig verstanden habe. Wenn man von der folgenden Tabelle

	B	C	D
3	Zeile 1	A	B
4	Zeile 2	A	B
5	Zeile 3	A	B

wie du sagst, die letzte Zeile unter die letzte Zeile verschiebt, dann sieht die Tabelle danach so aus:

	B	C	D
3	Zeile 1	A	B
4	Zeile 2	A	B
5
6	Zeile 3	A	B

Und nach dem nächsten Kopieren so:

	B	C	D
3	Zeile 1	A	B
4
5
6	Zeile 3	A	B
7	Zeile 2	A	B

Ein Makro, dass das erledigt, würde so aussehen:
Code:

 

Super, vielen Dank für die schnelle Hilfe. Die Lösung von EarlFred ist genau das, wonach ich gesucht habe!!!

Nur noch eine Sache: geht das ganze auch für mehrere Zeilen? In meinem Excel-Sheet ist es so, dass es 3 Zeilen gibt, die teilweise miteinander verbundene Zellen haben. Dieser Block aus 3 Zeilen soll dann jeweils neu kopiert und eingefügt werden, nicht nur die letzte Zeile. Geht das?

Danke, Andreas

 

Hallo Andreas,

danke für das Feedback.

Das Makro kann auch mehrere Zeilen einfügen und kopieren:

Code:

Ich würde aber nach Möglichkeit auf das Verbinden von Zellen verzichten, da dies in der Regel mehr Probleme hervorruft als löst *wink.gif*

Grüße
EarlFred

 

Super - vielen Dank für die schnelle Info! Genau danach habe ich gesucht. Vielen Dank EarlFred.

 

Hallo Andreas,

gerne doch *wink.gif*

Grüße
EarlFred

 

Ich weiß der Beitrag ist schon etwas älter, aber diese Lösung entspricht beinahe dem was ich suche. Vl kann mir hier noch jemand weiterhelfen.

Ich brauche per Knopfdruck die letzte Zeile nach unten kopiert. So werden alle Formeln mit nach unten genommen. Das habe ich schon mit diesem Code erreicht. Allerdings hätte ich gerne dass die neue Zeile leer ist (also neuer Platz für Eingaben)

Vielen Dank für die Hilfe!

 

mal auf die Schnelle.
Rows(lz + 1).Clear

 

Vielen Dank für die schnelle Antwort.

Ich habe nun anstelle von .Clear .Clearcontents geschrieben und nun funktioniert es. Es zeigt die Formel zwar nicht an aber sobald die notwendigen Zellen befüllt werden erscheint die richtige Berechnung in den vorgesehenen Spalten.

Danke für die Hilfe!