Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1828to1832
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
1828to1832
1828to1832
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zwei Spalten vergleichen

Zwei Spalten vergleichen
17.05.2021 22:46:08
Paddy
Hallo zusammen,
ich bin neu hier und auch in der VBA-Welt bin ich neu.
Für eine andere Tabelle habe ich ein Makro, wo übereinstimmende Werte zweier Reiter einer Excel in Spalte H gelb markiert werden. 

Sub Vergleich()
Dim x As Integer, y As Integer
Dim lastrow1 As Integer, lastrow2 As Integer, original As String
lastrow1 = Worksheets("Tabelle1").Cells(Rows.Count, 8).End(xlUp).Row
lastrow2 = Worksheets("Tabelle2").Cells(Rows.Count, 8).End(xlUp).Row
For x = 2 To lastrow1
original = Cells(x, 8)
For y = 2 To lastrow2
If Cells(y, 8) = original Then Cells(y, 8).Interior.ColorIndex = 6
Next
Next
End Sub
Nun möchte ich es aber so umschreiben, dass die fehlenden Inhalte in Spalte H in "Tabelle2" gelb markiert werden.
Dies müsste also folgende Passage betreffen:

If Cells(y, 8) = original Then Cells(y, 8).Interior.ColorIndex = 6
Wie genau muss dieses Makro umgeschrieben werden, damit die fehlenden Werte in Tabelle2 gelb hervorgehoben werden?
Vielen dank für Eure Hilfe und liebe Grüße
Paddy

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

Betreff
Datum
Anwender
Anzeige
AW: Zwei Spalten vergleichen
17.05.2021 23:58:11
Yal
Hallo Paddy,
ich gehe davon aus, dass "die fehlende Inhalte in Spalte H in Tabelle2"
eher "die Werte aus der Tabelle1, die keine Treffer in Tabelle2 gefunden haben"
gemeint ist.
Es fehlt mir schwer, eine andere Sinne darin zu finden.
VBA-Knowledge-Boost: verwende die Excel-Objekte. In dem Fall die "Range" und "Cell" (Cell ist auch ein Range)
Mit "With" wird nur noch "ab dem Punkt" geschrieben. Es vermeidet Wiederholung.

Sub Vergleich()
Dim Tab1 As Range
Dim Tab2 As Range
Dim Z1 As Range
Dim Z2 As Range
Dim Gefunden As boolen
With Worksheets("Tabelle1")
Set Tab1 = .Range(.Range("G2"), .Cells(Rows.Count, 8).End(xlUp))
End With
With Worksheets("Tabelle2")
Set Tab2 = .Range(.Range("G2"), .Cells(Rows.Count, 8).End(xlUp))
End With
For Each Z1 In Tab1.Cells
Gefunden = False
For Each Z2 In Tab2.Cells
If Z1.Value = Z2.Value Then
Z2.Interior.ColorIndex = 6
Gefunden = True
End If
Next
If Not Gefunden Then Z1.Interior.ColorIndex = 6
Next
End Sub
VG
Yal
Anzeige
AW: Zwei Spalten vergleichen
18.05.2021 07:55:08
Paddy
Hallo Yal,
vielen Dank für deine Hilfe, es macht schon mal was, was es soll :-)
Und entschuldige die blöde Erklärung. Natürlich hast du Recht, dass die fehlende Werte, die in Tab2 nicht gefunden wurden, in Tab1 markiert werden sollen. Das funktioniert auch.
Allerdings werden alle Werte in Tab2 Spalte G+H gelb markiert. Ich kann leider den Grund dafür im Code nicht finden.
Kannst du helfen?
LG
Paddy
Ich auch nicht
18.05.2021 08:19:02
Yal
:-)
Hallo Paddy,
eigentlich ist diese Code-Schnippsel kein Hexenwerk und das Färben von Zelle mit nicht gleichen Werte sollte nicht sein.
Versuchen wir mit einer Ausgabe in der Direkt-Fenster, um das zu prüfen:

Sub Vergleich()
Dim Tab1 As Range
Dim Tab2 As Range
Dim Z1 As Range
Dim Z2 As Range
Dim Gefunden As boolen
With Worksheets("Tabelle1")
Set Tab1 = .Range(.Range("G2"), .Cells(Rows.Count, 8).End(xlUp))
End With
With Worksheets("Tabelle2")
Set Tab2 = .Range(.Range("G2"), .Cells(Rows.Count, 8).End(xlUp))
End With
For Each Z1 In Tab1.Cells
Gefunden = False
For Each Z2 In Tab2.Cells
Z2.Interior.Pattern = xlNone
If Z1.Value = Z2.Value Then
Debug.Print Z1.Address, Z1.Value, Z2.Address, Z2.Value, Z1.Value = Z2.Value
Z2.Interior.ColorIndex = 6
Gefunden = True
End If
Next
If Not Gefunden Then Z1.Interior.ColorIndex = 6
Next
End Sub

