Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1548to1552
1548to1552
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

2 Tabellen auf Werte vergleichen

Forumthread: 2 Tabellen auf Werte vergleichen

2 Tabellen auf Werte vergleichen
22.03.2017 12:38:32
Christian
Moin,
ich habe zwei Spalten, welche Nummern beinhalten. In der einen Spalte sind etwa 800 Werte in der anderen nur 780. Jetzt möchte ich wissen welche Zahlenwerte sind über. Eigentlich ganz Simpel aber ich bekomme es nicht hin. Die Werte die über sind, sollen dann quasi in eine neue Spalte übertragen werden.
Habt ihr Ideen?
Viele Grüße
Christian
Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 2 Tabellen auf Werte vergleichen
22.03.2017 13:52:08
Anton
Hi Christian,
vielleicht etwas umständlich aber geht das in die Richtung? 
Sub Vergleichen()
Dim lngZMaxA As Long
Dim lngZMaxB As Long
Dim y As Long
Dim wksBlatt As Worksheet
Set wksBlatt = ThisWorkbook.Worksheets("Tabelle3") 'Tabellenblatt anpassen
y = 1
With wksBlatt
lngZMaxA = .Cells(.Rows.Count, 1).End(xlUp).Row 'Maximale Länge Spalte A bestimmen
lngZMaxB = .Cells(.Rows.Count, 2).End(xlUp).Row 'Maximale Länge Spalte B bestimmen
If lngZMaxA > lngZMaxB Then
For i = lngZMaxB To lngZMaxA
.Cells(y, 6).Value = .Cells(i + 1, 1).Value 'Differenzwerte werden in Spalte 6  _
ab Zeile 1 geschrieben ggf. anpassen
y = y + 1
Next i
Else
For i = lngZMaxA To lngZMaxB
.Cells(y, 7).Value = .Cells(i + 1, 2).Value 'Differenzwerte werden in Spalte 7  _
ab Zeile 1 geschrieben ggf. anpassen
y = y + 1
Next i
End If
End With
End Sub
VG Anton
Anzeige
AW: 2 Tabellen auf Werte vergleichen
22.03.2017 14:13:59
Christian
Moin Anton und vielen Dank für deine Antwort.

Sub Vergleichen()
Dim lngZMaxA As Long
Dim lngZMaxB As Long
Dim y As Long
Dim wksBlatt As Worksheet
Set wksBlatt = ThisWorkbook.Worksheets("Tabelle1") 'Tabellenblatt anpassen
y = 3
With wksBlatt
lngZMaxA = .Cells(.Rows.Count, 2).End(xlUp).row 'Maximale Länge Spalte B bestimmen
lngZMaxB = .Cells(.Rows.Count, 4).End(xlUp).row 'Maximale Länge Spalte D bestimmen
If lngZMaxA > lngZMaxB Then
For i = lngZMaxB To lngZMaxA
.Cells(y, 6).Value = .Cells(i + 1, 1).Value 'Differenzwerte werden in Spalte 6  _
_
ab Zeile 3 geschrieben ggf. anpassen
y = y + 1
Next i
Else
' do nothing
End If
End With
End Sub
Ich möchte im Grunde 2 Spalten miteinander vergleichen und wenn die Materialnummern in irgendeiner Zelle voneinander abweichen, sollen diese Werte in eine Spalte geschrieben werden. Ich habe deinen Code mal ein wenig angepasst (Leider klappt er noch nicht) und eine Beispieldatei hochgeladen. In Tabelle 1 sind die Daten. Vielen Dank für deine Mühen :)
https://www.herber.de/bbs/user/112348.xlsm
Anzeige
AW: 2 Tabellen auf Werte vergleichen
22.03.2017 14:24:01
Fennek
Hallo,
anderer Vorschlag:
Unterschiede der Spalten B und D:

=ZÄHLENWENN(D3;$B$3:$B$795)
und danch Autofilter auf 0
mfg
AW: 2 Tabellen auf Werte vergleichen
22.03.2017 15:05:05
Christian
@Fennek genau so ging ich am Anfang auch an die Aufgabe heran.. bis ich dann merkte, das es gar nicht klappen kann. Angenommen, die beiden Werte sind nicht in der gleichen Zeile sondern die eine Materialnummer befindet sich in Zeile 4 und die andere in Zeile 29, dann zeigt mir die Funktion nur an, das es in der Zeile keine Übereinstimmung gab aber der Wert ist dennoch vorhanden. Kannst du mir folgen?
Anzeige
probier mal diesen Code...
22.03.2017 15:08:51
robert 

