Anzeige
Archiv - Navigation
276to280
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
276to280
276to280
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Werte in 2 Tabellen vergleichen

Werte in 2 Tabellen vergleichen
07.07.2003 16:06:25
Andreas
Hallo Excelgemeinde,
ich brauche mal eure Hilfe. In 2 Tabellen der gleichen Datei, jeweils in SpalteA stehen Artikelnummern (nicht sortiert). Jetzt möchte ich die SpalteA in der Tabelle1 mit der SpalteA in der Tabelle2 vergleichen und die doppelt vorkommenden in der Tabelle2 löschen sowie den dazugehörigen Wert in der Spalte B. Die Tabelle1 soll unverändert bleiben. Kann mir da jemand helfen?
Gruss Andreas

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte in 2 Tabellen vergleichen
07.07.2003 16:39:05
Andreas
Hallo Bernd, hallo Chris,
die Makros von euch funktionieren alle beide super. Jetzt habe ich nur die Qual der Wahl...:-) aber lieber so als garnicht.
Schönen Dank an euch für die schnelle Hilfe
Gruss Andreas

AW: Lösungen funktionieren nicht
07.07.2003 16:33:24
Günter aus Do
Hallo Andreas,
beide Lösungen funktionieren nicht. ich glaube es gibt keine Lösung
ohne vorheriges sortieren der Tabellen. Vielleicht kannst du in
Tabelle 1 eine zusätzliche Spalte einfügen(durchnummerieren)
um nach Sortierung und Programmablauf die Ursprüngliche
Reihenfolge wieder zu erlangen.
Gruß
G aus Do

AW: Werte in 2 Tabellen vergleichen
07.07.2003 16:17:05
Bernd Held
Hallo Andreas,
folgendes MAkro sollte funktionieren:

Sub DatenVergleichen()
Dim Tab1 As Worksheet
Dim Tab2 As Worksheet
Dim l As Long
Dim e As Long
Set Tab1 = Sheets("Tabelle1")
Set Tab2 = Sheets("Tabelle2")
For l = 1 To Tab1.UsedRange.Rows.Count
For e = 1 To Tab2.UsedRange.Rows.Count
If Tab1.Cells(l, 1).Value = Tab2.Cells(e, 1).Value Then
Tab2.Cells(e, 1).Value = ""
Tab2.Cells(e, 2).Value = ""
Else
End If
Next e
Next l
End Sub

Viele Grüße
Bernd
MVP für Microsoft Excel
Excel-Tipps, VBA-Bücher mit Leseproben(PDF), VBA-Forum und VBA-Schulungen unter: http://held-office.de


Anzeige
AW: Werte in 2 Tabellen vergleichen
07.07.2003 16:13:13
ChrisL
Hi Andreas
Option Explicit

Sub Vergleich()
Dim WS1 As Worksheet, WS2 As Worksheet
Dim i As Long
Application.ScreenUpdating = False
Set WS1 = Worksheets("Tabelle1")
Set WS2 = Worksheets("Tabelle2")
For i = WS2.Range("A65536").End(xlUp).Row To 1 Step -1
If WorksheetFunction.CountIf(WS1.Range("A1:A" & WS1.Range("A65536").End(xlUp).Row), WS2.Cells(i, 1)) > 0 Then _
WS2.Rows(i).EntireRow.Delete
Next i
Application.ScreenUpdating = True
End Sub

Gruss
Chris

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige