Anzeige
Archiv - Navigation
448to452
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
448to452
448to452
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeile automatisch löschen

Zeile automatisch löschen
01.07.2004 11:00:51
Marc
Hallo,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeile automatisch löschen
Ulf

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
On Error GoTo errHandler
If Target.Column = 1 Then
If Application.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.entirerow.delete
End If
End If
errHandler:
Application.EnableEvents = True
End Sub

Ulf
AW: Zeile automatisch löschen
Marc
Danke!!!
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige