Laufzeitfehler 1004 Intersect Problem
10.05.2021 10:02:48
Sascha
ich habe hier ein Code der bezwecken soll, dass sobald in Zeile A eine Änderung vorgenommen wird ( Status von neu auf beendet gesetzt)
die komplette Zeile ausgeschnitten wird auf einer neuen Seite eingefügt wird und die Zeile aus der sie ausgeschnitten wurde gelöscht wird.
Da ich zwei verschiedene trigger Wörter verwende habe ich den code zweimal hintereinander gesetzt.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zelle As Range
If Not Intersect(Target, Range("A9:A700")) Is Nothing Then
Application.EnableEvents = False
For Each Zelle In Intersect(Target, Range("A9:A700"))
If Zelle.Value = "beendet" Then
Zelle.EntireRow.Copy Tabelle2.Cells(Tabelle2.Rows.Count, 1).End(xlUp).Offset(1).EntireRow
Zelle.EntireRow.Delete
Application.CutCopyMode = False
End If
Next
Application.EnableEvents = True
End If
If Not Intersect(Target, Range("A9:A700")) Is Nothing Then
Application.EnableEvents = False
For Each Zelle In Intersect(Target, Range("A9:A700"))
If Zelle.Value = "abgelehnt" Then
Zelle.EntireRow.Copy Tabelle3.Cells(Tabelle3.Rows.Count, 1).End(xlUp).Offset(1).EntireRow
Zelle.EntireRow.Delete
Application.CutCopyMode = False
End If
Next
Application.EnableEvents = True
End If
End Sub
Kann mir da jemand sagen was da falsch ist, bzw auch wie ich das lösen kann?
Danke LG Sascha