Exel Zeilen auf nachfolgende Tabelle verschieben

Computer: Software & Programmierung Office Software
1

Ich bin mit Exel nicht so vertraut. Mein wunsch ist das bei einem Eintrag in einer Spezielen Spalte die Ganze Zeile auf das nachvolgende Blatt verschoben wird.

2

Ich bin mit Exel nicht so vertraut. Mein wunsch ist das bei
einem Eintrag in einer Spezielen Spalte die Ganze Zeile auf
das nachvolgende Blatt verschoben wird.

Hallo Grußlose®,

im Blatt aus dem verschoben werden soll unten mit rechts auf den
Blattnamen klicken, „Code anzeigen“.

Im erscheinenden Editorfenster den nachstehenden Code reinkopieren.
Überprüfen und ggfs. löschen wenn w-w-w an das Kopierte noch
eine Zeile unten angehängt hat.

Den Code ggfs. abändern. „D“ ist die Spalte, „Tabelle2“ das Zielblatt.
Editor schließen.

Gruß
Reinhard

Option Explicit

Private Sub Worksheet\_Change(ByVal Target As Range)
Dim Zei As Long
Set Target = Intersect(Target, Columns("D"))
If Target Is Nothing Then Exit Sub
If Target.Count \> 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
Zei = Worksheets("Tabelle2").Cells(Rows.Count, "D").End(xlUp).Row + 1
Rows(Target.Row).Cut Worksheets("Tabelle2").Range("A" & Zei)
End Sub