ich will mit dem Code unten nur Zelle A, B, und D in die andere Tabelle übernehmen. Geht das?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zeile As Long
Dim ZeileMax As Long
Dim n As Long
With Tabelle206
ZeileMax = .UsedRange.Rows.Count
n = 2
For Zeile = 2 To ZeileMax
If .Cells(Zeile, 8).Value = "ja" Then 'kopieren wenn ja ausgewählt
.Rows(Zeile).Copy Destination:=Tabelle216.Rows(n) 'einfügen der Zelle in Wartungstabelle _
_
Tabelle
n = Tabelle215.Cells(Rows.Count, 1).End(xlUp).Row + 1 'leere Zelle Suchen
End If
Next Zeile
End With
End Sub