Office: Zeile kopieren und einfügen

Guten morgen Zusammen,

brauche mal wieder Eure Hilfe! ich kenne mich mit vba leider so gut wie garnicht aus. ich nehme meistens makros über die recorder auf, wenn gewisse sachen an immer den gleichen stellen kopieren und eingefügt werden soll. hier ist es aber so das ich ein makro brauche der folgendes tut wenn ich den anklicke

Zeile 4 im blatt tabelle 1 komplett markieren und kopieren und in der zeile die gerade aktiv ist bzw wo sich der cursor befindet oder von mir markiert wird, soll die zeile 4 eingefügt werden. die Daten die sich vor dem einfügen dort befinden sollen natürlich nicht überschrieben werden, sondern ne zeile nach unten wandern.

Wenn ich Zeile 4 kopiere und dabei zwei Zeilen markiere, dann soll das makro auch an der stelle zwei zeilen einfügen und auch jeweils zwei mal die zeile 4 einfügen. (Zeile 4 beinhaltet formeln)


Hatte folgende probiert, aber das ist zu starr

Code:

ICH DANKE EUCH!

:)

 

Hallo,

probiere es mal mit dieser Variante:
Code:

 

:-) so wie es aussieht, funktioniert es perfekt!!!!!!!!!!!!! DANKE

Verstehe ich das richtig das ich anhand der 5 festlegen kann wieviel maximal an zeilen eingefügt werden dürfen?

Const maxZeilen As Long = 5

 

Hallo,

danke für das Feedback *Smilie

Ja mit der 5 kannst du einstellen, wie viele Zeilen maximal eingefügt werden (ab 6 Zeilen wird eine Fehlermeldung angezeigt). Das habe ich als kleine Sicherheit eingebaut und du kannst es nach deinem Ermessen verändern.

VG
Santa

 

Super. Ein Problem habe ich nur noch.........
Ich will die Zeile 4 später ausblenden und die zellen schützen, damit hier keiner was kaputt macht. Wenn ich dies tue, dann fügt er die zeile zwar ein, aber blendet diese auch aus!
Ist das ne große Sache dies noch irgendwie zu berücksichtigen?
Also Zeile 4 soll geschützt werden und ausgeblendet werden.
Da wo die zeile 4 hinkopiert wird dürfen die zellen nicht geschützt und auch nicht ausgeblendet werden

 

Hallo,

durch die neue Anforderung habe ich den Code etwas angepasst und die funktionsweise hat sich leicht geändert:
Das Makro zählt jetzt nur noch die Anzahl der markierten Zeilen und fügt eine entsprechende Anzahl an Kopien von Zeile 4 ein. Die Anzahl der markierten Spalten wird komplett ignoriert.
Code:

 

Sorry das ich jetzt est anworte!!!!!!!!!!!! PERFEKT! Funkotniert genau so wie ich es wollte!!!!!!!!!!!

VIEEEEEEEELLLLLLLENNNNNNN DANK!