Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1880to1884
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
1880to1884
1880to1884
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Vergleich zweier Tabellen

Vergleich zweier Tabellen
14.05.2022 11:05:07
Frank
Hallo, ich mag irgendwie noch nicht auf den richtigen Ansatz kommen...
Ich habe eine Tabelle1 (=Referenztabelle) und eine Tabelle2 in welchen jeweils in Spalte A ab Zeile 2 ein Datum steht, in Tabelle1 steht zudem in Spalte B ab Zeile 2 der Wert "Ja" oder "Nein" oder nichts.
1.) Nun soll die erste Zeilennummer in Tabelle1 gesucht werden, welches Datum in Tabelle2 noch nicht vorhanden ist und gleichzeitig in Spalte B der Wert "Nein " enthält.
2.) Diese Zeilennummer für soll weitere Verwendung in Tabelle3 D3 eingetragen werden.
Vielen Dank für Unterstützung!
Viele Grüße Frank.

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

Betreff
Datum
Anwender
Anzeige
AW: Vergleich zweier Tabellen
14.05.2022 15:41:43
Oberschlumpf
Hi Frank,
hier, ein Code, ungetestet

Sub sbNoDateInTab2()
Dim lsh1 As Worksheet, lloRow1 As Long, lsh2 As Worksheet, lloRow2 As Long, lsh3 As Worksheet, lboExist As Boolean
Set lsh1 = Sheets("Tabelle1") 'Name anpassen, wenn im Original anders
Set lsh2 = Sheets("Tabelle2") 'Name anpassen, wenn im Original anders
Set lsh3 = Sheets("Tabelle3") 'Name anpassen, wenn im Original anders
For lloRow1 = 2 To lsh1.Cells(lsh1.Rows.Count, 1).End(xlUp).Row
If IsDate(lsh1.Range("A" & lloRow1).Value) And _
lsh1.Range("B" & lloRow1).Value = "Nein" Then
For lloRow2 = 2 To lsh2.Cells(lsh2.Rows.Count, 1).End(xlUp).Row
If lsh2.Range("A" & lloRow2).Value = lsh1.Range("A" & lloRow1).Value Then
lboExist = True
Exit For
End If
Next
If lboExist = True Then
lboExist = False
Else
lsh3.Range("D3").Value = lsh1.Range("A" & lloRow1).Value
Exit For
End If
End If
Next
Set lsh1 = Nothing
Set lsh2 = Nothing
Set lsh3 = Nothing
End Sub
Hilfts?
Ciao
Thorsten
Anzeige
AW: Vergleich zweier Tabellen
14.05.2022 18:27:32
Frank
Hallo Oberschlumpf,
vielleicht habe ich mich falsch ausgedrückt, aber ich hätte gerne die Zeilennummer und nicht das gefundene Datum als Ergebnis.
Ansonsten würde es wahrscheinlich so funktionieren...
Wie kann ich hierbei nun die Zeilennummer des ersten fehlenden Datums erhalten?
AW: kann mit einer Formel ermittelt werden...
14.05.2022 18:44:30
neopa
Hallo Frank,
... so: =AGGREGAT(15;6;ZEILE(E2:E99)/(ZÄHLENWENN(Tabelle2!A2:A99;Tabelle1!A2:A99)=0)/(Tabelle1!B2:B99="nein");1)
(Auswertungsbereich bei Bedarf einfach erweitern (aber nicht viel mehr als das max notwendige .
Gruß Werner
.. , - ...
uuuppsssss!
14.05.2022 18:57:28
Oberschlumpf
Frank, recht haste! sorry :-)
Ich hab nich genau hingeguckt^^
mach aus dieser Zeile...

lsh3.Range("D3").Value = lsh1.Range("A" & lloRow1).Value
...das hier

lsh3.Range("D3").Value = lloRow1
jetzt passt es, da lloRow1 = die Zeile in Tab1 ist, in der das Datum mit "Nein" in Spalte B ist, welches in Tab2 noch nicht vorhanden ist.
Ciao
Thorsten
Anzeige
AW: uuuppsssss!
14.05.2022 20:21:41
Frank
Danke Oberschlumpf!
Wie kann eigentlich das Ergebnis benutzt werden um anstatt in Zelle D3 zu schreiben die erste fehlende Zeile in der ListBox1 zu markieren?
AW: uuuppsssss!
14.05.2022 22:08:35
Frank
Ein Gedankenfehler von mir, richtige Frage müsste heißen:
Das Ergebnis der ersten fehlenden Zeile in Tabelle2 ist das Datum XY
Suche nun nach diesem Datum in ListBox1 und markiere diese Zeile zur Vorauswahl.
Kann vorheriger Code entsprechend geändert werden, gerne auch ohne den Zwischenschritt in Tabelle3 Telle D3 zu schreiben?
Vielen Dank, Gruß Frank.
AW: uuuppsssss!
17.05.2022 12:05:36
Oberschlumpf
Hi Frank,
wer ist ListBox1 ?
Davon war bisher nie die Rede.
Da müsstest du mal ne Bsp-Datei mit Bsp-Daten mit meinem Code mit Listbox1 (in Userform? in Tabelle?) per Upload zeigen.
Ciao
Thorsten
Anzeige
AW: alternativ wäre auch ...
14.05.2022 16:27:38
neopa
Hallo Frank,
... eine Formellösung oder auch eine Lösung ohne Formel und auch ohne VBA denkbar und zwar mit der Power Query Funktionalität. Allerdings ist mir Deine Aussage:
2.) Diese Zeilennummer für soll weitere Verwendung in Tabelle3 D3 eingetragen werden. nicht eindeutig verständlich.
Gruß Werner
.. , - ...

