Laufzeitfehler 424
12.06.2018 15:49:23
G
ich habe folgendes Problem. Ich habe eine Tabelle, aus der Daten in ein anderes Tabellenblatt verschoben werden sollen, je nachdem, welche Auswahl man im ersten Tabellenblatt am Anfang einer Zeile trifft. Das Ganze funktioniert auch so, wie ich es mir wünsche, die Daten werden korrekt in das jeweilige Tabellenblatt verschoben, sowohl bei "geprüft" als auch bei "storniert". Allerdings bekomme ich einen Laufzeitfehler 424 (Objekt erforderlich), wenn ich eine Zeile auf "geprüft" setze. Wähle ich "storniert", kommt keine Fehlermeldung. Was kann ich tun, damit die Meldung verschwindet?
Bei Debuggen marktiert er die Zeile: If Target = "Storniert" Then
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zeile As Long
Set Target = Intersect(Target, Range("A1:A1000"))
If Target Is Nothing Then Exit Sub
If Target = "Geprüft" Then
Zeile = Target.Row
Range(Cells(Zeile, 2), Cells(Zeile, 10)).Copy _
Destination:=Sheets("Geprüft").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Target.EntireRow.Delete
End If
If Target = "Storniert" Then
Zeile = Target.Row
Range(Cells(Zeile, 2), Cells(Zeile, 10)).Copy _
Destination:=Sheets("Storniert").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Target.EntireRow.Delete
End If
End Sub
Danke für eure Hilfe!