Hallo zusammen,
ich komme hier einfach nicht weiter!
Der Code funktioniert an sich ganz gut, allerdings, nach der fehlermeldung löscht es nur die eingabe in der Spalte A,
also nicht die ganze Zeile (A-D).
Kurz zu ausgangssitiuation: In der Arbeitsmappe sind 4 Blätter, ein Userform mit 4 eingabefeldern und
einen Speicher Button.
Ziel: Nach den 4 eingaben in der UserForm, soll der Button (durch klicken) in der Aktiven Blatt
die daten im Spalte A nach doppelte eingaben prüfen.
Falls im Spalte A was gleiches vor kommt, soll es die 4 eingaben im Userform rückgängig machen.
Der Code unten, liegt gerade auf der aktiven Blatt also nicht auf dem Button.
?????
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Range
Set Bereich = Range("A:A")
If Target.Value = "" Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
If Intersect(Bereich, Target) Is Nothing Then Exit Sub
If WorksheetFunction.CountIf(Bereich, Target.Value) > 1 Then
MsgBox "Diesen Eintrag gibt es schon", , "Achtung"
Application.EnableEvents = False
Target.Value = ""
Application.EnableEvents = True
Target.Select
End If
End Sub
Ich bin für jede Hilfe dankbar
Grüße aus München
Harun
|