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

Spalten vergleichen und angleichen

Forumthread: Spalten vergleichen und angleichen

Spalten vergleichen und angleichen
27.03.2008 19:48:45
Burghard
Hallo,
ich bräuchte mal Hilfe. Ich suche eine VBA-Lösung.
Ich möchte in einer Tabelle zwei Spalten vergleichen (Spalte A und Spalte D) und durch Einfügen von Zellen im Bereich der Spalten A bis C bzw. D bis E angleichen.
Ich habe ein Beispiel meiner Tabelle hochgeladen.
https://www.herber.de/bbs/user/51090.xls
Im oberen Bereich ist die Ausgangstabelle zu sehen. Darunter die Tabelle, wie sie nach dem Durchlauf des Makros aussehen sollte.
Meine Originaltabelle umfasst ca. 2000 Datensätze.
Hilfe wäre nett.
Schönen Gruß
Burghard

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Spalten vergleichen und angleichen
28.03.2008 01:17:00
Daniel
HI
könnte so funktionieren, wie es allerdings mit der Geschwindigkeit bei 2000 Datensätzen aussieht, weiß ich nicht.

Sub test()
Dim Bereich1 As Range
Dim Bereich2 As Range
Dim Zelle As Range
Set Bereich1 = Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row)
Set Bereich2 = Range("D2:D" & Cells(Rows.Count, "D").End(xlUp).Row)
Call Ergänzen(Bereich1, Bereich2)
Call Ergänzen(Bereich2, Bereich1)
Set Bereich1 = Range("A2:C" & Cells(Rows.Count, "A").End(xlUp).Row)
Set Bereich2 = Range("D2:F" & Cells(Rows.Count, "D").End(xlUp).Row)
Bereich1.Sort key1:=Bereich1(1, 1), order1:=xlAscending, header:=xlNo
Bereich2.Sort key1:=Bereich2(1, 1), order1:=xlAscending, header:=xlNo
On Error GoTo ende
For Each Zelle In Union(Bereich1.Columns(2), Bereich2.Columns(2)).SpecialCells(xlCellTypeBlanks) _
Zelle.Offset(0, -1).ClearContents
Next
ende:
On Error GoTo 0
End Sub




Private Sub Ergänzen(rng1 As Range, rng2 As Range)
Dim Zelle As Range
For Each Zelle In rng2
If WorksheetFunction.CountIf(rng1.EntireColumn, Zelle.Value)


https://www.herber.de/bbs/user/51095.xls
Gruß, Daniel

Anzeige
AW: Spalten vergleichen und angleichen
28.03.2008 14:25:37
Burghard
Hallo Daniel,
vielen Dank für den Code! Funktioniert 100 %. Der Abgleich dauert nur ein paar Sekunden. Super.
Schönen Gruß
Burghard
;

Forumthreads zu verwandten 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
Zeichenfolgen vergleichen und markieren
mehmet

Hallo Forum,
in Spalte G4:G92 habe ich mehrere Codes, z.B.:
G4
METAR EKAH 080850Z 18007KT 130V220 9999 SCT012TCU BKN100 18/16 Q1010=
G5
METAR UAAA 080900Z 03003MPS 010V080 9999 SKC 25/05 Q1017 55CLRD65 NOSIG RMK QFE704/0938=
G6
METAR ESSA 080920Z 04006KT 9999 SCT010...
08.09.2008 11:47:07
Thread-ID: 1008096
3 Beiträge
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
etwas komplexer vergleich zweier Spalten
Jonathan

Hallo liebe Experten,
ich stehe gerade vor einem, für mich etwas komplexeren, Problem. Ich denke aber, dass es für euch mit Sicherheit kein Problem darstellt.
Ich habe in einer Tabelle zwei Spalten (A + B). Jede der beiden Spalten kann den Wert "active" oder "on hold" haben. Die länge d...
20.10.2008 08:27:04
Thread-ID: 1017563
4 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
in bestimmten Spalten bestimmten Zellinhalt finden
Karsten

Hallo,
ich benötige einen Makrobefehl, der in den Spalten A,D,G,J,M den Zellinhalt 00:00 findet und diesen mit weißer Schrift einfärbt.
Danke für eure Hilfe.
Gruß
Karsten
08.03.2009 12:45:49
Thread-ID: 1057846
7 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
Anzeige

Beliebteste Forumthreads (12 Monate)

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