Zeile automatisch löschen
01.07.2004 11:00:51
Marc
Ich habe eine Liste, aus der ich, wenn ein Wert doppelt eingegeben wird, diesen sofort wieder löschen lassen möchte. Zu diesem Zweck habe ich gestern von Udo folgenden Code bekommen. Dieser funktioniert auch tadellos! Nur ist es so, das neben Spalte A noch weitere Spalten stehen. Wird also in Spalte A ein Wert doppelt eingegeben möchte ich gern die komplette Zeile löschen lassen.
Hier der Code von Udo:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
On Error GoTo errHandler
If Target.Column = 1 Then
If Application.WorksheetFunction.CountIf(Range("A:A"), Target.Value) > 1 Then
MsgBox "Ihre Letzte Eingabe war bereits vorhanden." & (Chr(10)) & " " & (Chr(10)) & "Sie wird automatisch aus der Liste entfernt!"
Target.ClearContents
Target.Select
End If
End If
errHandler:
Application.EnableEvents = True
End Sub
Hier mein Code, um eine komplette Zeile automatisch löschen zu lassen. Die Frage ist, wie kann man beides so miteinander verbinden, das die komplette neu eingegebene Zeile (die übrigens aus einem Eingabeformular ebenfalls per Makro übertragen wird) gelöscht wird, wenn der Wert aus Spalte A bereits in der Liste vorhanden war?
Rows(ActiveCell.Row).Select
Selection.Delete Shift:=xlUp
Danke für die Hilfe!
Gruß,
Marc Richter
Anzeige