Sub A_B()
Dim EndeA As Integer, EndeB As Integer, ZeileA As Integer, ZeileB As Integer, ZeileC As  _
Integer, Gefunden As Range
Application.ScreenUpdating = False  ' Abschalten Bildschirmaktualisierung
Columns(5).Clear
EndeA = Range("A1").End(xlDown).Row
EndeB = Range("B1").End(xlDown).Row
ZeileC = 1
If EndeA > EndeB Then
Cells(1, 4) = "Fehlt in B"
For ZeileA = 1 To EndeA
With Range(Cells(1, 2), Cells(EndeB, 2))
Set Gefunden = .Find(Cells(ZeileA, 1), , xlValues, xlWhole)
End With
If Gefunden Is Nothing Then
Cells(ZeileC, 5) = Cells(ZeileA, 1)
ZeileC = ZeileC + 1
End If
Next ZeileA
Else
Cells(1, 4) = "Fehlt in A"
For ZeileB = 1 To EndeB
With Range(Cells(1, 1), Cells(EndeA, 1))
Set Gefunden = .Find(Cells(ZeileB, 2), , xlValues, xlWhole)
End With
If Gefunden Is Nothing Then
Cells(ZeileC, 5) = Cells(ZeileB, 2)
ZeileC = ZeileC + 1
End If
Next ZeileB
End If
Application.ScreenUpdating = True  ' Einschalten Bildschirmaktualisierung
End Sub
Gruß
robert
Anzeige
AW: probier mal diesen Code...
23.03.2017 20:05:42
Christian
Ich wollte mich auf jeden Fall nochmal melden, erst mal vielen lieber Dank für den Code, ich bin gerade dabei ihn zu verstehen und auf meinen Fall anzuwenden. Also ich nehme mir auf keinen Fall einen Code ohne Danke oder einer Rückmeldung aber in den letzten Tagen war einfach zu viel los :)
AW: probier mal diesen Code...
23.03.2017 21:13:45
Christian
Nein Sorry aber ich versteh nicht, was du mit Spalte 4 vor hast. Ich habe zwei Spalte, einmal Spalte B und einmal Spalte D. Spalte B ist die Referenzspalte welche mit Spalte D verglichen werden soll. In Spalte F sollen dann die Zeilen reingeschrieben werden, die in Spalte D fehlen im Vergleich mit B. B hat mehr Zeilen als D. Daher will ich wissen, welche Zeilen fehlen da.
Kann mir einer vielleicht helfen? Ich fürchte mit diesen Quellcode wird es nichts. Ich stelle mir eigentlich eine ganz einfache Vergleichsfunktion vor.
Anbei eine aktuelle Testliste
https://www.herber.de/bbs/user/112384.xlsm
Anzeige
was soll da nicht funktionieren...
24.03.2017 08:11:50
robert
wenn du deine spalte B in spalte A kopiert hättest
und deine spalte D in spalte B, dann hättest du gesehen, dass der Code läuft!
im code dann die anpassung der spalten vornehmen, wäre auch keine kunst gewesen.
aber wenn du nicht mal dazu imstande bist-naja...
gruß
robert
AW: 2 Tabellen auf Werte vergleichen
23.03.2017 22:27:34
KlausF
Hallo Christian,
Code läuft ca 60 Sekunden:
Sub Vergleich()
Dim strSuche As String
Dim i As Long
Dim x As Long
Dim lastRowB As Long
Dim lastRowD As Long
lastRowB = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row
lastRowD = ActiveSheet.Cells(Rows.Count, "D").End(xlUp).Row
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For i = 3 To lastRowB
strSuche = Range("B" & i).Value
Range("F" & Cells(Rows.Count, "F").End(xlUp).Row + 1) = strSuche
For x = 3 To lastRowD
If Range("D" & x) = strSuche Then
Range("F" & Cells(Rows.Count, "F").End(xlUp).Row).ClearContents
Exit For
End If
Next x
Next i
For i = 3 To lastRowD
strSuche = Range("D" & i).Value
Range("F" & Cells(Rows.Count, "F").End(xlUp).Row + 1) = strSuche
For x = 3 To lastRowB
If Range("B" & x) = strSuche Then
Range("F" & Cells(Rows.Count, "F").End(xlUp).Row).ClearContents
Exit For
End If
Next x
Next i
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

Gruß
Klaus
Anzeige
Korrektur
23.03.2017 22:43:52
KlausF
Hi,
habe erst jetzt gesehen, dass Du Deine Aussage noch einmal präzisierst hast
und nur Spalte B mit D vergleichen willst. Dann kann man sich die 2. Schleife sparen
(dauert jetzt ca 30 Sekunden):
Sub Vergleich()
Dim strSuche As String
Dim i As Long
Dim x As Long
Dim lastRowB As Long
Dim lastRowD As Long
lastRowB = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row
lastRowD = ActiveSheet.Cells(Rows.Count, "D").End(xlUp).Row
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For i = 3 To lastRowB
strSuche = Range("B" & i).Value
Range("F" & Cells(Rows.Count, "F").End(xlUp).Row + 1) = strSuche
For x = 3 To lastRowD
If Range("D" & x) = strSuche Then
Range("F" & Cells(Rows.Count, "F").End(xlUp).Row).ClearContents
Exit For
End If
Next x
Next i
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
Gruß
Klaus
Anzeige
AW: 2 Tabellen auf Werte vergleichen
23.03.2017 22:44:32
Christian
Wahnsinn Klaus, das ist echt krass. Der Code läuft auf Anhieb und sogar in 5 sekunden bei mir :) Und ich verstehe auch die Struktur und den Ablauf. Der Code ist wirklich sehr hilfreich um noch stärker in die Materie vorzudringen. Vielen Dank.
Viele Grüße
Christian
Gerne, aber ...
23.03.2017 23:00:00
KlausF
Hi Christian,
danke für die Rückmeldung. Aber beachte auch die Korrektur!
In diesem Code wird auch noch D mit B verglichen und das ist
ja überflüssig (um nicht zu sagen: Falsch)
Gruß
Klaus
Anzeige

