Gruppe
Ereignis
Problem
Bei Eintragung eines X in Spalte R soll die entsprechende Zeile kopiert und am Ende der Tabelle in Tabelle2 eingetragen werden. Im Quellblatt ist die Zeile zu löschen.
ClassModule: Tabelle1
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iRow As Integer
If Target.Column <> 5 Then Exit Sub
If IsEmpty(Target) Then Exit Sub
If UCase(Target.Value) = "X" Then
With Worksheets("Tabelle2")
iRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
Rows(Target.Row).Copy .Rows(iRow)
Rows(Target.Row).Delete
End With
End If
Application.CutCopyMode = False
End Sub