Clever-Excel-Forum

Zuerst noch ein Gutes und Neues Jahr an alle hier im Forum.

Ich habe ein 'kleines' Problem beim Kopieren eines Bereichs.
Beim Aufruf wird basierend auf der aktuellen Zelle diese Zeile von A bis S markiert und der Bereich bis zur letzten Zeile markiert.

Set bereich = .Range(.Range("A" & ActiveCell.Row), .Range("S" & .Cells(Rows.Count, 1).End(xlUp).Row))
bereich.Copy
Selection.Offset(1, 0).Select

bereich.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Mein Problem ist das 'xlDown' ans Ende springt und den kopierten Bereich einfügt.
Ich möchte aber das der markierte Bereich nur eine Zeile tiefer eingefügt wird.

Deshalb meine Frage hier an alle, wie muss ich das anstellen?
Ich bin für jede Hilfe dankbar.

Grüße aus dem verschneiten Schwaben

Hallo,

Code:
Sub qq()

  With Cells(ActiveCell.Row, 1).Resize(, 19)

    .Copy

    .Insert xlDown

  End With

End Sub

Gruß Uwe

Hallo Uwe

So einfach geht das.
Es funktioniert einwandfrei.
Danke

hziemer

Kuwer

hziemer