VBA - Zeile kopieren & über letzter Zeile einfügen

[SteBen]

Hallo zusammen,

bin auf der Suche nach einem Code, der mir eine Zeile kopiert & diese über der letzten befüllten Zeile einfügt.

Habe den folgenden Coder, der auch funktioniert, nur wird die Zeile dabei immer in die nächste freie Zeile eingefügt, nicht aber über die zuletzt befüllte Zeile.

Code:

Private Sub CommandButton1_Click()

'New Topic
Worksheets("Project Plan").Range("B11:BM11").Copy
Worksheets("Project Plan").Cells(Worksheets("Project Plan").Rows.Count, 2).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False

End Sub

Hat jmd. eine Idee, wie man das lösen könnte?

Vielen Dank

[Kuwer]

Hallo,

Code:

'New Topic
With Worksheets("Project Plan")
  .Range("B11:BM11").Copy
  .Cells(.Rows.Count, 2).End(xlUp).Insert xlDown
End With
Application.CutCopyMode = False

Gruß Uwe

[SteBen]

Hi Uwe,

danke für Deinen Post. Ich bekomme beim Ausführen des Codes in dieser Zeile (.Cells(.Rows.Count, 2).End(xlUp).Insert xlDown) folgenden Laufzeit Fehler, siehe Bild.

[Kuwer]

Hi,

das ist dann Pech für Dich. Bei mir geht das.

Gruß Uwe

[NobX]

Hallo,

hast Du die Code Zeile von Uwe denn wirklich in Klammern geschrieben? Die Code Zeile aus Beitrag #3 beginnt mit .Cells..... und nicht mit (.Cells....

Grüße
Norbert