Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
692to696
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
692to696
692to696
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Datenvergleich über 2 Tabellen

VBA Datenvergleich über 2 Tabellen
14.11.2005 11:20:45
bluedave1979@web.de
Hallo,
ich suche dringend Hilfe. Ich habe schon alles probiert, was ich kenne jedoch ohne Erfolg.
Ich möchte aus Tabelle1 den Inhalt (Postleitzahlen) von Spalte F mit dem Inhalt von Tabelle2 Spalte B auch Postleitzahlen überprüfen. Wenn eine PLZ aus Tabelle1 mit keiner aus Tabelle2 übereinstimmt, soll in Tabelle1 Spalte G der Eintrag falsch stehen. Wenn eine PLZ mit einer aus Tabelle2 übereinstimmt wahr. Die Zeilenlänge in Tabelle1 und 2 kann sich ändern, so dass dies auch über Variabelen glöst werden sollte und die einzelnen PLZs aus Tabelle1 müssen mit jeder aus Tabelle2 geprüft werden.
Ich danke jetzt schon für die Hilfe.
Viele Grüße
David

18
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Datenvergleich über 2 Tabellen
14.11.2005 11:47:21
Susanne
Hallo David,
hast du schon mal den S-Verweis probiert?
Gruß
Susanne
AW: VBA Datenvergleich über 2 Tabellen
14.11.2005 11:50:38
Bluedave
Hallo,
da die Tabellen anschliessend noch bearbeitet und verschoben werden (auch über VBA Makros), läßt sich die Aufgabe nur mit VBA lösen.
Danke für die schnelle Antwort
Dave
Datenvergleich 2 Tabellen - bedignte Formatierung
14.11.2005 12:13:04
Beate
Hallo David,
du könntest es auch über bedingte Formatierung lösen und dir damit die Hilfsspalte in Tabelle 1 sparen. So wird verglichen, ob die PLZ Tabelle1 Spalte G in Tabelle2 Spalte B vorkommen und wenn nicht, werden falsche PLZen markiert:
Tabelle1
 G
150389
250321
374896
412356
585489
Bedingte Formatierungen der Tabelle
ZelleNr.: / BedingungFormat
G11. / Formel ist =G1<>INDIREKT(ADRESSE(ZEILE();SPALTE()-5;4;1;"Tabelle2"))Abc
G21. / Formel ist =G2<>INDIREKT(ADRESSE(ZEILE();SPALTE()-5;4;1;"Tabelle2"))Abc
G31. / Formel ist =G3<>INDIREKT(ADRESSE(ZEILE();SPALTE()-5;4;1;"Tabelle2"))Abc
G41. / Formel ist =G4<>INDIREKT(ADRESSE(ZEILE();SPALTE()-5;4;1;"Tabelle2"))Abc
G51. / Formel ist =G5<>INDIREKT(ADRESSE(ZEILE();SPALTE()-5;4;1;"Tabelle2"))Abc
 

Gruß,
Beate
Anzeige
muss mit VBA gelöst werden
14.11.2005 12:16:18
BlueDave
Hallo,
die Lösung muss leider mit VBA geschehen.
Danke für die Hilfe
Gruß
David
AW: muss mit VBA gelöst werden
14.11.2005 12:26:35
Beate
Hallo,
ich würde doch mal davon ausgehen, dass der Fehler direkt bei Erfassung behoben wird, wenn er derartig sichtbar wird. Es würden doch somit nur korrekte Daten in die nächste Datei übertragen. Und eine Fehlersuche dort wäre dann überflüssig. Aber du wirst schon deine Gründe haben...
Gruß,
Beate
AW: muss mit VBA gelöst werden
14.11.2005 12:32:29
BlueDave
Hi,
die Datenmengen sind einfach zu groß, um sie selbst zu kontrollieren. Deswegen habe ich alles automatiesert bis auf das Problem, weil ich es nicht gelöst bekomme.
Viele Grüße
Dave
Anzeige
AW: muss mit VBA gelöst werden
14.11.2005 12:53:26
Heiko
Hallo Dave,
so könnte es gehen.
Vorraussetzung beide Blätter sind in einer Arbeitsmappe und sind Tabelle1 und Tabelle2, sonst mußt du den Code noch etwas anpassen.

