Bei deinen Konstruktionen ist:
1) Private Sub Worksheet_Change(ByVal Target As Range) - so überhaupt nicht möglich
2) Range.Find Methode nur 1 x anwendbar, Find.Next funktioniert hier nicht
3) Versuche es mit einer popeligen Schleife
Sub Mehrfach()
'
Dim lngLetzte As Long, x As Long, lngstart As Long
'letzte Zeile Spalte B
lngLetzte = Cells(Rows.Count, 2).End(xlUp).Row
'hat Überchrift sonst 1
lngstart = 2
For x = lngstart To lngLetzte
If Trim(Cells(x, 1).Value) = "Verschieben" Then
Range(Cells(x, 2), Cells(x, 50)).Copy _
Destination:=Sheets("Laufende Bewerbungen").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0)
'löschen
Range(Cells(x, 2), Cells(x, 50)).ClearContents
End If
Next x
End Sub
|