Forumthreads zu verwandten Themen

Berichtsfilterwert auch für andere Pivottabellen
Stefan

Hallo,
habe da eine Frage bzgl. des Berichtsfilters in Pivotabellen. Folgender Sachverhalt:
In einer Datei gibt es auf mehreren Arbeitsblättern Pivottabellen. Alle Pivots haben das Kriterium "Kalenderwoche" im Berichtsfilter. Wie kann ich, wenn ich mir in einer "Master-Pivottabelle" ein...
25.09.2008 10:58:00
Thread-ID: 1012265
2 Beiträge
Daten aus Pivot-Tabelle kopieren
Thomas

Guten Abend ,
wie kann ich per Schaltfläche einen Datenbereich aus einer Pivottabelle kopieren und in einem anderen Tabellenblatt einfügen?
Gruß
Thomas
03.10.2008 21:10:24
Thread-ID: 1014090
2 Beiträge
Anzeige
Aus zwei Tabellen eine Machen
SebastianSchelb

Hallo ich brauche euere Hilfe. Aleine schaffe ich es einfach nicht.
Ich habe eine zwei Tabelle mit Wörtern die zusammengefasst werden soll in eine Tabelle, in welcher aber kein Wort doppelt sein soll. Die anzahl der Wörter der 1. und 2. Tabelle vareieren von Tag zu Tag
Tabelle 1 (in der...
06.10.2008 14:52:00
Thread-ID: 1014455
5 Beiträge
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
Liste aus zwei Tabellen
kirsche

hallo leute,
mal wieder brauche ich eure hilfe.
ich möchte eine liste erstellen, die sich aus zwei tabellen zusammen setzt.
1.tabelle = oberbegriffe
2.tabelle = unterbegriffe
nun soll in der liste der erste oberbegriff eingetragen werden und dann die dazugehörigen unterbegr...
19.10.2008 12:36:48
Thread-ID: 1017454
5 Beiträge
Auswahlliste Pivot-Tabelle
Zoran

Hallo zusammen.
Habe da mal eine Frage zur Pivot-Tabelle.
Ich habe z.B. folgende Datenbasis:
https://www.herber.de/bbs/user/56365.xls
Wie kriege ich es hin, dass wenn ich Deutschland auswähle, nur noch die Städte in der Auswahl sind, die zu Deutschland gehören?
Vielen Dank...
29.10.2008 09:33:00
Thread-ID: 1020145
6 Beiträge
Zwei Tabellen vergleichen
Manfred

Hallo zusammen,
ich habe mal wieder ein Problem.
Ich bekomme von u.g. Code einen Indexfehler.
Ich finde den Fehler nicht. Kann mir jemand helfen ? Oder gibts ne andere Lösung.
Sub Tab1_zu_Tab2_vergleichen2() 'vergleicht Alphanumerische Werte Tab1, Sp.B mit Alphanumerieschewert...
05.11.2008 11:43:00
Thread-ID: 1021820
16 Beiträge
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
Anzeige
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
Anzeige
Pivot Tabelle in Array auslesen & neu erstellen
Andreas

Hallo Herber Fans,
da PivotTabellen sich nicht immer rational verhalten, ist es zuweilen notwendig, diese zu löschen und komplett neu aufzubauen, damit sie wieder fehlerlos sind und andere VBA Codes die mit ihnen arbeiten, nicht zum Absturz bringen.
Was ich nun realisierte, war ein Code...
12.02.2009 19:20:00
Thread-ID: 1050227
4 Beiträge
Pivot-Tabelle und Grafik
Wyle

Moin,
in meinem Excel-File verdichte ich jede Menge Daten in einer Pivot-Tapelle. Das Ergebnis dieser Tabelle wird dann weiterverarbeitet, indem im Anschluß daran weitere Spalten gestellt werden, die Daten via Sverweis und summenprodukt wiederum von anderen Blättern Inhalte holt. Nun will i...
26.02.2009 09:52:16
Thread-ID: 1054235
2 Beiträge
abhängige Berichtsfilter bei Pivottabellen
Arne

Hallöchen,
ich habe eine Pivottabelle erstellt, die auf einer SQL Abfrage basiert.
Bei den Berichtfiltern gibt es Mandant und Arbeitnehmer.
Die Filter greifen auch 1a bei dem Wertebereich, nur leider sind in der Datenbank 5 Mandanten mit jeweils ca. 200 Arbeitnehmern. Im Berichtfilt...
11.04.2009 15:07:24
Thread-ID: 1068306
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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