Microsoft Excel

Herbers Excel/VBA-Archiv

Tabellen vergleichen, wobei in Tab. 1 doppelte

Betrifft: Tabellen vergleichen, wobei in Tab. 1 doppelte
von: Tom
Geschrieben am: 17.04.2003 - 17:56:49

Hallo zusammen,

ich muß zwei Tabellen vegleichen und aus Tabelle 1 die Zeilen löschen, welche in Tabelle 2 enthalten sind.
Tabelle 2 enthält als Referenz eine eindeutige Nummer, welche auch in Tabelle 1 vorkommt.
Am besten wäre zuerst die zu löschenden Zeilen zur Kontrolle zu markieren und dann im Anschluß zu löschen.
Es kann auch vorkommen, das ein Wert aus Tabell2 nicht in Tabelle 1 enthalten ist.

Weiß jemand Rat ???

Vielen Dank im voraus
Tom


  

Re: Tabellen vergleichen, wobei in Tab. 1 doppelte
von: andre
Geschrieben am: 17.04.2003 - 18:43:02

hallo tom,
schaue mal in die recherche, stichwort vergleichen. da findest du allerhand, z.b. das:
https://www.herber.de/forum/archiv/220to224/t220336.htm
gruss andre

  

Re: Tabellen vergleichen, wobei in Tab. 1 doppelte
von: Tom
Geschrieben am: 17.04.2003 - 19:08:46

Hallo Andre,

habe leider nichts passendes gefunden...

Gruß Tom

  

Re: Tabellen vergleichen, wobei in Tab. 1 doppelte
von: andre
Geschrieben am: 17.04.2003 - 19:24:44

hallo tom,
ich gehe mal davon aus, das das schlüsselfeld zum vergleichen in spalte 1 ist. das beispiel hinter dem link etwas abgewandelt:


Sub vergleichenSpalten()
Dim s As Long 'schleifenzähler
Dim h As Long
Dim ende1 As Long
Dim ende2 As Long

Application.ScreenUpdating = False
ende1 = Sheets("tabelle1").Cells(65536, 1).End(xlUp).Row 'von letzter Zeile aufwärts
ende2 = Sheets("tabelle2").Cells(65536, 1).End(xlUp).Row 'von letzter Zeile aufwärts

For s = 2 To ende1
For h = 2 To ende2
If Sheets("tabelle1").Cells(s, 1) = Sheets("tabelle2").Cells(h, 1) Then
Sheets("tabelle1").Cells(s, 2) = "X"
'Sheets("tabelle1").Cells(s, 2).Delete
End If
Next
Next
Application.ScreenUpdating = True
End Sub


wenn du die auskommentierte zeile aktivierst wird auf blatt1 gleich gelöscht. da passt bei bedarf auch eine abfrage dazu, schaue mal in die hilfe zu msgbox.
gruss andre

 

Beiträge aus den Excel-Beispielen zum Thema "Tabellen vergleichen, wobei in Tab. 1 doppelte"