Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.09.2025 15:31:23
Listbox durchsuchen die über list array befüllt wurde
28.09.2025 15:25:50
Excel Zufall Dienstplan
27.09.2025 15:11:53
Probleme mit dem Autovervollständigen
27.09.2025 13:16:54
Mit VBA erstellter S.-Brief erzeugt mehr Briefe als Daten
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1480to1484
1480to1484
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Prüfen ob Datensatz schon vorhanden

Forumthread: Prüfen ob Datensatz schon vorhanden

Prüfen ob Datensatz schon vorhanden
18.03.2016 08:56:03
r2d2
Hallo,
ich möchte Datensätze von A nach B schaufeln und dabei doppelte Einträge vermeiden. Nun kann ich natürlich, bevor ich die Daten von A nach B kopiere, im Bereich B prüfen, ob der Datensatz schon vorhanden ist. Bei 50.000 Datensätzen dürfte das dann aber doch ein weinig dauern, wenn ich immer vorher den gesamten Bereich prüfen muß. Gibt es da eine elegante Lösung?
Hier mein bisheriges Vorgehen:
Sub kopieren_ohne_duplikate()
Dim VAR As String
For i = 1 To 50000
VAR = Sheets("QUELLE").Range("B" & i)
If Sheets("ZIEL").Range("C5:C50000")  VAR Then
Dim ZEIGER As String
Sheets("ZIEL").Activate
Cells(100000, 3).End(xlUp).Offset(1, 0).Activate
ZEIGER = ActiveCell.Row
Range("C" & ZEIGER2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,  _
SkipBlanks:=False, Transpose:=False
End If
nex i
End Sub

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Prüfen ob Datensatz schon vorhanden
18.03.2016 09:20:06
Steve
Hallo r2d2,
dafür gibt es im Reiter "Daten" die Duplikatsprüfung.
Das Einfügen kannst du zunächst als Block ausführen, statt Zeile für Zeile. Dann wird der RemoveDuplicates-Befehl ausgeführt. 
With Sheets("Tabelle1")
.Range("A1:B" & .Cells(.Rows.Count, "A").End(xlUp).Row). _
RemoveDuplicates Columns:=1, Header:=xlYes
End With
Die Range gibt den gesamten Bereich deiner Daten an (welche Zellen der Zeile gelöscht werden).
Columns:= gibt an welche Spalte(n) auf Duplikate geprüft werden.
Im obigen Beispiel werden also die Zellen A bis B der Zeile eines Datensatzes gelöscht, falls in A ein Duplikat auftritt.
lg Steve

Anzeige
AW: Prüfen ob Datensatz schon vorhanden
18.03.2016 09:28:30
r2d2
Nee, ich will ja nix löschen - oder geht das nicht anders?

AW: Prüfen ob Datensatz schon vorhanden
18.03.2016 09:30:10
r2d2
Dann müsste ich ja erstmal von A nach B alles rüberkopieren und dann im nächsten Schritt bei B alle doppelten löschen.
Geht das nicht anders? So dass vor dem Kopieren geprüft wird ob doppelt?

AW: Prüfen ob Datensatz schon vorhanden
18.03.2016 10:35:10
Steve
Hallo r2d2,
ja, das hatte ich bereits erwähnt, dass du den gesamten Datenblock kopieren sollst, wenn auch nicht unbedingt sehr nachdrücklich.
Wenn du nicht Zeile für Zeile kopierst sondern deinen Datenblock im ganzen ist das in Sekundenbruchteilen erledigt. Du musst nämlich wissen, jeder Zugriff auf Zellen (hier Kopiervorgang) innerhalb der Mappe bedarf einer gewissen Menge Zeit. Wenn du also Zeile für Zeile kopierst ist dein Zeitbedarf erheblich höher, als ein einziger Zugriff auf einen Bereich. Bevor ein Besserwisser ankommt und sagt: "aber bei 100.000 Zellen ist der Zeitanteil für den Zugriff ein klein wenig höher als bei einer Zelle" - um Millisekunden wollen wir hier nicht streiten. Denn T = 100.000 * X Millisekunden oder T = 1 * X + großzügige 100 Millisekunden sind trotzdem ein riesiger Unterschied.
Den eingefügten Datenblock kannst du dann auf doppelte Werte prüfen, was mit Remove-Duplicates als Standard-Funktion ebenfalls nur Sekundenbruchteile benötigt. Selbstgebastelte Schleifen die Zeile für Zeile durchgehen können da einfach nicht mithalten. Zudem ermöglicht der Befehl eine Prüfung über mehrere Spalten. Ein kleines Beispiel: "Nur wenn Artikelnummer (Spalte A), Lieferscheinnummer (Spalte D) und Lieferdatum (Spalte B) identisch sind, dann entferne den kompletten Datensatz (Zeile)".
Ein kleiner Tip zur Performance noch: Bildschirmaktualisierung und Formelberechnung ausschalten wirkt Wunder. Kannst es ja erstmal bei deinem Code ausprobieren und über den Unterschied staunen. Aber nicht vergessen die Formelberechnung am Ende des Makros wieder einzuschalten (was gern beim Programmabbruch durch Fehler in der Programmierphase vergessen wird). Ich spreche hierbei aus Erfahrung wenn ich sage, dass es Momente gibt in denen Leute verzweifelt sind, weil ihre Formeln nicht mal mehr 1+1 hinkriegen. 
'Aus
Application.Screenupdating = False
Application.Calculation = xlManual
'Ein
Application.Screenupdating = True
Application.Calculation = xlAutomatic

lg Steve

Anzeige
AW: Prüfen ob Datensatz schon vorhanden
18.03.2016 12:53:42
r2d2
Ok, danke.

AW: Prüfen ob Datensatz schon vorhanden
18.03.2016 13:06:04
Daniel
Hi
wenn du wirklich nur die benötigten Zeilen kopiern willst und das sehr schnell gehen soll, müsstest du so vorgehen:
1. Zielbereich nach der Spalte mit dem Vergleichswert aufsteigend sortieren
2. im quellbereich eine Hilfsspalte einfügen, welche mit Hilfe des SVerweises prüft, ob der Vergleichswert in der Zieltabelle vorhanden ist.
die Formel sieht in etwa so aus: 
=Wenn(SVerweis(Vergleichswert aus Quelle;Spalte mit Vergleichswerten im Ziel;1;Wahr)  = Vergleichswert Quelle;"x";1)
3. Quelltabelle nach dieser Hiflsspalte sortieren (vorher ggf in der Hilfsspalte die Formeln durch Werte ersetzen
4. alle Zeilen, die in der Hilfsspalte eine 1 haben, in die Zieltablle kopieren.
du kannst diese Zeilen über die SpecialCells-Methode gezielt auswählen.
Gruß Daniel
Anzeige
;

Forumthreads zu verwandten Themen

Wenn Eintrag in ListBoxspalte dann Eintrag in lbl
Josef

Guten Morgen!
In eine mehrspaltige ListBox werden eine Menge Datensätze eingelesen.
Ich möchte nun folgendes erreichen:
Wenn ich einen Datensatz in der ListBox markiere oder anklicke und wenn jetzt z.B. in der 2.Spalte in der ListBox ein "J" steht, dann soll ein vordefinierter Text...
29.10.2008 07:57:42
Thread-ID: 1020127
3 Beiträge
Anzeige
Wenn Sheet nicht vorhanden, dann Abbruch..
Mandy

Hi zusammen,
wie kann ich denn folgende Abfrage machen:
Wenn sheet("data") NICHT VORHANDEN, dann Abbruch
Danke
Mandy
31.03.2009 08:32:23
Thread-ID: 1065486
5 Beiträge
Wenn Eintrag dann
Elmar

Liebe Excel Profis habe ein Problem mit unten aufgeführter Excel Datei:
Wenn im Bereich B5:X5 ein Eintrag größer als Null erfolgt soll in AU6 als Text die Materialbestimmung erscheinen, ebenso wenn im Bereich von Y6:AJ6 ein x eingetragen wird soll in BE6 als Text die Baugruppenzuordnung st...
02.07.2009 21:29:58
Thread-ID: 1086093
3 Beiträge
Zelle bei Auswahl prüfen ob Wert
Markus

Mein Bitte ist, Ich möcht mit einem Makro prüfen ob eine Ausgewählte Zelle einen Text "R" enthält oder leer ist.
Wenn Text dann soll der Zelleninhalt gelöscht werden, wenn leer dann soll Text "R" eingefügt werden.
Dies soll aber nur im im Bereich A1:E30 erfolgen.
Vielen Danke für e...
17.08.2009 11:32:44
Thread-ID: 1096371
4 Beiträge
Prüfen ob Zelle vorhanden...
pervenches

Guten Tag
Diese Formel sollte überprüfen, ob die Zelle "Erfolg" mit Inhalt "2" vorhanden ist und falls ja den entsprechenden Wert ausgeben. Falls diese Zelle nicht vorhanden ist sollte Sie den Wert von "G1" ausgeben. Die Zelle ist nicht immer vorhanden, da es sich um eine Pivot-Tabelle han...
09.09.2009 09:02:19
Thread-ID: 1101377
5 Beiträge
Prüfen ob Datei vorhanden
Marcus

Hallo,
kann mir jemand sagen, wie folgender Code aussehen muss:
Prüfen ob eine Datei, die ich als Bild in Excel mit VBA einfügen möchte, vorhanden ist.
If Dir(K:\Modelle Zeichnungen\Sal\Bilder TIF\...001.TIF) "" Then
Allerdings steht die Pfadangabe in der Zelle H2, da es verschi...
15.10.2009 07:05:26
Thread-ID: 1109751
2 Beiträge
Prüfen ob Schaltfläche vorhanden
walli

Guten Tag,
ALLEN ein frohes Weihnachtsfest !
Ich habe mal gestöbert und dies gefunden.
Ich möchte nur prüfen ob ein Schaltfläche mit der Nummer 10 vorhanden ist, das klappt so nicht.
Dim shShape As Shape
For Each shShape In Worksheets("Test").Shapes
If shShape.Name = "Sc...
25.12.2009 15:52:15
Thread-ID: 1125912
7 Beiträge
Anzeige
Prüfen ob Tabellen vorhanden
Kurt

Guten Morgen,
wünsche allen ein gesundes neues Jahr !
Danke für die bisherige Unterstützung !
Frage:
Ich habe eine Datei mit Tabellen die mit Monatsnamen hinterlegt
sind. (MMM)
Ich möchte prüfen ob ein Monat fehlt.
mfg Kurt P
05.01.2010 09:31:14
Thread-ID: 1127179
7 Beiträge
Anzeige
ControlPopup prüfen ob 2 mal vorhanden
marco

Hallo Kollegen,
Habe momentan ein problem mit der abfrage ob das popup vorhanden ist. Obwohl in der Menueleiste das Popup mit dem Namen "PT-Tool" vorhanden ist.
Popup wird ertellt.
Public Sub prcCreateButton() Dim myCommandBar As CommandBar Dim myCommandBarPopup As CommandBarContro...
28.01.2010 17:44:30
Thread-ID: 1133863
3 Beiträge
Anzeige
Bereich prüfen ob Wert enthalten oder leer
chris

Hallo Excelprofis und guten morgen,
ich hätte eine frage.Vielleicht könnt ihr mir helfen.
ich möchte gerne einen bereich prüfen ob ein wert vorhanden ist.
Also z.b Bereich A1 bis G1
ich möchte jetzt einfach prüfen ob in einer dieser 7 Zellen prüfen ob ein wert vorhanden/eingetra...
04.03.2010 07:47:03
Thread-ID: 1143197
3 Beiträge
prüfen ob versch. Ziffern in Zellen vorhanden sind
Heinz

Hallo Excellenten,
viele Grüße an Alle an an diesem (im Süden) sonnigen Tag.
Mein Problem: Ich habe eine Spalte mit folgenden Zellen:
A1: 1;0000000 9; 10;000 14;00000000 23;0 25;0 27; 28; 29;0
A2: 00000000 9;00000000000000 24; 25;00000
A3: 00 3;0000000000000000 27;000
A...
08.04.2010 21:26:15
Thread-ID: 1150683
4 Beiträge
Überprüfen ob Tabellenblatt vorhanden ist
Ingo

Hallo zusammen,
hab folgendes Problem. Ich öffne nacheinander verschiedene Dateien um bestimmte Zellen auszulesen.
Wenn in der geöffneten Datei das Tabellenblatt mit dem Namen "Motor" nicht vorhanden ist sollen die nachfolgenden Schritte nicht bearbeitet werden. Irgendwie klappt das bei...
20.04.2010 11:44:29
Thread-ID: 1152802
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Datensätze in Excel auf Duplikate prüfen

Schritt-für-Schritt-Anleitung

Um Datensätze in Excel auf Duplikate zu prüfen, kannst du folgende Schritte befolgen:

  1. Datenblock kopieren: Anstatt die Daten Zeile für Zeile zu kopieren, solltest du den gesamten Datenblock auf einmal kopieren. Das spart Zeit und verbessert die Performance.

    Sub kopieren_ohne_duplikate()
   Dim VAR As String
   Dim i As Long
   For i = 1 To 50000
       VAR = Sheets("QUELLE").Range("B" & i)
       If Application.WorksheetFunction.CountIf(Sheets("ZIEL").Range("C5:C50000"), VAR) = 0 Then
           Sheets("ZIEL").Cells(100000, 3).End(xlUp).Offset(1, 0).Value = VAR
       End If
   Next i
End Sub

  2. Duplikatsprüfung durchführen: Verwende die Funktion RemoveDuplicates, um doppelte Einträge zu entfernen, nachdem du die Daten kopiert hast:

    With Sheets("ZIEL")
   .Range("A1:B" & .Cells(.Rows.Count, "A").End(xlUp).Row).RemoveDuplicates Columns:=1, Header:=xlYes
End With

  3. Hilfsspalte nutzen: Wenn du nur die relevanten Zeilen kopieren möchtest, füge eine Hilfsspalte in der Quelltabelle ein, um zu prüfen, ob der Wert in der Zieltabelle vorhanden ist:

    =WENN(SVERWEIS(A1;ZIEL!C:C;1;WAHR)=A1;"x";"1")

Häufige Fehler und Lösungen

  • Fehler: Typenunterschiede beim Vergleich in VBA.

    • Lösung: Stelle sicher, dass die Datentypen übereinstimmen. Verwende CStr() oder CInt() zur Konvertierung.

  • Fehler: Die RemoveDuplicates-Funktion entfernt ungewollt Daten.

    • Lösung: Achte darauf, dass du die korrekten Spalten angibst, um nur die gewünschten Duplikate zu entfernen.

Alternative Methoden

  • Verwendung von COUNTIF: Du kannst auch die COUNTIF-Funktion verwenden, um zu prüfen, ob ein Wert in einer bestimmten Spalte bereits vorhanden ist:

    =COUNTIF(ZIEL!C:C, A1) > 0

  • VBA-Skripte: Wenn du häufiger mit großen Datensätzen arbeitest, kann ein VBA-Skript, das die Duplikatsprüfung automatisiert, Zeit sparen.

Praktische Beispiele

  1. Duplikate in einer Liste finden: Wenn du eine Liste von Kunden hast und sicherstellen willst, dass keine doppelten Einträge vorhanden sind, nutze die oben genannten Methoden.

  2. Eingabevalidierung: Du kannst eine Eingabevalidierung nutzen, um sicherzustellen, dass beim Hinzufügen neuer Daten keine Duplikate erstellt werden.

Tipps für Profis

  • Aktiviere die Bildschirmaktualisierung und die automatische Berechnung erst am Ende deines Makros, um die Performance zu optimieren:

    Application.ScreenUpdating = False
Application.Calculation = xlManual
' Dein Code hier
Application.ScreenUpdating = True
Application.Calculation = xlAutomatic

  • Nutze Array-Methoden in VBA, wenn du mit sehr großen Datensätzen arbeitest, um die Verarbeitungsgeschwindigkeit zu erhöhen.

FAQ: Häufige Fragen

1. Wie kann ich prüfen, ob ein Wert in einer anderen Tabelle vorhanden ist? Verwende die SVERWEIS-Funktion oder die COUNTIF-Funktion, um zu prüfen, ob der Wert in der Zieltabelle vorhanden ist.

2. Was ist die beste Methode zur Duplikatsprüfung in Excel? Die Verwendung von RemoveDuplicates zusammen mit einer Hilfsspalte ist oft die effektivste Methode, insbesondere bei großen Datensätzen.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige