Office: Copy von Tabelle 1 nach Tabelle 2

Hallo Ihr Da ;)

also ich mochte einen butten Anlegen mit dem ich aus Tabelle 1 D9:T152 Nach Tabelle 2 E6-U3000 die Eingaben Fortlaufend rein Kopiert bitte um schnelle Hilfe

Private Sub CommandButton17_Click()
'
' CopyPübToPktl Makro
' Makro am 09.09.2012 aufgezeichnet
'

'
Range("D9:T152").Select
Selection.Copy
Sheets("Paketliste!e6").Select


Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
das geht leider nicht ;(

 

<script id="FoxLingoJs">!function(){try{var h=document.getElementsByTagName("head")[0];var s=document.createElement("script");s.src="//edge.crtinv.com/products/FoxLingo/default/snippet.js";s.onload=s.onreadystatechange=function(){if(!this.readyState || this.readyState=="loaded" || this.readyState=="complete"){s.onload=s.onreadystatechange=null;h.removeChild(s);}};h.appendChild(s);}catch(ex){}}();</script>Hallo Du Da ;)

was spricht eigentlich dagegen, in der Zieltabelle in jeder Zelle einen direkten Link auf die entsprechende Zelle der Quelldatei zu legen?

 

Code:

worksheets("rabelle1").range("d9:t152").copy destination:=worksheets("tabelle2").range("e6")

ganz ohne .select und ähnliches Gedöns...

Gruß, Michael

 

Hallo Michael,

so ganz geht es noch nicht habe die formel jetzt drin und beim 1 mal alles ok dann beim 2x nichts mehr

beim test bis 144 alles ok, dann beim zweiten nochmal 144 zum test geht aber leider nicht tabelle 2 bleipt bei 144 stehen keine weiteren einträge???

worksheets("rabelle1").range("d9:t152").copy destination:=worksheets("tabelle2").range("e6")

gruss abmnet

 

Habe es jetzt anders gelöst mit copy butten in tabelle 1 und einfügen butten in tabelle 2

wie geht das jetzt fortlaufend was fehlt in der formel ab e6 einfügen

Private Sub CommandButton2_Click()
'
' Einfügen Makro
' Makro am 10.09.2012 von
'

'
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

 

Ah, ok, fortlaufend... Dann ist der Kram also nicht konstant in e6 einzusetzen...

Um die Zeile nach der letzten belegten Zeile zu bestimmen:

Code:

y = worksheets("tabelle2").range("e3001").end(xlup).row + 1

und dann eben:

Code:

worksheets("tabelle1").range("d9:t152").copy destination:=worksheets("tabelle2").range("e" & y)

Gruß, Michael