Live-Forum - Die aktuellen Beiträge
Datum
Titel
04.05.2024 20:49:40
Listbox - ausgewählte Zeile aus Tabellenblatt markieren
04.05.2024 16:03:54
Problem mit einer Regel bei bedingter Formatierung
04.05.2024 10:29:31
.Find(what:=..., Lookat:=xlWhole, LookIn:=xlValues) ->For
04.05.2024 09:44:33
Bestimmten bereich aus einem String per VBA separieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
520to524
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
520to524
520to524
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zwei Tabellen vergleichen, Dublikate herausfiltern

Zwei Tabellen vergleichen, Dublikate herausfiltern
19.11.2004 14:15:14
Sebastian
SORTIERPROBLEM
Ich habe folgendes Problem, zwei Tabellen je zwei Spalten. Aus diesen beiden Tabellen soll ich die Duplikate in eine dritte Tabelle abspeichern. Ich kopiere also beide Tabellen in Tabelle3 und sortiere die Inhalte und suche dann mit einem Sortierprogamm die Dubletten heraus, den Rest lösche ich. Soweit gut, im einzelnen funktionieren die Teile, im Zusammenspiel kommt beim Sortieren eine Fehlermeldung. Hier übersehe ich etwas und fehlt es mir eindeutig an Verständnis. Der Teil, welcher die Duplikate herausfiltert funktioniert ebenfalls.
Kann mir hier jemand einen Tipp geben...
*********************************************************************

Private Sub CommandButton1_Click()
Dim Target As Range
Dim wks As Worksheet
Dim rngA As Range, rngB As Range, wksA As Range
Dim iRow As Integer, iCounter As Integer, iCol As Integer
Application.ScreenUpdating = False
Set rngA = Worksheets("Tabelle1").Range("A1").CurrentRegion
Set rngB = Worksheets("Tabelle2").Range("A1").CurrentRegion
Set wks = Worksheets("Tabelle3")
Set wksA = Worksheets("Tabelle3").Range("A1").CurrentRegion
'SpalteA,B von Tabelle1 und Tabelle2 werden nach Tabelle3 kopiert
iCol = rngA.Columns.Count
If rngB.Columns.Count > iCol Then
iCol = rngB.Columns.Count
End If
For iCounter = 1 To iCol
wks.Cells(1, iCounter) = "Spalte" & iCounter
Next iCounter
wks.Rows(1).Font.Bold = True
rngA.Range("A1").CurrentRegion.Copy wks.Range("A2")
iRow = wks.Cells(Rows.Count, 1).End(xlUp).Row + 1
rngB.Range("A1").CurrentRegion.Copy wks.Cells(iRow, 1)
'Sprung auf Überschrift von Tabelle3
'Application.Goto Reference:="Extract"
'Sortieren von Tabelle 3
wksA.Range("A1").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:= _
xlGuess
'Datensatzduplikate herausfiltern
i = 2
While Cells(i, 1) <> ""
If Cells(i, 1) <> Cells(i + 1, 1) Then
Rows(i).Delete
ElseIf Cells(i, 2) <> Cells(i + 1, 2) Then
Rows(i).Delete
Else
While Cells(i, 1) = Cells(i + 1, 1) And Cells(i, 2) = Cells(i + 1, 2)
Rows(i + 1).Delete
Wend
i = i + 1
End If
Wend
wks.Columns.AutoFit
End Sub

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

Betreff
Datum
Anwender
Anzeige
AW: Zwei Tabellen vergleichen, Dublikate herausfiltern
19.11.2004 15:06:41
andre
Hallo Sebastian,
Du musst Excel auch mitteilen dass der Key1:=wksA.Range(..) ist. Wobei mit wksA nur der vor dem Übertragen gefüllte Bereich ist. Ich würde eher wks.columns("A:AA") gehen oder wo auch immer das aufhört ;-)
AW: Zwei Tabellen vergleichen, Dublikate herausfiltern
19.11.2004 16:06:05
Sebastian
Danke, mit dem Columns funktioniert es prächtig, allerdings auf der falschen Tabelle. Ich aktiviere zwar Tabelle3, der Sort-Befehl aber läuft auf Tabelle1. Gebe ich allerdings zum columns-Befehl noch die wks-SET-Variable hinzu, dann kommt ein Laufzeitfehler.
Untenstehender Sortierbefehl sortiert TABELLE1.

