Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
792to796
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
792to796
792to796
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellen vergleichen-NICHT-doppelte Einträge lösch

Tabellen vergleichen-NICHT-doppelte Einträge lösch
20.08.2006 13:51:49
Olli
Hallo Forumsgemeinde,
ich hab da ein Problem und bin bislang noch nicht zu einer Lösung gekommen. Daher meine große Hoffnung, dass mir hier wer helfen kann ;O)
ich habe zwei Tabellen mit jeweils bis zu 1000 Kundendaten (Zeilen).
In der Spalte A befindet sich die jeweilige Kundennummer. Nun möchte ich per Makro die beiden Tabellen miteinander vergleichen und in Tabelle A alle Kunden (Zeilen) löschen, deren Kundennummer in der Tabelle B NICHT auftauchen. Also im Grunde möchte ich zwei Tabellen mit übereinstimmenden Kundennummern.
Kann mir da wer helfen?
Wäre toll
Gruß
Olli

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

Betreff
Datum
Anwender
Anzeige
AW: Tabellen vergleichen-NICHT-doppelte Einträge lösch
20.08.2006 15:01:41
Andreas
Hallo,
bevor ich mich an diese Aufgabe setze noch eine kurze frage. Sollen denn auch die Daten, in Tabelle B gelöscht werden die nicht in Tabelle A stehen?
Oder willst du das nur die Daten aus Tabelle A gelöscht werden die nicht in Tabelle B stehen?
Gruß Andreas
AW: Tabellen vergleichen-NICHT-doppelte Einträge l
20.08.2006 18:34:51
Olli
Hallo Andreas,
nett, dass Du mir helfen möchtest..also zum Verständnis....ich mache über unsere firmeneigene Software mehrere Abfragen, dessen Ergebnis ich dann als Textdateien exportiere und dann in Excel importiere um sie weiter zu verarbeiten...leider lassen sich bestimmte Abfragen / Kriterien nicht miteinander verknüpfen, so dass ich nun einen Umweg gehen muss.
Entsprechend besteht Tabelle A aus dem gesamten Kundenstamm, die ein Kriterium erfüllen. Tabelle B besteht aus dem gesamten Kundenstamm, die ein anderes Kriterium erfüllen. Nun möchte ich in Tabelle B nur noch die Kundendaten vorfinden, die auch in Tabelle A vorhanden sind und somit also den Bestand gefiltert haben, der BEIDE Kriterien erfüllt.
Hierbei reicht es aber aus, wenn Tabelle A gefiltert/reduziert wird.
Konnte ich mich einigermaßen verständlich ausdrücken? Schwer zu erklären....
Gruß
Olli
Anzeige
AW: Tabellen vergleichen-NICHT-doppelte Einträge l
20.08.2006 19:24:48
Josef
Hallo Olli!
Mit diesem Code werden die "Doppler" in ein drittes Tabellenblatt kopoiert.
Sub Doppler()
Dim rng As Range, rngF As Range, rngFind As Range, rngCopy As Range
Dim objSh1 As Worksheet, objSh2 As Worksheet, objSh3 As Worksheet


Set objSh1 = Sheets("Tabelle1") 'Tabelle in der gesucht wird
Set objSh2 = Sheets("Tabelle2") 'Tabelle mit Vergleichsdaten
Set objSh3 = Sheets("Tabelle3") 'Tabelle in die kopiert wird

With objSh2
  Set rngFind = .Range("A1:A" & .Cells(.Rows.Count, 1).End(xlUp).Row)
End With

For Each rng In rngFind
  Set rngF = objSh1.Range("A:A").Find(What:=rng, LookAt:=xlWhole)
  If Not rngF Is Nothing Then
    If rngCopy Is Nothing Then
      Set rngCopy = rngF.EntireRow
    Else
      Set rngCopy = Union(rngCopy, rngF.EntireRow)
    End If
  End If
Next

If Not rngCopy Is Nothing Then rngCopy.Copy objSh3.Cells(1, 1)

Set objSh1 = Nothing
Set objSh2 = Nothing
Set rngFind = Nothing
Set rngF = Nothing
Set rngCopy = Nothing

End Sub


Gruß Sepp

