VBA Cut/Insert Verständnis-Frage

Hallo zusammen,
ich nutze häufig Anregungen aus diesem Forum für neue Ideen.
Letztens wollte in einer Liste (Spalte) Einträge untereinander austauschen. Hierbei bin ich auf eine Formel gestoßen, die auch ihren Zweck voll und ganz erfüllt.
Stark verkürzt:

Sub ZeileTausch()
ActiveCell.Cut
ActiveCell.Offset(2).Insert Shift:=xlDown
End Sub

Mir stellt sich folgende Frage:
Füge ich den ausgeschnittenen Wert nicht in derselben Spalte ein (bsp.: Offset(2,2)) wird die neue Spalte nach unten verschoben um den Wert hinzuzufügen.
Die ausgeschnittene ActiveCell bleibt dann "leer" zurück.
Unter diesen Umständen verstehe ich die Formel und das Ergebnis.
Mir erschließt es sich nur nicht warum bei der o.g. Formel die ActiveCell und die direkt darunter liegende ihre Plätze tauschen.
Warum bleibt die ActiveCell nicht "leer" zurück.
Es ist zwar genau das was ich möchte aber ich möchte es auch verstehen.
Schon mal vielen Dank im voraus
Busso

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Moin
schon mal vielen Dank für die Antwort Ralf.
Mir geht es leider nicht darum irgendwas an der Formel zu ändern, sondern etwas zu verstehen.
Formel1:

Sub ZelleTausch()
ActiveCell.Cut
ActiveCell.Offset(2).Insert Shift:=xlDown
End Sub

Formel2:

Sub ZelleVerschieben()
ActiveCell.Cut
ActiveCell.Offset(1,1).Insert Shift:=xlDown
End Sub

Angenommen ActiveCell = "A1"
und
ich habe zwei Tabellen "A1:A10" und "B1:B10"
Formel1 bewirkt, dass die in der ersten Tabelle der 1. und 2. Eintrag ihre Positionen tauschen.
Das finde ich gut und soll auch genauso sein.
Formel2 bewirkt, dass der Wert aus "A1" nach "B2" verschoben wird und die Werte "B2:B10" auf "B3:B11" verschoben werden. "A1" bleibt leer zurück und die erste Tabelle ist nur noch von "A2:A10" gefüllt.
Was Formel2 macht verstehe ich und entspricht auch dem was ich soweit aus den Beschreibungen zu .Cut und .Insert gelesen habe.
Ich möchte gerne verstehen warum in Formel1 ein Tausch stattfindet.
Eigentlich hätte ich aus der Formel ein Resultat erwartet wie bei

Sub ZelleEinfügen()
Cells(1).Insert Shift:=xlDown
End Sub

Vielen Dank an alle, die sich Gedanken machen.
Busso

Beliebteste Forumthreads (12 Monate)

VBA Cut/Insert Verständnis-Frage

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Cut/Insert Verständnis-Frage

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread