Office: Doppelte in Liste Werte verhindern

Guten Morgen,

ich brauche mal bitte Hilfe beim Worksheet.Range.

Ich möchte alle Werte (ArtikelNrn) in Spalte A mit dem letzen Wert in der Spalte A abgleichen, ob dieser Wert (ArtikelNr) bereits vorhanden ist.

Problem, die Prüfung auf den evtl. doppelten Wert kann erst erfolgen, nachdem der neue Eintrag einkopiert wurde.

Code:

Wie kann ich das ws.Range anpassen, damit nicht mehr die ganze Spalte abgefragt wird, sondern nur noch bis zur vorletzten befüllten Zelle?

Grüße
Anja

:)

 

Hallo Anja,

benutze CountIf()

 

Hallo Anja,

grundsätzlich so:

Code:

Code:

Ob ActiveCell hier vernünftig ist? Arbeitest Du etwa mit Select / Activate?
Das geht auch anders und ich bin mir sicher, dass Du auch weißt wie.

Schade, das wäre nämlich der sinnvolle Einstieg. "Kopieren" heißt, Du kennst die Daten bereits vorher - also sind sie auch prüfbar. Insofern würde ich auch genau hier nachhaken.

Grüße
EarlFred

 

Hallo Hajo,
hallo EarlFred,

Du hast Recht die Daten sind natürlich bekannt, aber mir ist wichtig dass ich den Code verstehe der zum Einsatz kommt, sodass ich ihn ggf. auch einmal selbst anpassen kann.

Die am leichtesten nachzuvollziehende Methode war jetzt die Anpassung des ws.Range. Danke für Deinen Code, leider meldet er noch immer dass der Artikel bereits vorhandenen ist, auch wenn die ArtikelNr. nur einmal (in letzter Zelle von Spalte A) in der Liste vorkommt.


edit: ich hatte die Find-Anweisung vergessen, jetzt meldet VBA "Objekt erforderlich". Ich bin am verzweifeln :-(

Code:

ActiveCell deshalb, weil der Nutzer zuvor auf die Nr. in der Liste klickt und sie dann in eine UserForm übernimmt.

Grüße
Anja

 

Hallo Anja,

unfassbar! Wie kommst Du zu dieser Erkenntnis, wenn Du den Code nichtmal zum Laufen gebracht hast???

Setz die Klammern mal so, wie sie gehören, dann funzt das auch:
Code:

Genau das machst Du Dir unnötig schwer.

Grüße
EarlFred

 

Hallo EarlFred,

vielen Dank, es war wirklich ein simples Klammerproblem, der Code läuft jetzt rund, zumindest so rund wie ich ihn verstehe *wink.gif*

Zur Erklärung:
Der Code lief bereits beim Abgleich von zwei anderen Listen durch. Es wurde gesucht, ob die ArtikelNr. dort vorhanden ist. Das Problem war jetzt die aktive Liste abzugleichen, da die ArtikelNr hier bereits eingefügt wurde bevor der Abgleich mit der Spalte A durchgeführt wird.

Danke für die schnelle Hilfe!!

Grüße
Anja