Sub Vergleich()
Dim BooDrin As Boolean
Dim lngLastRow1 As Long, lngLastRow2 As Long, lngCounter As Long
Dim rngFind As Range
Dim varFirstAddress As Variant
lngLastRow1 = Worksheets("Tabelle1").Cells(Rows.Count, 6).End(xlUp).Row
lngLastRow2 = Worksheets("Tabelle2").Cells(Rows.Count, 2).End(xlUp).Row
Application.ScreenUpdating = False
For lngCounter = 1 To lngLastRow1
BooDrin = False
With Worksheets("Tabelle2").Range("B1:B" & lngLastRow2)
Set rngFind = .Find(Worksheets("Tabelle1").Cells(lngCounter, 6), LookIn:=xlValues)
If Not rngFind Is Nothing Then
varFirstAddress = rngFind.Address
Do
Worksheets("Tabelle1").Cells(lngCounter, 7) = "Wahr"
BooDrin = True
Exit Do
Loop While Not rngFind Is Nothing And rngFind.Address <> varFirstAddress
End If
If BooDrin = False Then Worksheets("Tabelle1").Cells(lngCounter, 7) = "Falsch"
End With
Next lngCounter
Application.ScreenUpdating = True
End Sub

Gruß Heiko
PS: Rückmeldung wäre nett !
Anzeige
AW: muss mit VBA gelöst werden
14.11.2005 13:57:00
Dave
DANKE super ding klappt bis auf einen keinen Schöhnheitsfehler bei einer PLZ in Tabelle 1 mit einer Zeichenlänge von 6 zeigt er falsch (das ist ok) bei einer Zeichenlänge von 4 zeigt er wahr an was natürlich nicht stimmt, weil die zahl in tab2 nicht enhalten ist.
AW: muss mit VBA gelöst werden
14.11.2005 14:00:36
Heiko
Hallo Dave,
dann diese Zeile
Set rngFind = .Find(Worksheets("Tabelle1").Cells(lngCounter, 6), LookIn:=xlValues)
so ändern:
Set rngFind = .Find(Worksheets("Tabelle1").Cells(lngCounter, 6), LookIn:=xlValues, LookAt:=xlWhole)
Aber nimm mal die Lösung von bst, die ist 5 mal so schnell wie meine.
Gruß Heiko
PS: Rückmeldung wäre nett !
Anzeige
AW: muss mit VBA gelöst werden
14.11.2005 14:01:52
Dave
Danke nochmal klappt super habe es noch einmal richtig eingefügt und es klappt einwand frei - also danke für deine Mühe!!!!
AW: muss mit VBA gelöst werden
14.11.2005 13:05:51
bst
Auch Hallo,
HTH, Bernd
--
Option Explicit

Sub x()
   Dim Zelle As Range, src As Range
   
   Set src = Range(Worksheets(2).Cells(1, 2), Worksheets(2).Cells(1, 2).End(xlDown))
   
   With Worksheets(1)
      For Each Zelle In Range(.Cells(1, 6), .Cells(1, 6).End(xlDown))
         Zelle.Offset(0, 1).Value = CBool(Application.WorksheetFunction.CountIf(src, Zelle))
      Next
   End With
End Sub

Anzeige
AW: muss mit VBA gelöst werden
14.11.2005 14:06:59
Dave
Hi,
danke für die Mühe leider bekomme ich den Code nicht vernünftig verarbeitet. Bei mir bekomme ich immer die Ausgabe falsch.
AW: muss mit VBA gelöst werden
14.11.2005 14:23:54
DAve
Hi Bernd,
geht jetzt bei mit auch - das lag daran dass in der 2ten Tabelle die erste zeile leer war. Habe aber noch eine Frage (ich hoffe das nervt nicht). Wo kann ich bestimmen in welche Spalte die Ausgabe kommt?
Gruß
David
AW: muss mit VBA gelöst werden
14.11.2005 14:31:52
bst
Hallo David,
ändere Offset(0, 1). Die 1. Zahl verschiebt zeilenweise (hier um 0 Zeilen nach unten) die 2. Zahl verschiebt spaltenweise (hier um eine Spalte nach rechts).
Negative Werte verschieben jeweils in die andere Richtung.
HTH, Bernd
Anzeige
AW: muss mit VBA gelöst werden
14.11.2005 14:37:29
Dave
Hi Bernd,
danke dadurch ist mein Tag gerettet. Vielen Dank noch einmal und eine schöne Woche
Viele Grüße
David
OwT: Bitteschön und gleichfalls
14.11.2005 14:39:04
bst
.
OwT: Bitteschön und gleichfalls
14.11.2005 14:39:09
bst
.

