insert range und xlShiftDown
08.02.2018 11:44:19
Burkhard
ich wollte mal fragen, wie ihr das folgende Problem möglichst effektiv angehen würdet.
Es soll ein Bereich (sagen wir mal: "A3:H23") von einer Tabelle in eine andere kopiert werden. Diese andere Tabelle hat aber schon Einträge, die sollen nach unten verschoben werden. Das Verzwickte ist, dass das Kopierte ("A3:H23") in der Zieltabelle ab Spalte C eingefügt werden soll UND das das, was dort in den Spalten A und B steht, ebenfalls (möglichst im selben Arbeitsschritt) ebenso weit nach unten verschoben werden soll. In diese leeren Zellen soll dann der angemeldete User und die Systemzeit eingetragen werden.
Sheets(strCopyFrom).Range("A3:H23").Copy
Sheets(strCopyTo).Range("C3").Insert xlShiftDown
Kann ich die Range "A3:H23" irgendwie so manipulieren, dass sie noch zwei (leere) Spalten vor A bekommt (und ich dann "A3:J23" ab "A3" einfügen kann)? Oder kann ich das Insert so steuern, dass A und B in der Zieltabelle "mitgenommen" (also auch nach unten verschoben) werden?
Vielen Dank schon mal für eure Ideen!
Grüße
Burkhard