MsgBox-Warnung, Wert in Spalte bereits vorhanden

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) Dim lloRow As Long If Target.Address = "$B$2" And _ Target.Value "" Then With Sheets("Tabelle2") 'wenn bei dir Sheet2 nicht "Tabelle2" heißt, dann _ anpassen For lloRow = 1 To .Cells(Rows.Count, 1).End(xlUp).Row If Target.Value = .Range("A" & lloRow).Value Then MsgBox "Diesen Eintrag gibt es schon.", vbExclamation, "Hinweis" With Application .EnableEvents = False .Undo .EnableEvents = True End With Exit For End If Next End With End If End Sub

Hi Carolin
hier, probier mal
https://www.herber.de/bbs/user/121999.xlsm
Ich habe einen eigenen Code entwickelt und diesen dem Button "Inhalte übertragen" zugewiesen.
Ich habe aber nur deine zuerst gestellte Frage gelöst: "Wenn Eintrag vorhanden, dann mit MsgBox Hinweis geben + Daten nicht in die Datenliste eintragen"
Dabei habe ich aber nicht nur den einen Eintrag in B1, sondern auch in B3 + B5 überprüft.
Deine neuen Fragen/Wünsche "wenn Eintrag schon mehrfach in Datenliste vorhanden, dann auch MsgBox-Hinweis" habe ich nicht berücksichtigt, da dies in deiner Erstfrage nicht angegeben war.
Ich hätte meinen Code stark verändern müssen.
Hilfts denn so schon mal?
Ciao
Thorsten
...ach ja, dein Hinweis "Hier ein ganz grundlegendes Beispiel wie es bei mir ca. aussieht....", macht mir ein wenig Sorgen.
Denn "ca." bedeutet, dass Zelle B2 (+ B3 + B5) nur in deiner Bsp-Datei die zu überprüfenden Zellen sind. In der Originaldatei könnte es sich aber um ganz andere Zellen handeln, die überprüft werden sollen. Du musst den Code dann entsprechend anpassen.
"ca." kann auch bedeuten, dass in der Originaldatei so ziemlich alles anders ist als in der Bsp-Datei.
Sollte ich recht haben, musst du halt den Code vollständig anpassen.
Oder zeig bitte per Upload eine Bsp-Datei, in der die gleichen Zeilen/Spalten genutzt werden wie in der Originaldatei.

Hey Thorsten,
tut mir Leid, dass die Nachricht so schlecht formuliert war! Eigentlich meinte ich mit dem "mehrfach in Datenliste vorhanden" genau das von der ersten Frage, also was dein Code einwandfrei löst! :)
In der Originaldatei gibt es 3 Felder/Zellbezüge mehr, und von dem ganzen dann 8 Stück sodass eine DinA4 Seite voll ist.
Das habe ich aber Zwecks Vereinfachung weggelassen, da ich das Prinzip mit "copy-paste" und Änderung der Zellbezüge dafür vermutlich übernehmen kann, ohne hier den Rahmen zu sprengen. (auch wenn das vermutlich nicht so elegant aussehen wird)
Ich werde es morgen in die Originaldatei einfügen&anpassen und schauen ob es klappt. Im Beispieldokument funktioniert es auf jeden Fall genau so wie gewünscht, auch das Abprüfen der anderen Zellen zusätzlich :) Top!
Vielen Dank für deine Hilfe und Einsatz!!
LG Caro

Beliebteste Forumthreads (12 Monate)

MsgBox-Warnung, Wert in Spalte bereits vorhanden

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

MsgBox-Warnung, Wert in Spalte bereits vorhanden

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread