Ich habe eine ganz einfache Excel Tabelle mit nur einer einzigen Spalte.
Hier füge ich mittels STRG+V Werte in die Zellen der Spalte A ein.
Bei den Werten handelt es sich um Zahlen.
Nun möchte ich gerne verhindern, dass Werte doppelt in der Tabelle landen.
Dazu möchte ich ein VBA-Makro machen, welches beim Einfügen (mittels STRG-V) überprüft, ob der Wert schon in der Tabelle vorhanden ist.
Wenn ja, dann soll der Wert gleich wieder gelöscht werden und der Curser in der ersten leeren Zelle der Spalte A verbleiben.
Wenn nein, dann soll der Wert in die Zelle eigefügt werden und der Curser in die nächste leere Zelle der Spalte A gehen.
Ich hatte diese Frage hier vor einer Weile schon einmal gestellt und Ihr habt mir damals auch sehr nett geholfen.
Nun habe ich die entsprechende Datei aber leider versehentlich gelöscht und muss es nochmel neu machen.
Damals hatte mir hier jemand den folgenden Code gegeben:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Uups
If Target.Column = 1 And Target.Count = 1 Then
If WorksheetFunction.CountIf(Range("A:A"), Target) = 1 Then
Target.Offset(1, 0).Select
Else
Application.EnableEvents = False
Target.Clear
End If
End If
Uups:
Application.EnableEvents = True
End Sub
Ich habe nun folgendes gemacht:* Neue Excel Tabelle
* VBA-Editort geöffnet
* Neues Klassenmodul angelegt
* Obigen Code in das Klasenmudul kopiert
Aber leider will es so noch nicht funktionieren.
Was habe ich denn falsch gemacht?
Gruß
Olaf