Office: Kopie in nächster freier Zeile

Hallo,

ich bin am verzweifeln und brauche wirklich dringend Hilfe:

Ich habe 2 Tabellen. Nun soll auf Knopfdruck in Tabelle 1 eine neue Zeile eingefügt werden und zusätzlich in Tabelle 2 Eine Gruppe von 5 Musterzeilen in die übernächste freie Zeile kopiert werden.

Dies ist mein Ansatz:

Sub Makro3()
'
' Makro3 Makro
' Makro am 16.09.2009 von´aufgezeichnet
'

'
Selection.Insert Shift:=xlDown
Sheets("Mengenermittlung (2)").Select
Rows("5:9").Select
Selection.Copy
Rows("11:11").Select
ActiveSheet.Paste
End Sub

Das Makro kopiert allerdings nur in eine bestimmte Zeile und nicht in die nächste freie.

Wie kann man das Problem lösen?

Vielen Dank für jede Hilfe!

 

Hallo Luke,

Code:

Option Explicit

Sub Luke()
    Dim LoLetzte As Long
    With Sheets("Mengenermittlung (2)")
        LoLetzte = .UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
        .Rows("5:9").Copy .Rows(LoLetzte)
    End With
End Sub

Gruß Hajo

 

Vielen Vielen Dank, dass Sie mir antworten!!!

Ich habe probiert das Makro anzuwenden aber leider passiert irgendwie gar nichts.

Wäre es vielleicht irgendwie möglich mein Makro (das ich einfach aufgezeichnet habe) so anzupassen, dass es statt in 11:11 in die nächste freie Zeile kopiert?

Ich wäre Ihnen so unfassbar dankbar, wenn Sie sich noch einmal dieses Problemes annehmen könnten!!!

 

Hallo Luke,

da kann ich leider nichts weiter zu schreiben, da mein Makro schon das macht was gefordert.

Gruß hajo

 

oke ich werde einfach nochmal probieren es richtig einzubauen! danke!

 

Ok, glaub ich hab es jetzt richtig gemacht. wenn ich jetzt auf den knopf drücke wird in Tabelle2 der 5er Block hinzugefügt. Perfekt soweit! Ein großes Dankeschön erstmal!

Allerdings fügt er irgendwie in Tabelle 1 keine Zeile ein.

Das Problem ist jetzt, dass ich die neue eingefügte Zeile mit mehreren Verknüpfungen mit dem kopierten 5er Block verbinden müsste.

Könnten Sie mir da vielleicht noch einen Tip geben? Ich kann leider nicht VBA programmieren und hatte gehofft ich könnte das ganze irgendwie per aufzeichnung hinbekommen, aber da kriege ich dann ihren code irgendwie nicht rein.

Es wäre so toll, wenn Sie sich noch einmal Zeit nehmen könnten!

Vielen Dank!

 

Hallo Luke,

Deine erste Zeile ist nicht Bestandteil meines Codes.

Gruß Hajo

 

Ok, anders gesagt:

ich brauche eine schaltfläche, die mir an der markierten stelle in Tabelle 1 ein Zeile einfügt, gleichzeitig in Tabelle 2 in die nächste freie Zeile 5 Zeilen kopiert. Die neu eingefügte Einzelzeile und die neu einegefügten 5 zeilen müssen aber per Verknüpfung miteinander verbunden sein. Diese verknüpfungen sollen auch beim drücken des knopfes automatisch erstellt werden.

Ich kann mithilfe des Recorders ein Makro hinfummeln, dass die Kopien und Verknüpfungen erledigt. Allerdings kopiert dieses in eine bestimmte Zeile und nicht in die nächste freie.

Ich müsste jetzt Ihr Makro irgendwie in mein aufgezeichnetes "einbauen", weiß aber beim besten Willen nicht wie das gehen könnte, da ich in dem Code keine ähnliche Struktur erkennen kann.

Mein recordetes Makro sieht so aus:

Sub Makro3()

Selection.Insert Shift:=xlDown
Sheets("Tabelle1").Select
Rows("2:7").Select
Selection.Copy
Rows("9:9").Select
ActiveSheet.Paste
Sheets("Liste").Select
Range("E18").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle1").Select
Range("A10").Select
ActiveSheet.Paste Link:=True
Sheets("Liste").Select
Range("G18").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle1").Select
Range("I10").Select
ActiveSheet.Paste Link:=True
Sheets("Liste").Select
Range("I18").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle1").Select
Range("H10").Select
ActiveSheet.Paste Link:=True
Sheets("Tabelle1").Select
Range("J10").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Liste").Select
Range("J18").Select
ActiveSheet.Paste Link:=True
End Sub

Ich wäre Ihnen super dankbar, wenn Sie mir vllt weiterhelfen könnten Ihr Makro da "reinzubasteln".

Vielen, vielen Dank für Ihre Mühe!

 

Ok, jetzt habe ich es geschafft.

Mit folgendem Code werden die Zeilen in die übernächste freie Zeile kopiert:

Sub CopyPaste()
Sheets("Tabelle2").Activate
Range("A1:J6").Copy
Range("A65536").End(xlUp).Offset(2, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False

End Sub

Danke nochmal für die Unterstützung!