Doppelte Einträge löschen
22.06.2005 18:29:45
Michael
um doppelte Einträge in Spalte A bereits währende der Eingabe zu löschen habe ich folgendes Script gebastelt (oder besser ein hier gefundenes ein bisschen abgeändert) dies funktioniert auch wunderbar, nun möchte ich aber gerne das nicht nur Spalte A geprüft wird, sondern auch spalte C
Das heisst wenn ein Wert in A oder C schon vorhanden ist soll die eingabe gelöscht werden. (Eingaben werden ausschliesslich in A und C gemacht)
Ich hoffe das ist einigermassen klar definiert, und danke euch jetzt schon für die Antwort :-)
Gruss Michael
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim x As Long, letzte As Long
With Application
.ScreenUpdating = False
letzte = Range("A65536").End(xlUp).Row
For x = letzte To 1 Step -1
If WorksheetFunction.CountIf(Range("A1:A" & x), Cells(x, 1)) > 1 Then
Rows(x).Delete shift:=xlUp
MsgBox ("Diese Nummer wurde bereits Eingegeben!")
ActiveCell.Offset(-1, 0).Range("A1").Select
End If
Next
.ScreenUpdating = True
End With
End Sub