Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1704to1708
1704to1708
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Doppelte Namen in 2 Tabellenblättern anzeigen

Forumthread: Doppelte Namen in 2 Tabellenblättern anzeigen

Doppelte Namen in 2 Tabellenblättern anzeigen
14.08.2019 11:02:00
Sven
Guten Tag,
ich habe nun schon ewig im Web gesucht, jedoch keine passende Lösung gefunden.
Ich habe eine Tabelle Namens "Terminer" mit 2 Tabellenblättern.
Das 1. Tabellenblatt heißt Transporter, dass 2. Termine.
Im 1. Tabellenblatt befindet sich eine Spalte Nachname (Spalte B) und 1 Spalte Vorname (Spalte C). Die Spalten werden von Hand gefüllt.
Im 2. Tabellenblatt gibt es diese beiden Spalten ebenfalls, auch in Spalte B und C.
Nun benötige ich einen Code, welcher mir eine Msg-Box mit Fehlermeldung (Bsp. Name schon in Tabellenblatt 1 eingetragen!)öffnet, wenn ich beispielsweise einen Namen + Vornamen in das 2. Tabellenblatt (Termine) eingebe, welcher im 1. Tabellenblatt schon vorhanden ist.
Schreibe ich ins Tabellenblatt 2 einen Namen, welcher in Tabellenblatt 1 steht, soll es synchron laufen, also auch eine Fehlermeldung erscheinen.
Gelöscht werden sollten die Daten nicht.
Ich hoffe ich konnte es einigermaßen plausibel erklären.
Danke schonmal im Vorraus.
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Doppelte Namen in 2 Tabellenblättern anzeigen
14.08.2019 13:33:10
Pierre
Hallo,
als Ansatz: 
https://docs.microsoft.com/de-de/office/vba/excel/concepts/cells-and-ranges/prevent-duplicate-entries-in-a-range
Gruß Pierre
AW: Doppelte Namen in 2 Tabellenblättern anzeigen
14.08.2019 14:00:50
Sven
Vielen Dank für die Antwort, er soll allerdings keine doppelten Namen im gleichen Tabellenblatt finden, sondern lediglich eine MsgBox anzeigen, wenn der Name im anderen Tabellenblatt schon vorkommt.
Leider sind meine VBA-Kenntnisse zu gering, als dass ich mir diesen Code umbasteln könnte.
Den Code kann ich in ein Steuerelement mit einbauen, welches ich eh schon habe, um Daten zu sortieren, er muss also nicht zwingend bei Eingabe schon prüfen.
Bitte weiterhin um Hilfe.
Anzeige
AW: Doppelte Namen in 2 Tabellenblättern anzeigen
14.08.2019 14:14:23
Pierre
Naja, war auch, wie gesagt, als Ansatz gedacht.
Du kannst den Teil von "If WorksheetFunction.CountIf" bis vor dem "For Each ws" weg lassen, dann wird nur auf dem jeweils anderen Tabellenblatt gesucht, nicht mehr innerhalb des gleichen.
Ich poste mal den angepassten Code.
So wie ich es verstehe, dürfte das genau das sein, was du benötigst. 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'Define your variables.
Dim ws As Worksheet, EvalRange As Range
'Set the range where you want to prevent duplicate entries.
Set EvalRange = Range("A1:B20")
'If the cell where value was entered is not in the defined range, if the value pasted is  _
larger than a single cell,
'or if no value was entered in the cell, then exit the macro.
If Intersect(Target, EvalRange) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub
If IsEmpty(Target) Then Exit Sub
'If the value entered already exists in the defined range on the current worksheet, throw  _
an
'error message and undo the entry.
'If WorksheetFunction.CountIf(EvalRange, Target.Value) > 1 Then
'MsgBox Target.Value & " already exists on this sheet."
'Application.EnableEvents = False
'Application.Undo
'Application.EnableEvents = True
'End If
'Check the other worksheets in the workbook.
For Each ws In Worksheets
With ws
If .Name  Target.Parent.Name Then
'If the value entered already exists in the defined range on the current  _
worksheet, throw an
'error message and undo the entry.
If WorksheetFunction.CountIf(Sheets(.Name).Range("A1:B20"), Target.Value) > 0  _
Then
MsgBox Target.Value & " already exists on the sheet named " & .Name & ".",  _
_
16, "No duplicates allowed in " & EvalRange.Address(0, 0) & "."
Application.EnableEvents = False
'Application.Undo
Application.EnableEvents = True
Exit For
End If
End If
End With
Next ws
End Sub
Den Teil, den ich anfangs meinte, habe ich auskommentiert. Außerdem musst du nur das "Application.Undo" weg nehmen, wenn deine (doppelte) Eingabe dennoch stehen bleiben soll.
Anzeige
AW: Doppelte Namen in 2 Tabellenblättern anzeigen
14.08.2019 14:17:37
Pierre
Sorry, ich habe jetzt nicht den Bereich angepasst! Aber das schaffst du bestimmt ;-)
Was ich noch vergessen habe: Weiterhin meckert er bei gleichen Vor- bzw. Nachnamen. Da müsste dann evtl. jemand anderes noch dran.
AW: Doppelte Namen in 2 Tabellenblättern anzeigen
15.08.2019 12:22:15
Sven
Leider bin ich damit etwas überfordert. Hab nur ein paar selbst beigebrachte VBA-Kenntnisse. Der Code überfordert mich etwas, da ich mich mit Vergleich etc. noch nicht so beschäftigt habe, vielleicht kann man den doch etwas anpassen und es ist zwingend nötig, dass er Name und Vorname vergleicht.
Der ganze Code kommt dann in "Diese Arbeitsmappe" oder?
Anzeige
AW: Doppelte Namen in 2 Tabellenblättern anzeigen
16.08.2019 08:42:21
Pierre
Bin erst jetzt wieder am PC...
Viele Kenntnisse habe ich leider auch nicht, aber im Rahmen meiner Möglichkeiten versuche ich halbwegs zu helfen.
Kannst du das evtl. so umbauen, dass du den kompletten Namen direkt in eine Zelle schreibst?
Wenn das geht, kannst du den Code so lassen, wie er ist.
Wenn nicht, müsste da tatsächlich jemand ran, der wirklich Ahnung von VBA hat. Das übersteigt auch meine Kenntnisse.
Der jetzige Code kommt auf jeden Fall in "Diese Arbeitsmappe", das stimmt.
Ich poste dir mal den Code. Füge den einfach mal in deiner Mappe ein und teste. Alles, wo ein ' vor steht, kannst du theoretisch löschen, ich habe aber alles aus dem Originalcode drin gelassen.
 Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'Define your variables.
