ich hab da ein kleines problem. ich wollte von einer tabelle werte in die nächste übertragen lassen in einem bestimmten bereich.
also tab3 der bereich a2:d50 wird mit werten gefüllt und die sollen in tab4 ab zelle a30 eingefügt werden zwischen einen bestehenden text, sprich die zeilen die unter a30 noch stehen sollen nach unten verschoben werden. macht excel jetzt endlich auch nur fügt er mir die leeren zeilen mit ein,d.h. 48 zeilen werden eingefügt und das soll es nicht tun.
wie muss ich denn diese hürde überwinden?? mit einer schleife?
bin jetzt nicht so der experte!
so sieht mein code aus:
Sub kopieren()
Set cpy = Worksheets("Tabelle3").Range("A2:D50")
z = cpy.Rows.Count - 1
Worksheets("Tabelle4").Rows("30:" & 30 + z).Insert shift:=xlDown
cpy.Copy destination:=Worksheets("Tabelle4").Range("A30")
End Sub
bin für jede hilfe dankbar.