Zeile in anderes Blatt verschieben

[StefanB]

Hallo @all,

folgende Herausforderung.

Wie es sein soll: Wenn im Tabellenblatt1 in der Spalte K ein "x" gesetzt wird, soll sich die komplette Zeile in ein anderes Tabellenblatt (Archiv) verschieben.
Wie es ist: Nur leider wird nicht nur die Spalte K sondern das ganze Tabellenblatt angesprochen. Das heißt, egal wo ich ein "X" setze, verschiebt sich automatisch die Zeile in der das "x" irgendwo gesetz wurde.
Das soll so nicht sein. Siehe Code:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

  If Target.Count = 1 Then

    If Target.Row > 3 Then

      If Target.Value = "x" Then

        Target.EntireRow.Copy Worksheets("Archiv").Cells(Rows.Count, 11).End(xlUp).Offset(1, -10)

        Target.EntireRow.Delete

      End If

    End If

  End If

End Sub

Wo steckt der Fehler und wer kann mir helfen?

Grüße Stefan

[Steffl]

Hallo Stefan,

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

  If Target.Count = 1 Then

    If Target.Row > 3 And Target.Column = 11 Then

      If Target.Value = "x" Then

        Target.EntireRow.Copy Worksheets("Archiv").Cells(Rows.Count, 11).End(xlUp).Offset(1, -10)

        Target.EntireRow.Delete

      End If

    End If

  End If

End Sub

[StefanB]

Klasse, Danke !!