Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
25.04.2024 11:49:37
Array verwenden
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
916to920
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
916to920
916to920
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalten sortieren und vergleichen

Spalten sortieren und vergleichen
21.10.2007 18:08:00
Rob
Einen wunderschönen guten Tag an alle,
ich sitze nun seit Stunden an einem Problem und es will mir einfach nicht gelingen.
Ich habe zwei Spalten A und B in einem Tabellenblatt.
In Spalte A befinden sich 183 Zeilen mit Werten (Zeichenfolgen) und in Spalte B befinden sich z.B. 55 Zeilen mit Werten.
Nun möchte ich Spalte B mit Spalte A vergleichen. Dabei soll sich Spalte B an Spalte A orientieren.
Was soll genau passieren: 1. ist ein Wert von Spalta B nicht in Spalte A, soll dieser in Spalte C
geschrieben werden und in Spalte B gelöscht werden
2. ist Spalte B von diesen Werten bereinigt, soll sie sortiert werden nach
Spalte A (also Lücken mit leeren Zellen )
Wichtig wäre zu sagen, dass ich das in Form eines Makros benötige..Dankeschön
- kleine Hilfe zum verdeutlichen was mein Ziel ist
Grundversion
Spalte A --------- Spalte B
AB12430044 AB12430044
AB12430144 AB12430346
AB12430240 AB12430844
AB12430241 AB12430977
AB12430344 AB12431145
AB12430349 AB12431344
AB12430800
AB12430977
AB12431145
AB12431344
SO SOLL ES DANN AUSEHEN
Spalte A --------Spalte B ----------Spalte C
AB12430044 AB12430044 AB12430346
AB12430144 AB12430844
AB12430240
AB12430241
AB12430344
AB12430349
AB12430800
AB12430977 AB12430977
AB12431145 AB12431145
AB12431344 AB12431344
Der ganze Sonntag ist deshalb draufgegangen. Ach und ja, ich habe mich mit dem Forum beschäftigt und auch die Suche verwendet, z.B. "Spalten vergleichen" doch bin ich zu keiner wahren Lösung mit den dort vorgeschlagenen Hilfen gekommen. Bin noch nen Neuling auf dem Gebiet der "Programmierung", in diesem Fall speziell mit VBA.
Ich möchte mich schon mal bedanken, für das Annehmen meines Problems
Gruß Rob

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

Betreff
Datum
Anwender
Anzeige
AW: Spalten sortieren und vergleichen
21.10.2007 19:45:00
Jan3
Hi Rob,
Probier mal folgenden Code aus.

Sub überprüfen()
Dim z As Long
Dim ws As Worksheet
Set ws = Worksheets("Tabelle1")
anzA = ws.Cells(Rows.Count, 1).End(xlUp).Row
anzB = ws.Cells(Rows.Count, 2).End(xlUp).Row
If ws.Cells(Rows.Count, 3).End(xlUp).Row = 1 Then
ze = ws.Cells(Rows.Count, 3).End(xlUp).Row + 1
End If
For z = 2 To anzB
suchzahl = ws.Cells(z, 2)
With ws.Range("a2:a" & anzA)
Set c = .Find(suchzahl, LookIn:=xlValues, LookAt:=xlWhole)
If c Is Nothing Then
ws.Cells(ze, 3) = suchzahl
ws.Cells(z, 2) = ""
ze = ws.Cells(Rows.Count, 3).End(xlUp).Row + 1
End If
End With
Next
End Sub


Jan

Anzeige
AW: Spalten sortieren und vergleichen
21.10.2007 22:05:00
Rob
Hi Jan,
erstmal danke für die schnelle Antwort. Also der Code schreibt zwar alle nicht vorhandenen Werte in die Spalte C und löscht sie aus Spalte B. Doch die Sortierung von Spalte B nach der Vorgabe von Spalte A bleibt aus.
Gruß rob

AW: Spalten sortieren und vergleichen
21.10.2007 22:36:00
Chaos
Servus Rob,
hier eine Modifiziuerung. Voraussetzung Spalte D ist frei und kann als Hilfsspalte benutzt werden, sonst mach aus dem D2 einfach ein IV2 (da stehen im Regelfall keine Daten).

Sub überprüfen()
Dim z As Long
Dim ws As Worksheet
Set ws = Worksheets("Tabelle1")
anzA = ws.Cells(Rows.Count, 1).End(xlUp).Row
anzB = ws.Cells(Rows.Count, 2).End(xlUp).Row
If ws.Cells(Rows.Count, 3).End(xlUp).Row = 1 Then
ze = ws.Cells(Rows.Count, 3).End(xlUp).Row + 1
End If
For z = 2 To anzB
suchzahl = ws.Cells(z, 2)
With ws.Range("a2:a" & anzA)
Set c = .Find(suchzahl, LookIn:=xlValues, LookAt:=xlWhole)
If c Is Nothing Then
ws.Cells(ze, 3) = suchzahl
ws.Cells(z, 2) = ""
ze = ws.Cells(Rows.Count, 3).End(xlUp).Row + 1
End If
End With
Next z
anzB = ws.Cells(Rows.Count, 2).End(xlUp).Row
ws.Range("B2:B" & anzB).Copy ws.Range("D2")
ws.Range("B2:B" & anzB).ClearContents
Dim y As Long
Dim suche As String
For y = 2 To anzB
If Cells(y, 4).Value  "" Then
suche = Cells(y, 4).Value
With ws.Range("A2:A" & anzA)
Set x = .Find(what:=suche, LookIn:=xlValues, LookAt:=xlWhole)
If Not x Is Nothing Then
Dim reihe As Long
reihe = x.Row
Range("B" & reihe).Value = suche
ws.Cells(y, 4) = ""
End If
End With
End If
Next y
End Sub


Gruß
Chaos

Anzeige
AW: Spalten sortieren und vergleichen
21.10.2007 23:01:00
Rob
Hi Chaos,
Dankeschön das sieht schon super aus. Das mit der freien Spalte kommt nocht hinzu...
In Spalte A steht meine Vorgabe, in Spalte B Werte zum Vergleich, nicht vorhandene kommen in Spalte C.
In Spalte D neue Werte, die dort zur Spalte A nicht vorhanden Werte sollen in Spalte E.
Dann geht das Spielchen weiter, insgesamt stehen in 121 Spalten Werte, die mit Spalte A verglichen werden.
Aber trotzdem Dankeschön für Deine Lösung, das hilft mir erstmal weiter :o)
gruß Rob

AW: Spalten sortieren und vergleichen
21.10.2007 23:25:34
Chaos
Servus Rob,
dann mach das so:

Sub überprüfen()
Dim z As Long
Dim ws As Worksheet
Set ws = Worksheets("Tabelle1")
anzA = ws.Cells(Rows.Count, 1).End(xlUp).Row
Dim spalte As Long
For spalte = 2 To 242 Step 2
anzB = ws.Cells(Rows.Count, spalte).End(xlUp).Row
If ws.Cells(Rows.Count, spalte + 1).End(xlUp).Row = 1 Then
ze = ws.Cells(Rows.Count, spalte + 1).End(xlUp).Row + 1
End If
For z = 2 To anzB
suchzahl = ws.Cells(z, spalte)
With ws.Range("a2:a" & anzA)
Set c = .Find(suchzahl, LookIn:=xlValues, LookAt:=xlWhole)
If c Is Nothing Then
ws.Cells(ze, spalte + 1) = suchzahl
ws.Cells(z, spalte) = ""
ze = ws.Cells(Rows.Count, spalte + 1).End(xlUp).Row + 1
End If
End With
Next z
anzB = ws.Cells(Rows.Count, spalte).End(xlUp).Row
ws.Range(Cells(2, spalte), Cells(anzB, spalte)).Copy ws.Range("IV2")
ws.Range(Cells(2, spalte), Cells(anzB, spalte)).ClearContents
Dim y As Long
Dim suche As String
For y = 2 To anzB
If Cells(y, 256).Value  "" Then
suche = Cells(y, 256).Value
With ws.Range("A2:A" & anzA)
Set x = .Find(what:=suche, LookIn:=xlValues, LookAt:=xlWhole)
If Not x Is Nothing Then
Dim reihe As Long
reihe = x.Row
Cells(reihe, spalte).Value = suche
ws.Cells(y, 256) = ""
End If
End With
End If
Next y
Next spalte
End Sub


