Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
964to968
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
964to968
964to968
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

307 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