ich habe eine Liste erstellt, in die regelmäßig Werte eingetragen werden. Um zu vermeiden, das Werte doppelt eingetragen werden, lasse mit einer Formel überprüfen, ob in Spalte A ein Wert doppelt vorhanden ist. Ist das so, dann wird in der zweiten erfaßten Zeile eine 1 in einer separaten Spalten (Spalte J) eingetragen. Ich habe nun einen Code geschrieben, mit dessen Hilfe die Zeile, in der eine 1 in Spalte J auftaucht, automatisch gelöscht wird. Wird eine 1 eingegeben funktioniert der Code. Bleibt in Spalte J die Formel stehen funktioniert der Code nicht. Kann mir jemand sagen, wie ich diesen Code verändern muß, damit er funktioniert? Oder weiß jemand eine Möglichkeit direkt auf Spalte A zuzugreifen und eine doppelt erfaßte Zeile automatisch zu löschen?
Hier der Code:
Sub Doppelt()
Dim i As Long
Dim back As Variant
For i = 1 To 1000
Range("J" & i).Select
If ActiveCell.FormulaR1C1 = 1 Then
back = MsgBox("Ihre Letzte Eingabe war bereits vorhanden." & (Chr(10)) & " " & (Chr(10)) & "Sie wird automatisch aus der Liste entfernt!") + vbExclamation + vbOKOnly
Rows(ActiveCell.Row).Select
Selection.Delete Shift:=xlUp
End If
Next i
Sheets("Eingabe").Select
End Sub
Schonmal vielen Dank für die Hilfe!
Gruß,
Marc Richter