'Sortieren von Tabelle 3
Columns("A:AA").Sort key1:=Range("A1"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Untenstehender Sortierbefehl auf TABELLE2 bringt Laufzeitfehler.

'Sortieren von Tabelle 3
wks.Columns("A:AA").Sort key1:=Range("A1"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
IRGENDETWAS GRUNDSÄTZLICHES VERSTEHE ICH FALSCH. Es geht darum, den Focus auf Tabellenblatt3 zu legen und dann in diesem Blatt zu sortieren.
Kannst du mir nochmals einen Tipp geben...
Danke
Sebastian
******************************************************************

Private Sub CommandButton1_Click()
Dim Target As Range, key1 As Range
Dim wks As Worksheet
Dim rngA As Range, rngB As Range, wksA As Range
Dim iRow As Integer, iCounter As Integer, iCol As Integer
Application.ScreenUpdating = False
Set rngA = Worksheets("Tabelle1").Range("A1").CurrentRegion
Set rngB = Worksheets("Tabelle2").Range("A1").CurrentRegion
Set wks = Worksheets("Tabelle3")
Set wksA = Worksheets("Tabelle3").Range("A1").CurrentRegion
'SpalteA,B von Tabelle1 und Tabelle2 werden nach Tabelle3 kopiert
iCol = rngA.Columns.Count
If rngB.Columns.Count > iCol Then
iCol = rngB.Columns.Count
End If
For iCounter = 1 To iCol
wks.Cells(1, iCounter) = "Spalte" & iCounter
Next iCounter
wks.Rows(1).Font.Bold = True
rngA.Range("A1").CurrentRegion.Copy wks.Range("A2")
iRow = wks.Cells(Rows.Count, 1).End(xlUp).Row + 1
rngB.Range("A1").CurrentRegion.Copy wks.Cells(iRow, 1)
'Sprung auf Überschrift von Tabelle3
wks.Activate
Application.Goto Reference:="Extract"
'Sortieren von Tabelle 3 (mit wks oder wksa.columns(1) == Fehler!!)
Columns("A:AA").Sort key1:=Range("A1"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
'Datensatzduplikate herausfiltern
i = 2
While Cells(i, 1) <> ""
If Cells(i, 1) <> Cells(i + 1, 1) Then
Rows(i).Delete
ElseIf Cells(i, 2) <> Cells(i + 1, 2) Then
Rows(i).Delete
Else
While Cells(i, 1) = Cells(i + 1, 1) And Cells(i, 2) = Cells(i + 1, 2)
Rows(i + 1).Delete
Wend
i = i + 1
End If
Wend
wks.Columns.AutoFit
End Sub

Anzeige
AW: Zwei Tabellen vergleichen, Dublikate herausfiltern
19.11.2004 16:15:09
andre
Hallo Sebastian,
wo ist denn Extract? Wenn das nicht auf Tabelle3 ist dann ist es kein Wunder ...
Also nochmal
- wks vorn und beim key1 !!
'Sortieren von Tabelle 3
wks.Columns("A:AA").Sort key1:=wks.Range("A1"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
oder
'Sortieren von Tabelle 3
Sheets("Tabelle3").Activate
Columns("A:AA").Sort key1:=Range("A1"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Für Tabelle2 entsprechend, nur wenn Du es mit wks machst musst Du dem vorher Tabelle2 auch zuweisen.
Grüße, Andre
Anzeige
AW: Zwei Tabellen vergleichen, Dublikate herausfiltern
19.11.2004 16:40:55
Sebastian
Danke, Andre... das SORT funktioniert. Ich weiss jetzt, wo es bei meinem Verständnis hapert. Jetzt funktioniert das Sortieren auf Tabelle3... was plötzlich nicht mehr läuft ist das Herausfiltern der Duplikate. VBA macht es jetzt wieder auf Tabelle1 (ich mein, die Duplikatefunktion läuft prächtig, aber auf dem falschen Tabellenblatt.)... hmmm, da habe ich einen Knopf. Wir haben den Focus beim Sortieren auf Tabelle3 gelegt, strange... etwas kapiere ich da nicht, wie VBA das mit den Tabellenblättern macht...
Hast du mir noch eine Idee...
Sebastian 


Private Sub CommandButton1_Click()
Dim Target As Range
Dim wks As Worksheet
Dim rngA As Range, rngB As Range, wksA As Range
Dim iRow As Integer, iCounter As Integer, iCol As Integer, iRowT As Integer
Application.ScreenUpdating = False
Set rngA = Worksheets("Tabelle1").Range("A1").CurrentRegion
Set rngB = Worksheets("Tabelle2").Range("A1").CurrentRegion
Set wks = Worksheets("Tabelle3")
Set wksA = Worksheets("Tabelle3").Range("A1").CurrentRegion
'SpalteA,B von Tabelle1 und Tabelle2 werden nach Tabelle3 kopiert
iCol = rngA.Columns.Count
If rngB.Columns.Count > iCol Then
iCol = rngB.Columns.Count
End If
For iCounter = 1 To iCol
wks.Cells(1, iCounter) = "Spalte" & iCounter
Next iCounter
wks.Rows(1).Font.Bold = True
rngA.Range("A1").CurrentRegion.Copy wks.Range("A2")
iRow = wks.Cells(Rows.Count, 1).End(xlUp).Row + 1
rngB.Range("A1").CurrentRegion.Copy wks.Cells(iRow, 1)
'Sprung auf Überschrift von Tabelle3
Sheets("Tabelle3").Activate
'Sortieren von Tabelle 3
wks.Columns("A:AA").Sort key1:=wks.Range("A1"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
'Datensatzduplikate herausfiltern
'Sheets("Tabelle3").Activate --> hat keine Wirkung
i = 2
While Cells(i, 1) <> ""
If Cells(i, 1) <> Cells(i + 1, 1) Then
Rows(i).Delete
ElseIf Cells(i, 2) <> Cells(i + 1, 2) Then
Rows(i).Delete
Else
While Cells(i, 1) = Cells(i + 1, 1) And Cells(i, 2) = Cells(i + 1, 2)
Rows(i + 1).Delete
Wend
i = i + 1
End If
Wend
wks.Columns.AutoFit
End Sub

Anzeige
AW: Zwei Tabellen vergleichen, Dublikate herausfiltern
19.11.2004 17:24:59
andre
Hallo Sebastian,
Im letzten teil vom code löschst Du die Daten wieder weg, die Du von Tabelle1 auf Tabelle3 kopiert hast. Du müsstest die Schleife mal vom Ende beginnen dann könnte es was werden.
Du müsstest mal versuchen, Dich auf eine Art des Umgangs mit den Blättern zu konzenentrieren - zumindest in einem Projekt, dann kommt man auch nicht so durcheinander. Ich arbeite ganz gerne ohne das Activate. Man sieht zuweilen etwas besser durch wenn man die Blattnamen direkt an der benötigten Stelle verwendet, das verlängert aber den code, und da hilft das with ...
Hier mal einige Varianten:
'1.
Set wks = Worksheets("Tabelle3")
..
wks.Columns("A:AA").Sort key1:=wks.Range("A1"), ...
...
'2.
Set wks = Worksheets("Tabelle3")
..
With wks
.Columns("A:AA").Sort key1:=.Range("A1"), ...
End With
...
'3.
'ohne set
..
Sheets("Tabelle1").Columns("A:AA").Sort key1:=Sheets("Tabelle1").Range("A1"), ...
...
'4.
'ohne set
..
With Sheets("Tabelle1")
.Columns("A:AA").Sort key1:=.Range("A1"), ...
End With
Das Du auf dem falschen Blatt bist hängt bestimmt mit Deinem Berecich Extract zusammen. Also nicht einfach weglöschen, sondern dorthin setzen, wo Du es benötigst. Auf Tabelle3 bist Du spätestens bzw. ab dem ...Activate. Wo Du vorher bist hängt davon ab, wo Du gerade warst als Du das Makro gestartet hast. Wo Dein Makro an manchen Stellen was macht hast Du über die Bereiche definiert.
Noch ein Tip: Wenn Du es dann geschafft hast versuche mal als zweite Lösung die Funktion Spezialfiltern - ohne Duplikate. Da musst Du die Daten aber auf dem gleichen Blatt zwischenparken und dann ausschneiden und auf Tabelle3 einfügen ;-)
Grüße, Andre
Anzeige
AW: Zwei Tabellen vergleichen, Dublikate herausfiltern
19.11.2004 17:28:55
andre
Hallöchen,
das mit dem löschen passt, ich hatte beim testen nur gerade keine Duplikate ;-)
Grüße, Andre
AW: Zwei Tabellen vergleichen, Dublikate herausfiltern
20.11.2004 00:18:22
Sebastian
Ich werde das mal durchdenken. Nochmals, Danke.
Sebastian
AW: Zwei Tabellen vergleichen, Dublikate herausfiltern
19.11.2004 17:13:43
Sebastian
Hat sich erledigt. Das Ding funktioniert.
Ich danke DIR Andre, wärst Du in meiner Gegend, wäre ein Bier Dir sicher. So hier einfach meine Wertschätzung Deiner Arbeit.
Sebastian
*************************************************

Private Sub CommandButton1_Click()
Dim Target As Range
Dim wks As Worksheet
Dim rngA As Range, rngB As Range, wksA As Range
Dim iRow As Integer, iCounter As Integer, iCol As Integer, iRowT As Integer
Application.ScreenUpdating = False
Set rngA = Worksheets("Tabelle1").Range("A1").CurrentRegion
Set rngB = Worksheets("Tabelle2").Range("A1").CurrentRegion
Set wks = Worksheets("Tabelle3")
'SpalteA,B von Tabelle1 und Tabelle2 werden nach Tabelle3 kopiert
iCol = rngA.Columns.Count
If rngB.Columns.Count > iCol Then
iCol = rngB.Columns.Count
End If
For iCounter = 1 To iCol
wks.Cells(1, iCounter) = "Spalte" & iCounter
Next iCounter
wks.Rows(1).Font.Bold = True
rngA.Range("A1").CurrentRegion.Copy wks.Range("A2")
iRow = wks.Cells(Rows.Count, 1).End(xlUp).Row + 1
rngB.Range("A1").CurrentRegion.Copy wks.Cells(iRow, 1)
'Sprung auf Überschrift von Tabelle3
Sheets("Tabelle3").Activate
'Sortieren von Tabelle 3
wks.Columns("A:AA").Sort key1:=wks.Range("A1"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
'Datensatzduplikate herausfiltern
i = 2
While wks.Cells(i, 1) <> ""
If wks.Cells(i, 1) <> wks.Cells(i + 1, 1) Then
wks.Rows(i).Delete
ElseIf wks.Cells(i, 2) <> wks.Cells(i + 1, 2) Then
wks.Rows(i).Delete
Else
While wks.Cells(i, 1) = wks.Cells(i + 1, 1) And wks.Cells(i, 2) = wks.Cells(i + 1, 2)
wks.Rows(i + 1).Delete
Wend
i = i + 1
End If
Wend
wks.Columns.AutoFit
End Sub

Anzeige

307 Forumthreads zu ähnlichen Themen

Suchen, Sverweis Vergleichen über einen Bereich
KLE

Hallo zusammen,
..habe mal wieder eine Blockade im Hirn und suche hier Unterstützung, Anregungen und/oder Ideen...
Folgende Herausforderung (Musterdatei liegt hier bei):
Ich habe eine Adressen-Liste und muss es aus statistischen Gründen in Gruppen zusammenfassen. Soll heißen, alle "...
18.08.2008 08:39:00
Thread-ID: 1002501
5 Beiträge
Anzeige
Vergleich zweier Tabellen mit Isolierung von Daten
Daten

Hallo,
ich habe zwei Tabellen.
Die erste Tabelle ist eine Liste mit ca. 20.000 Datensätzen, die Daten nach Ortsschlüssel, Produktnummer und Vertriebsweg enthalten.
Die zweite Tabelle ist eine Kreuztabelle mit Referenzwerten nach Produktnummer und Vertriebsweg. Die Produktnummern ste...
18.09.2008 14:30:00
Thread-ID: 1010741
3 Beiträge
Vergleich von Tabellen
Tabellen

https://www.herber.de/bbs/user/55577.xls
https://www.herber.de/bbs/user/55576.xls
Hallo,
ich möchte die beiden Tabellen aufgrund des darin enthaltenen Area Code vergleichen. Wichtig ist dabei ob sich die Tabelle 55577 gegenüber der Tabelle 55576 verändert hat, wichtig ist ob sich e...
22.09.2008 15:29:00
Thread-ID: 1011502
2 Beiträge
Anzeige
Vergleich von zwei Tabellenblättern (zeilenweise)
zwei

Hallo zusammen,
Leider habe ich keine Ahnung von VBA und soll 2 Tabllenblätter zeilenweise miteinander vergleichen.
Wenn der Inhalt der Zeile 1 A1-P1 (Tabelle1) mit dem Inhalt der 1. Zeile A1-P1 (Tabelle 2) übereinstimmen, soll mit der Prüfung der 2. Zeile fortgefahren werden. Ansonsten...
14.10.2008 17:24:38
Thread-ID: 1016410
5 Beiträge
Vergleich in zwei Tabellenblättern
tuska

Hallo,
ich habe die Forumssuche schon benutzt bitte aber trotzdem um Hilfe bei folgendem Problem, uzw.
Tabellenblatt 1: in Spalte X habe ich den Zellinhalt von Spalten C5&S5 verbunden (Text u. Zahlen)
Tabellenblatt 2: in Spalte AQ habe ich die Zellen B2&AP2 verbunden (Text u...
20.10.2008 00:22:04
Thread-ID: 1017550
9 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
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

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
4
2
2
1
7
4
8
3
15
3
7
5
8
3
2
7
12
1
5
4
1
4
1
4
4