PDA

Vollständige Version anzeigen : zeile mit makro kopieren und am Ende einer anderen Tabelle einfügen


chef
26.03.2001, 06:40
hi,
ich möchte ein makro erstellen das in Tabelle1 die zeile 10 kopiert und in tabelle2 an letzter stelle einfügt,wenn ich über einfügen gehe wird die zeile immer an derselben stelle eingefügt wie kann ich das lösen?

Klaus-Dieter
26.03.2001, 20:56
Hallo chef,

versuch's mal mit diesem Makro:

Sub kopieren_und_einfügen()
Rows("10:10").Select
Application.CutCopyMode = False
Selection.Copy
Worksheets("Tabelle2").Activate
z = 1
Do While Len(Worksheets("Tabelle2").Cells(z, 1)) > 0 'Ermitteln der Tabellenlänge
z = z + 1
Loop
Range("A" & z).Select
ActiveSheet.Paste
End Sub