Anzeige
AW: Tabellen vergleichen-NICHT-doppelte Einträge lösch
20.08.2006 20:35:42
Gerd
Hallo Olli,
und mit diesem Code werden die Zeilen der "Einmaligen" in der Tabelle1 ausgeblendet.

Sub Test()
Dim wksA As Worksheet, wksB As Worksheet
Dim rngSuchbereich As Range, rngNixGefunden As Range
Dim LZ As Long, x As Long
Set wksA = ThisWorkbook.Worksheets("Tabelle1")
Set wksB = ThisWorkbook.Worksheets("Tabelle2")
Set rngSuchbereich = wksB.Range(wksB.Cells(1, 1), wksB.Cells(Rows.Count, 1).End(xlUp))
LZ = wksA.Cells(Rows.Count, 1).End(xlUp).Row
For x = 1 To LZ
If rngSuchbereich.Find(CStr(wksA.Cells(x, 1).Value), lookat:=xlWhole) Is Nothing Then
If rngNixGefunden Is Nothing Then
Set rngNixGefunden = wksA.Rows(x)
Else
Set rngNixGefunden = Union(rngNixGefunden, Rows(x))
End If
End If
Next
If Not rngNixGefunden Is Nothing Then
rngNixGefunden.EntireRow.Hidden = True
Else
MsgBox "Kundennummern sind alle auch in Tabelle2 vorhanden!"
End If
End Sub

Gruß
Gerd
Anzeige
AW: Tabellen vergleichen-NICHT-doppelte Einträge l
20.08.2006 21:20:16
Olli
Hallo Josef und Gerd,
@ Josef: klappt....zwar mit 3. Tabelle, aber gewünschtes Ziel ist erreicht..Danke
@ Gerd: Bei Deinem Code bekomme ich den Fehler 1004: "Methode Union für das Objekt _Global fehlgeschlagen.
Erfolgt bei der Zeile
Set rngNixGefunden = Union(rngNixGefunden, Rows(x))
Der Rows-Wert ist bei 2452...dort ist die Tabelle aber bereits zu Ende....(hat 2450 Zeilen)
Ne Idee woran das liegt? Habe Deinen Code nicht geändert...
Gruß
Olli
AW: Tabellen vergleichen-NICHT-doppelte Einträge l
20.08.2006 23:04:47
Josef
Hallo Olli!
Löschen in Originaltabelle geht so.
Sub Doppler()
Dim rng As Range, rngF As Range, rngFind As Range, rngDel As Range
Dim objSh1 As Worksheet, objSh2 As Worksheet


Set objSh1 = Sheets("Tabelle1") 'Tabelle in der gesucht und gelöscht wird
Set objSh2 = Sheets("Tabelle2") 'Tabelle mit Vergleichsdaten


With objSh1
  Set rngFind = .Range("A1:A" & .Cells(.Rows.Count, 1).End(xlUp).Row)
End With

For Each rng In rngFind
  Set rngF = objSh2.Range("A:A").Find(What:=rng, LookAt:=xlWhole)
  If rngF Is Nothing Then
    If rngDel Is Nothing Then
      Set rngDel = rng.EntireRow
    Else
      Set rngDel = Union(rngDel, rng.EntireRow)
    End If
  End If
Next

If Not rngDel Is Nothing Then rngDel.Delete

Set objSh1 = Nothing
Set objSh2 = Nothing
Set rngFind = Nothing
Set rngF = Nothing
Set rngDel = Nothing

End Sub


Gruß Sepp

Anzeige
AW: Tabellen vergleichen-NICHT-doppelte Einträge lösch
21.08.2006 08:47:48
Gerd
Hallo Olli,
nein, eine schnelle Erklärung habe ich für diesen Fehler leider nicht.
Ich hatte den Code bei mir getestet. Da lief er.
Du kannst aber auch den neuen Code von Sepp nehmen u. ganz unten
leicht variieren, um "einmalige" statt zu löschen, nur auszublenden.
If Not rngDel Is Nothing Then rngDel.EntireRow.Hidden=true
Gruß
Gerd
perfekt...danke an Euch zwei für die Hilfe
22.08.2006 19:40:59
Olli
Hallo Ihr zwei...
Code von Josef klappt....vielen Dank für Eure Hilfe...riesig...
Wünsch Euch noch nen angenehmen Abend!!
Gruß
Olli