Dim ws As Worksheet, EvalRange As Range
'Set the range where you want to prevent duplicate entries.
Set EvalRange = Range("B:C")
'If the cell where value was entered is not in the defined range, if the value pasted is _
larger than a single cell,
'or if no value was entered in the cell, then exit the macro.
If Intersect(Target, EvalRange) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub
If IsEmpty(Target) Then Exit Sub
'If the value entered already exists in the defined range on the current worksheet, throw  _
_
an
'error message and undo the entry.
'If WorksheetFunction.CountIf(EvalRange, Target.Value) > 1 Then
'MsgBox Target.Value & " already exists on this sheet."
'Application.EnableEvents = False
'Application.Undo
'Application.EnableEvents = True
'End If
'Check the other worksheets in the workbook.
For Each ws In Worksheets
With ws
If .Name  Target.Parent.Name Then
'If the value entered already exists in the defined range on the current _
worksheet, throw an
'error message and undo the entry.
If WorksheetFunction.CountIf(Sheets(.Name).Range("B:C"), Target.Value) > 0 _
Then
MsgBox Target.Value & " existiert schon auf Tabellenblatt " & .Name & ".",  _
_
_
16, "No duplicates allowed in " & EvalRange.Address(0, 0) & "."
Application.EnableEvents = False
'Application.Undo
Application.EnableEvents = True
Exit For
End If
End If
End With
Next ws
End Sub

Anzeige
AW: Doppelte Namen in 2 Tabellenblättern anzeigen
16.08.2019 14:07:31
Werner
Hallo Sven,
schau dir die beiliegende Datei mal an.
Bei den Makros handelt es sich um Event-Makros der beiden Tabellenblätter. Bedeutet, dass der Code sich im Codemodul des jweiligen Tabellenblattes befindet.
Öffne mit Alt + F11 den Makroeditior. Durch Doppelklick auf das entsprechende Tabellenblatt im Projektbaum öffnet sich das Codemodul des entsprechenden Tabellenblattes.
Der Code reagiert auf Eingaben in Spalte B und C sowohl im Blatt "Transporter" als auch im Blatt "Termine".
Im Blatt "Transporter" habe ich in Spalte D eine Hilfsspalte hinterlegt in der bei Eingabe eines Nachnamens in Spalte B und eines Vornamens in Spalte C Nachname und Vorname verbunden werden.
Spalte D ist ausgeblendet, damit man davon nichts sieht.
https://www.herber.de/bbs/user/131459.xlsm
Gruß Werner
Anzeige

Forumthreads zu verwandten Themen

geöffnete Mappen in Taskleiste anzeigen
Jutta

Hallo,
wie stelle ich es an, dass alle geöffneten Mappen in der Taskleiste angezeigt werden ? Ich habe die Mappen übrigens einzeln über den Explorer geöffnet und nicht über Datei &gtÖffnen.
Gruß
Jutta
29.06.2004 09:25:27
Thread-ID: 447369
3 Beiträge
Verknüpfung zu anderen Mappen anzeigen lassen
Diel,

Hallo,
ich habe eine Excel-Datei Seite für Seite in eine neue Datei kopiert.
Beim Starten der neuen Datei kommt eine Meldung, dass das Workbook automatische Links zu anderen Workbook enthält.
Ich finde diesen Link nur leider nicht, um dies zu ändern! Kann man nach solchen Links suchen...
14.09.2004 15:49:55
Thread-ID: 484792
2 Beiträge
Datensätze aus mehreren Mappen suchen und anzeigen
Angelika