299 Forumthreads zu ähnlichen Themen

Große Tabellen vergleichen
gerwas

Hallo Weite Welt - mal wieder
Habe schon mal im Archiv rumgeforstet aber ohne rechten Erfolg.
Mein Problem:
Zwei große Exceltabellen (Tabelle a und Tabelle b mit gefüllten 65536 Zeilen) haben in Spalte x Textinformationen. Ich will wissen, wie oft ein Text aus Tabelle a in Tabelle...
07.10.2008 16:55:00
Thread-ID: 1014771
8 Beiträge
Anzeige
Tabellenblätter vergleichen
Jockel

Hi,
ich habe ein Tabellenblatt (Tabelle1) mit ca. 150 bis 200 Spalten. Alle Spalten haben in Zeile1 einen Spaltenüberschrift.
Damit ich informiert bin, wenn jemand einen zusätzliche Spalte einfügt, wollte ich dieses Tabellenblatt mit einem Muster (Tabellenblatt2) vergleichen. In diesem...
12.11.2008 08:49:52
Thread-ID: 1023706
13 Beiträge
Spalten vergleichen, löschen und zählen
Micky

Hallo Ihr Excel Ritter,
ich habe folgendes Problem, in 2 Spalten stehen Nummern teilweise doppelt,
nun darf jede NR. nur 1x auftauchen entwerder in Spalte a oder b.
Pro Nr. soll in einer 3. Spalte dann der Wert 1 ausgebeben werden oder 0 für
keine Nummer. Zeilen dürfen nicht g...
10.12.2008 10:17:50
Thread-ID: 1031594
11 Beiträge
Anzeige
Spalten vergleichen und kopieren
edie

Hallo zusammen,
mit dem nachfolgenden Code wird die Spalte C mit der Spalte J verglichen, wobei in
der Spalte C der String nur einmal vorkommt in der Spalte J aber mehrfach.
Bei Übereinstimmung werden die Werte der Spalten K, L und M in die Spalten S, T und U
übernommen.
...
22.01.2009 20:43:26
Thread-ID: 1042727
3 Beiträge
2 Tabellen vergleichen und Pärchen bilden
Universal

Guten Abend Excel-Profis,
ich hoffe, dass ihr mir helfen könnt. Ich habe hier und auch in anderen Foren gesucht - natürlich auch was gefunden - aber ich konnte es nie in meine gewünschte Form umwandeln.
Ich habe 2 riesige Tabellen mit mehreren tausend Datensätzen und mehreren Spalten. L...
25.01.2009 21:52:00
Thread-ID: 1043691
6 Beiträge
Spalten vergleichen und Nummern ausgeben ?
Günther

Hallo zusammen,
kann mir bitte jemand hierbei helfen:
in Spalte E geb ich Nummern ein, diese sollen mit denen aus Spalte AA verglichen werden.
Bei Übereinstimmung soll die Nummer aus AB in L ausgegeben werden.
E---- L--- AA-- AB
15-- 2--- 10-- 1
30-- 5--- 15-- 2
1...
12.03.2009 15:49:14
Thread-ID: 1059522
5 Beiträge
Spalten vergleichen und Ausgabe in neues Worksheet
Bolo

Hallo liebe Community,
ich habe hier eine Tabelle in der in Zeile 4 verschiedene Daten (von Datum) stehen.
Bsp.:
C4+D4=01.01.2009 / E4+F4=02.01.2009 / G4+H4=03.01.2009 usw.
So in C5 und D5 (...) stehen Werte. Es gibt immer für jeden Tag 2 Werte.
Nun soll das Makro die beiden...
01.04.2009 15:21:36
Thread-ID: 1066031
3 Beiträge
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

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
7
15
12
10
3
2
5
4
2
12
13
1
3
4
1
5
7
6
4
1
1
8
4
1
4