VG
Yal
Anzeige
AW: Ich auch nicht
18.05.2021 09:32:31
Paddy
Hallo Yal,
er färbt die Spalten G und H in Tab2 immer noch ein. Mir scheint es, als ob dies aufgrund identischer Werte zwischen Tab1 Spalte G/H und Tab2 Spalte G/H passiert.
LG
Paddy
AW: Ich auch nicht
18.05.2021 09:59:12
Paddy
Hallo Yal,
er färbt die Spalten G und H in Tab2 immer noch ein. Mir scheint es, als ob dies aufgrund identischer Werte zwischen Tab1 Spalte G/H und Tab2 Spalte G/H passiert.
LG
Paddy
so wär's richtig
18.05.2021 10:33:33
Yal
Hallo Paddy,
hier die korrigierte Version

Sub Vergleich()
Dim Tab1 As Range
Dim Tab2 As Range
Dim Z1 As Range
Dim Z2 As Range
Dim Gefunden As boolen
With Worksheets("Tabelle1")
Set Tab1 = .Range(.Range("H2"), .Cells(Rows.Count, 8).End(xlUp))
End With
With Worksheets("Tabelle2")
Set Tab2 = .Range(.Range("H2"), .Cells(Rows.Count, 8).End(xlUp))
End With
For Each Z1 In Tab1.Cells
Gefunden = False
For Each Z2 In Tab2.Cells
Z2.Interior.Pattern = xlNone
If Z1.Value = Z2.Value Then
Z2.Interior.ColorIndex = 6
Gefunden = True
End If
Next
If Not Gefunden Then Z1.Interior.ColorIndex = 6
Next
End Sub
VG
Yal
Anzeige
Ach so: Spalte 8 ist H! (7 ist G) oT
18.05.2021 10:23:26
Yal
AW: Ach so: Spalte 8 ist H! (7 ist G) oT
18.05.2021 10:33:27
Paddy
Hallo Yal,
stimmt, guten Morgen :-D
Die Spalte H in Tab2 wird aber weiterhin gefärbt, hab es jetzt aber hinbekommen, dass die Färbung nur in Tab1 passiert.
Danke für deine Hilfe.
LG
Paddy

302 Forumthreads zu ähnlichen Themen

Zwei Spalten in jeweils zwei Tabellen miteinander
Lutz

Liebe Leute,
ich habe zwei recht umfangreiche Tabellen mit Lieferdaten und dies in zwei von einander unabhängigen Tabellen.
In der Tabelle1 stehen neben anderen die Spalten Bestellnr. und Materialnr. sowie Lieferantennr. In der Tabelle2 stehen wiederum die Spalten Bestellnr. und Materia...
08.08.2008 15:56:55
Thread-ID: 1000336
4 Beiträge
Anzeige
VBA--Zellen finden/vergleichen/kopieren
Christian

Hallo
einen Beispieldatei ist anbei!!
Bisher konnte ich mit folgendem Code Zellinhalte "täglich" teilen und in neue Zellen kopieren.
Sheets("179").Select Range("B255").End(xlUp).Offset(1, 0).Select ActiveCell.FormulaR1C1 = "=TRIM(LEFT('tägliche Statistik'!R12C6,FIND(""/"",'täglic...
07.10.2008 10:15:00
Thread-ID: 1014634
3 Beiträge
Zwei Werte Vergleichen....
chrissey

Hallo Leut,
hätte ne easy Frage:
Habe in Zelle A1 einen Wert, sagen wir mal "HANS", stehen und möchte nun eine Mtrix nach diesen Wert absuchen
sagen wir mal die Zellen
B10 bis B100 (gefüllt mit Namen: PETER; DIETER; ...... ; HANS; usw.)
wie mach ich des? Vergleich gibt mir...
10.10.2008 15:09:52
Thread-ID: 1015606
3 Beiträge
Anzeige
zwei Spalten vergleichen
Schmidt

Guten Tag,
ich bin langsam am verzweifeln, was Excel angeht. Jetzt habe ich endlich meine 2000-Zeilen Tabelle fertig und da fällt doch glatt auf, dass es noch eine Tabelle gibt, die parallel geführt wurde.
Das Problem: es könnte sein, dass einzelne Komponenten nicht in beiden Tabellen e...
28.10.2008 10:38:01
Thread-ID: 1019838
6 Beiträge
Formel zum Abgleich zweier Spalten
Tina

Nabend.
Ich habe in Spalte A ganze viele Auftragsnummern und in Spalte B ebenso. Ich möchte mit einer Formel die beiden Spalten vergleichen und alle die in Spalte A sind und in Spalte noch noch sollen in Spalte C von Zelle a1 an abwärts ausgwiesen werden. geht das? danke für hilfe.
tinc...
28.11.2008 17:14:00
Thread-ID: 1028749
2 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
Doppelte über zwei Spalten - vergleichen
Wolfgang

Hallo,
in einer Mappe befinden sich zwei Tabellenblätter. Gibt es eine Chance, beide Tabellenblätter abzugleichen, ob Datensätze doppelt vorkommen? - Schwierigkeit dabei mag aber sein, dass für die Suche sowohl die Spalte D, als auch Spalte E zu Grunde zu legen wären. Nur also, wenn die Dat...
09.01.2009 17:26:12
Thread-ID: 1038283
5 Beiträge
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
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
3
2
2
2
3
5
1
10
4
2
6
4
2
13
3
4
13
1
3
4
1
5
5
8
4