195 Forumthreads zu ähnlichen Themen

Vergleich zweier Tabellen mit Isolierung von Daten
Daten

Hallo,
ich habe zwei Tabellen.
Die erste Tabelle ist eine Liste mit ca. 20.000 Datensätzen, die Daten nach Ortsschlüssel, Produktnummer und Vertriebsweg enthalten.
Die zweite Tabelle ist eine Kreuztabelle mit Referenzwerten nach Produktnummer und Vertriebsweg. Die Produktnummern ste...
18.09.2008 14:30:00
Thread-ID: 1010741
3 Beiträge
Anzeige
Vergleich von zwei Tabellenblättern (zeilenweise)
zwei

Hallo zusammen,
Leider habe ich keine Ahnung von VBA und soll 2 Tabllenblätter zeilenweise miteinander vergleichen.
Wenn der Inhalt der Zeile 1 A1-P1 (Tabelle1) mit dem Inhalt der 1. Zeile A1-P1 (Tabelle 2) übereinstimmen, soll mit der Prüfung der 2. Zeile fortgefahren werden. Ansonsten...
14.10.2008 17:24:38
Thread-ID: 1016410
5 Beiträge
Vergleich in zwei Tabellenblättern
tuska

Hallo,
ich habe die Forumssuche schon benutzt bitte aber trotzdem um Hilfe bei folgendem Problem, uzw.
Tabellenblatt 1: in Spalte X habe ich den Zellinhalt von Spalten C5&S5 verbunden (Text u. Zahlen)
Tabellenblatt 2: in Spalte AQ habe ich die Zellen B2&AP2 verbunden (Text u...
20.10.2008 00:22:04
Thread-ID: 1017550
9 Beiträge
Anzeige
zwei tabellen vergleichen
kalle

hallo leute,
ich hoffe mir kann jemand helfen den ich kann kein vba.
ich habe folgende situation:
1.) ich habe zwei tabellen und möchte das zeilen (außer spalte E) die in tabelle1 aber nicht in tabelle2 vorhanden sind in tabelle3 eingetragen werden
2.) möchte ich zeilen die in t...
04.01.2009 13:48:46
Thread-ID: 1036719
4 Beiträge
Inhalt von zwei Tabellen zusammenführen
zwei

Hallo,
ich habe zwei Tabellenblätter.
Tabelle1 mit den Spalten "Kundennummer" und "Geburtstag"
Tabelle2 mit den Spalten "Kundennummer" und "Umsatz".
Die "Umsatz"-Spalte der Tabelle2 sollten in der Tabelle1 hinter der korrekten "Kundennummer" und hinter dem "Geburtstag" in einer...
05.01.2009 17:11:00
Thread-ID: 1037041
8 Beiträge
Vergleich zweier Tabellen mit zwei Abfragekriterie
nina

Hallo, ihr Lieben,
ich versuche schon seit einigen Stunden eine geeignete Formel zu kreieren, leider erfolglos.
...und nun bin ich hier und ich hoffe ihr könnt mir helfen....
ich habe zwei verschiedene Excel Tabellen an unterschiedlichen Speicherorten.
In der 1. Tabelle stehen...
12.02.2009 15:25:00
Thread-ID: 1050116
9 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
Spalteninhalte vergleichen über zwei Tabellen
Constantin

Hallo,
ich möchte bzw. muss zwei Tabellen (Tabelle1 und Tabelle2) in einer Arbeitsmappe zeilenweise und dann Spalte für Spalte vergleichen. Spalte 3 enthält jeweils einen eindeutigen Schlüssel (Nr.).
Mir wäre schon sehr geholfen, wenn ich wüsste, wie man eine größere Anzahl von Spalten...
14.01.2010 23:03:17
Thread-ID: 1130094
5 Beiträge
Anzeige

Links zu Excel-Dialogen

ListBox UserForm

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