Clever-Excel-Forum

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

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

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.

Hi,

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

Gruß Uwe

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

SteBen

Kuwer

SteBen

Kuwer

NobX