ich wollte die beiden Worksheets zusammenführen und bekomme es nicht hin.
Wenn in der Spalte O ein "x" steht, solle es in die Tabelle "Tisch1" kopiert werden.
Sollte in der Spalte P ein "x" stehen, soll es in die Tabelle "Tisch2" kopiert werden....
Ich bitte um nachsicht.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zeile As Long
Set Target = Intersect(Target, Range("o1:o50"))
If Target Is Nothing Then Exit Sub
If Target = "x" Then
Zeile = Target.Row
Range(Cells(Zeile, 1), Cells(Zeile, 10)).Copy _
Destination:=Sheets("Tisch1").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Target.EntireRow.Delete
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zeile As Long
Set Target = Intersect(Target, Range("p1:p50"))
If Target Is Nothing Then Exit Sub
If Target = "x" Then
Zeile = Target.Row
Range(Cells(Zeile, 1), Cells(Zeile, 10)).Copy _
Destination:=Sheets("Tisch2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Target.EntireRow.Delete
End If
End Sub