tommylik
Goto Top

Einen Bereich um Anzahl Zeilen nach unten verschieben

Hallo,

Habe diese Makro mit dem Makrorecorder aufgenommen:

Sub Makro5()
'  
' Makro5 Makro  
'  

'  
    Range("I7:N17").Select  
    
End Sub

Ich möchte nun diesen markierten Bereich mit Inhalt um 6 Zeilen nach unten verschieben.
Ich habe da an folgendes gedacht:
    Selection.Cut Destination:=Range.......
 

Da habe ich mit dem Offset rumgespielt aber da bekomme einen Hinweis über das Argument was nicht richtig ist.

Könnte mir einer von Euch Profis auf die Sprünge helfen? Vielen Dank

Mfg Tom

Content-ID: 177192

Url: https://administrator.de/contentid/177192

Ausgedruckt am: 17.11.2024 um 11:11 Uhr

bastla
bastla 02.12.2011 um 23:22:43 Uhr
Goto Top
Hallo Tommylik!

Wenn die 6 Zeilen konstant sind, würde ich einfach eine entsprechende Anzahl an Zellen einfügen und damit den markierten Bereich nach unten verschieben:
Selection.Resize(6).Insert Shift:=xlDown
Falls Du aber überschreiben willst, war Dein Ansatz nicht so verkehrt:
Selection.Cut (Selection.Offset(6))
Grüße
bastla
Tommylik
Tommylik 03.12.2011 um 05:21:09 Uhr
Goto Top
Hallo bastla,

Vielen Dank für deine Hilfe.

Mit
Selection.Cut (Selection.Offset(6))
funktioniert es bestens.

Vielen Dank

Mfg Tom