Wie in VBA Markierung erweitern, um zwei Zeilen auszuschneiden ?

[Twixt]

Hallo,
habe ein relativ einfaches Problem, weiß aber den richtigen Befehl dazu nicht.
Ich habe bisher eine Zeile mit folgendem Befehl ausgeschnitten:
Selection.EntireRow.Cut
Nun soll aber zu der jeweils aktuellen Zeile noch die darauf folgende Zeile
mit markiert werden.
Kann man den obigen Befehl so erweitern, dass er auch immer gleich die
nächste Zeile mit aus schneidet um sie dann wieder mit Paste woanders
einzufügen ?

Danke schon mal
Twixt

[{Boris}]

Hi,

Post by Twixt
habe ein relativ einfaches Problem, weiß aber den richtigen Befehl dazu nicht.
Selection.EntireRow.Cut
Nun soll aber zu der jeweils aktuellen Zeile noch die darauf folgende Zeile
mit markiert werden.
Kann man den obigen Befehl so erweitern, dass er auch immer gleich die
nächste Zeile mit aus schneidet um sie dann wieder mit Paste woanders
einzufügen ?

Sub weg_damit()
Selection.Resize(2, 1).EntireRow.Cut
End Sub

--
Grüße Boris

[stefan onken]

hallo Twixt,
probiers mal mit
Rows(Selection.Row & ":" & Selection.Row + 1).EntireRow.Cut
Es müsste aber auch ohne EntireRow gehen.

Gruß
stefan

Post by Twixt
Hallo,
habe ein relativ einfaches Problem, weiß aber den richtigen Befehl dazu nicht.
Selection.EntireRow.Cut
Nun soll aber zu der jeweils aktuellen Zeile noch die darauf folgende Zeile
mit markiert werden.
Kann man den obigen Befehl so erweitern, dass er auch immer gleich die
nächste Zeile mit aus schneidet um sie dann wieder mit Paste woanders
einzufügen ?
Danke schon mal
Twixt