22.04.2021, 13:29
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:
Wo steckt der Fehler und wer kann mir helfen?
Grüße Stefan
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
Grüße Stefan