301 Forumthreads zu ähnlichen Themen

2 TabellenBlätter vergleichen - gleiche markieren
Andy

Hallo,
ich habe 2 unterschiedliche Tabellen in denen ein Mitgliederabgleich durch geführt werden soll.
In der Tabelle1 sind die Namen der Mitglieder einer Gruppe zusammen in einer Zelle hinter einander geschrieben; in der der Tabelle2 sind alle Mitglieder unter einander (jeweils neue Ze...
16.04.2009 11:44:02
Thread-ID: 1069028
13 Beiträge
Anzeige
Doppelte Einträge in mehreren Tabellenblättern
S.

Guten Morgen zusammen!
Ich habe eine Excel-Mappe mit mehreren Tabellenblättern, die alle nach dem gleichen Schema aufgebaut sind. Nun möchte ich diese Arbeitsblätter "konsolidieren" und alle Einträge anzeigen lassen, die in ALLEN Blättern gleichzeitig vorkommen. Der Vergleichswert steht in...
21.08.2009 11:18:00
Thread-ID: 1097664
2 Beiträge
Zwei Tabellen je Zelle vergleichen + markieren | Herbers Excel-Forum
Constantin
Hallo,
ich möchte zwei Tabellen (Tabelle1 und Tabelle2) in einer Arbeitsmappe (ab Zeile 2) miteinander vergleichen und die Unterschiede durch farbliche Markierung der jeweiligen Zelle in Tabelle1 sichtbar machen.
Ich versuche, die angedachte Logik einigermaßen präzise zu beschreiben und hof...
11.01.2010 14:19:47
Thread-ID: 1128880
5 Beiträge
Anzeige
Doppelte Werte in mehrere Spalten
urmila

Hallo zusammen,
ich hoffe ihr könnt mir weiterhelfen.
Ich habe 4 Spalten (Bsp.)
SpalteA = Name
SpalteB = Vorname
SpalteC = Anschrift
SpalteD = Telefon
Über einer Userform, will ich dass (nach dem ich die TextBoxe-Felder ausgefüllt habe) zunächst prüft, ob die Person...
10.11.2010 15:05:20
Thread-ID: 1186104
3 Beiträge
2 Tabellen vergleichen,bei unter. Werte farblich
Sven

Hallo,ich habe ein, für mich, großes Problem.
Ich habe 2 Tabellen auf unterschiedlichen WorkSheets.
Jetzt wird die erste Tabelle nach einem Primärschlüssel
mit der zweiten verglichen und falls der Primärschlüssel identisch ist, wird der ganze Datensatz ersetzt.
Jetzt meine Frage: Is...
24.05.2002 07:59:32
Thread-ID: 123294
4 Beiträge
Doppelte Werte über mehrere Spalten ohne VBA
Wolfgang

Hallo Forum,
ich habe eine sehr große Tabelle und möchte doppelte Werte über 3 Spalten suchen/markieren.
Eine Lösung mit VBA habe ich, die läuft aber zu langsam.
Deshalb die Frage, gibt es eine andere Lösung (bedingte Formatierung o.ä.)?
BSP:
In Spalten A, B, C stehen Wer...
02.07.2011 22:00:57
Thread-ID: 1220677
5 Beiträge
Werte aus mehreren Tabellenblätter
Werner

Hallo Herber-Freunde
eine kurze Frage:
ich habe mehrere Tabellenblätter, die alle gleich aufgebaut sind.
Der Name der Tabelle ist numerisch
01 bis 20
In einer separaten Tabelle "hole" ich mir die Werte aus den einzelnen Tabs
mit einer Formel im Tabelleblatt "Alle"
i...
12.07.2012 20:13:58
Thread-ID: 1270835
3 Beiträge
Tabellen vergleichen und markieren
Thomas

Was einfaches, aber ich bin zu blöd.
Egal ob Formel oder VBA, was immer geht, helft mir.
Ich habe 2 Tabellen.
1 Tabelle
A B C E
ID11111 Name Vorname Ort
ID25432 Name Vorname Ort
ID26712 Name Vorname Ort
.
.
Tabelle 2
...
26.07.2013 16:13:42
Thread-ID: 1324395
8 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
12
6
1
4
9
2
3
4
2
7
2
6
1
5
2
6
1
1
4
3
3
1
11
4
5