Laufzeitfehler nach Zeile gelöscht
24.08.2018 08:44:02
Olaf
ich habe in einer Tabelle automatisch sortieren nach Spalte D eingestellt. Danach springt er automatisch in das oberste Feld des gerade eingegegben Wertes in D (Auswahlfeld mit 3 Möglichkeiten).
Das Problem ist, wenn ich eine komplette Zeile lösche, dann kommt er mit einem Laufzeitfehler. _
Was kann ich einbauen, damit dieser nicht kommt?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim varTargetValue As Variant
If Not Application.Intersect(Target, Range("D2:D200")) Is Nothing Then
varTargetValue = Target
Range("A2:G200").Sort Key1:=Range("D2"), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, _
Key2:=Range("A2"), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
Cells(Application.Match(varTargetValue, Columns(4), 0), 4).Select
End If
End Sub
Anzeige