Hallo ,
ich habe aus dem Excel Forum folgender VBA Aufbau genutzt. ( siehe unten )
Dieser Ablauf sucht mir aus mehreren Tabellen den eingegebenen Wert, und
fügt diesen in einer separaten Arbeitsmappe ein, bzw. er zeigt nur das
sich mein eingegebener Wert auf z.B. Arbeitsmappe "...
09.11.2005 14:38:53
Thread-ID: 693520
2 Beiträge
Tabelle1 und Tabelle2 nebeneinander anzeigen
speednetz

Hallo
Kann mir jemand bei dem folgenden Problem helfen.
Ich habe mit dem Makrorecorder einen Code erstellt, der mir Tabelle1 und Tabelle2 neben einander anzeigt. Dieser läuft auch einband frei.
Dann speichere ich die Datei ( Orginal.xlsm) mit neuem Namen Datei (Mappe1.xlsm) ab.
...
23.10.2019 12:29:18
Thread-ID: 1719225
7 Beiträge
VBA für alle Tabellenblätter
Bernd

Hallo an Alle,
ich bitte um Eure Hilfe. Ich habe ein Makro, das mir in einem Zellbereich bei einem Doppelklick ein Haken oder ein x schreibt. Dies funktioniert in dem Tabellenblatt, in dem das Makro gespeichert ist. Ich möchte aber die Dateien nicht in .xslm sondern in .xlsx, also ohne Makr...
22.06.2014 22:03:57
Thread-ID: 1366938
4 Beiträge
VBA alle Windows aus-/einblenden
Thomas

Hallo zusammen,
die beiden simplen Makros sollen alle Fenster aus- oder einblenden.
_________________________________ Public Sub EinblendenWindows() Dim i As Integer For i = 1 To Windows.Count Windows(i).Visible = True Next End Sub
_________________________________ Public Sub Aus...
27.10.2016 17:07:37
Thread-ID: 1521970
3 Beiträge
VBA-Skript auf alle Tabellenblätter beziehen
Denis

Hallo liebe Community,
ich hoffe, ihr könnt mir bei folgendem Problem helfen.
Ich habe Excel-Dateien, in denen ein über VBA programmiertes Makro geschrieben wurde (nicht von mir).
Es geht um einen Speiseplan, der aus unserem WaWi-System exportiert wird. Wenn die Datei geöffnet wird,...
24.03.2017 15:33:04
Thread-ID: 1549344
3 Beiträge
Überstunden mit vba zählen alle Tabellenblätter
Jannick

Hallo Liebe Excel Profis,
Zu folgendem Projekt fehlt mir leider etwas die Erfahrung.
Ich konnte mir schon viel zusammenbasteln und auch schon Erfolge in div. Projekten verzeichnen. Allerdings komme ich hier nun nicht mehr weiter.
Hier meine Bsp. Datei
https://www.herber.de/bbs/u...
30.05.2019 12:58:57
Thread-ID: 1695409
6 Beiträge
Tabelle1 und Tabelle2 nebeneinander anzeigen
speednetz

Hallo
Kann mir jemand bei dem folgenden Problem helfen.
Ich habe mit dem Makrorecorder einen Code erstellt, der mir Tabelle1 und Tabelle2 neben einander anzeigt. Dieser läuft auch einband frei.
Dann speichere ich die Datei ( Orginal.xlsm) mit neuem Namen Datei (Mappe1.xlsm) ab.
...
23.10.2019 12:29:18
Thread-ID: 1719225
7 Beiträge
VBA Tabellenblätter Passwort einblenden
Meli
Hallo zusammen,
ich habe von VBA leider keine Ahnung, nur soviel, dass ich mich heute mal schon den ganzen Tag damit beschäftigt habe und ein bisschen Verständnis dafür aufgebaut habe. Hintergrund dafür ist, dass ich bisher eine Datei habe, in welche ich Daten eintrage, die dann wiederum in ca....
23.11.2021 14:43:10
Thread-ID: 1858155
8 Beiträge
Anzeige
VBA in allen Tabellenblätter
Jan
Guten Morgen,
ich habe diesen Code und möchte das er in ALLE Tabellenblätter "greift". Ich habe ihn in Arbeitsmappe getan aber leider geht es nicht:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Then
Target = Environ("Username"...
08.03.2023 08:58:22
Thread-ID: 1923206
3 Beiträge
TextBox öffnet irgendwo auf zweitem Bildschirm
Zoe

Hallo,
ich habe mir gerade eine TextBox programmiert die mir wenn bestimmte Zellwerte nicht übereinstimmen aufpoppt und in der ich dann die passenden Werte eingeben kann. Soweit so gut, ich habe jetzt nur das Problem, das besagte TextBox immer auf meinem zweiten Bildschirm aufpoppt und nich...
01.06.2016 07:52:51
Thread-ID: 1496179
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige