ja gibt es, aber woher soll das Makro wissen auf welche Begriffe es reagieren soll?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim spaltenr As Long
If Target.CountLarge > 1 Then Exit Sub
If Target = "" Then Exit Sub
If Not Intersect(Target, Range("E1:E10000")) Is Nothing Then
Select Case Target.Value
Case "Theorie bestanden", "irgendwas anders"
spaltenr = Cells(Target.Row, Columns.Count).End(xlToLeft).Column
Cells(Target.Row, 1).Resize(1, spaltenr).Copy _
Sheets("Warteliste").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Target.EntireRow.Delete
Case Else
End Select
End If
End Sub |