Hier müssen, wie du beschrieben hast die Werte, die verglichen werden, ab Spalte B in jeder 2.Spalte stehen, also, B, D, F,u.s.w. . Das Makro vergleicht 121 Spalten mit Spalte A und schreibt die nicht gleichen Werte jeweils in die Nachbarspalte, also B nach C und D nach E, u.s.w.. Die Hilfsspalte ist also IV.
Gruß
Chaos

Anzeige
AW: Spalten sortieren und vergleichen
21.10.2007 23:58:00
Rob
Also Chaos,
ich bin schwer beeindruckt von der Lösung. Es funktioniert so wie ich es mir vorgestellt habe. Ich hätte nie gedacht, dass das Makro so kompliziert aussehen kann. Vielen Dank :o)

AW: Spalten sortieren und vergleichen
22.10.2007 09:45:02
Günter
Hallo und Guten Tag,
schalte mich ein, da ich den Code toll finde.
Wenn ich den Code bei mir laufen lasse und es mehere
nicht vorhandene gibt, dann bekomme ich einen Lauf-
zeitfehler 1004.
1 8
2 2
3 9
4
5 5
6
In Spalte C müsste jetzt 8 (ist da) und die 9 stehen.
9 fehlt und 1004-Fehler kommt.
Gruss
Günter

AW: Spalten sortieren und vergleichen
22.10.2007 10:58:00
Chaos
Servus Günter,
das kann ich nicht nachvollziehen. Bei mir funktionieren der Ursprungscode, als auch der modifizierte Code einwandfrei.
Gruß
Chaos

Anzeige
AW: Spalten sortieren und vergleichen
22.10.2007 11:29:00
Erich
Hallo Günter,
liegt es vielleicht daran, dass Chaos' Code von einer Überschriftzeile 1 ausgeht,
die Daten also ab Zeile 2 auswertet?
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

AW: Spalten sortieren und vergleichen
22.10.2007 11:44:00
Chaos
Servus Erich,
das glaub ich eher nicht, weil sonst müsste ja die 8 fehlen und es fehlt ihm ja die 9. Und selbst dann dürfte kein Laufzeitfehler auftreten, sondern nur der Wert nicht vorhanden sein. Evtl. hat er in der zeile 65536 etwas stehen, wobei auch das nicht der Grund sein sollte.
Gruß
Chaos

AW: Spalten sortieren und vergleichen
22.10.2007 11:44:00
Günter
Hallo,
danke für die Rückmeldung.
Code funktioniert jetzt.
Gruss
Günter

Anzeige
AW: Und woran hat es gelegen? o.T.
22.10.2007 11:53:25
Chaos
.

301 Forumthreads zu ähnlichen Themen

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
Anzeige
Tabellenblätter vergleichen
Jockel

Hi,
ich habe ein Tabellenblatt (Tabelle1) mit ca. 150 bis 200 Spalten. Alle Spalten haben in Zeile1 einen Spaltenüberschrift.
Damit ich informiert bin, wenn jemand einen zusätzliche Spalte einfügt, wollte ich dieses Tabellenblatt mit einem Muster (Tabellenblatt2) vergleichen. In diesem...
12.11.2008 08:49:52
Thread-ID: 1023706
13 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
Anzeige
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
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
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
Spalten vergleichen und Ausgabe in neues Worksheet
Bolo

Hallo liebe Community,
ich habe hier eine Tabelle in der in Zeile 4 verschiedene Daten (von Datum) stehen.
Bsp.:
C4+D4=01.01.2009 / E4+F4=02.01.2009 / G4+H4=03.01.2009 usw.
So in C5 und D5 (...) stehen Werte. Es gibt immer für jeden Tag 2 Werte.
Nun soll das Makro die beiden...
01.04.2009 15:21:36
Thread-ID: 1066031
3 Beiträge
2 TabellenBlätter vergleichen - gleiche markieren
Andy

Hallo,
ich habe 2 unterschiedliche Tabellen in denen ein Mitgliederabgleich durch geführt werden soll.
In der Tabelle1 sind die Namen der Mitglieder einer Gruppe zusammen in einer Zelle hinter einander geschrieben; in der der Tabelle2 sind alle Mitglieder unter einander (jeweils neue Ze...
16.04.2009 11:44:02
Thread-ID: 1069028
13 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
7
15
12
10
3
2
5
4
2
12
13
1
3
4
1
5
7
6
4
1
1
8
4
1
4