Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 16:50:59
2 Zellen in 2 Blättern mit unterschiedlichen Bereichen vergl
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
572to576
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
572to576
572to576
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellen vergleichen-doppelte in Tabelle3

Tabellen vergleichen-doppelte in Tabelle3
22.02.2005 22:20:57
Burghard
Hallo,
suche dringend nach Hilfe. Leider konnte ich bisher keine passende Lösung für mein Problem finden.
Ich habe in einer Excel-Mappe (Excel 2000) in Tabelle1 und in Tabelle2 jeweils in der Spalte A Nummern stehen, die Nummern sind zum Teil identisch, in den Spalten rechts neben Spalte A stehen noch andere Daten.
Ich möchte jetzt die Werte der Spalte A der Tabelle2 mit den Werten der Spalte A der Tabelle1 vergleichen.
Wenn der Wert gleich ist, soll die entsprechende ganze Zeile von Tabelle1 in eine neue Tabelle 3 ausgegeben werden, so daß sich am Ende alle doppelten Werte (ganze Zeilen) aus der Tabelle1 in der Tabelle3 befinden.
Würde das Ganze gerne in VBA haben. :-)
Any help available?
Gruß,
Burghard

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellen vergleichen-doppelte in Tabelle3
22.02.2005 22:34:53
Josef
Hallo Burhard!
Sollte es tun!


      
Sub von1nach3wennIn2()
Dim wks1 As Worksheet, wks2 As Worksheet, wks3 As Worksheet
Dim rng As Range, rFind As Range
Dim lastRow As Long, lrow As Long
Dim sFirst As String
Set wks1 = Sheets("Tabelle1")
Set wks2 = Sheets("Tabelle2")
Set wks3 = Sheets("Tabelle3")
lastRow = IIf(wks2.Range("A65536") <> "", 65536, _
            wks2.Range("A65536").End(xlUp).Row)
            
For Each rng In wks2.Range("A1:A" & lastRow)
Set rFind = wks1.Range("A:A").Find(what:=rng, LookIn:=xlValues, lookat:=xlWhole)
   If Not rFind Is Nothing Then
   
   sFirst = rFind.Address
   
      Do
      
      lrow = lrow + 1
      
      rFind.EntireRow.Copy wks3.Cells(lrow, 1)
      
      Set rFind = wks1.Range("A:A").FindNext(rFind)
      
      Loop While sFirst <> rFind.Address
      
   End If
   
sFirst = vbNullString
Set rFind = Nothing
Next
End Sub 
P.S.: Rückmeldung nicht vergessen!
Anzeige
AW: Tabellen vergleichen-doppelte in Tabelle3
23.02.2005 13:14:25
Burghard
Hallo Sepp,
toll, super!!!! Vielen Dank für die schnelle Hilfe!
Alles genauso, wie erhofft. Klasse!
Tausend Dank!!!!!!!!!!!!!! :-)
Burghard

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
Anzeige

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