Spalten vergleichen

Forumthread: Spalten vergleichen
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Spalten vergleichen

Spalten vergleichen

02.02.2005 15:31:55

Silvi

Hallo Ihr Experten!
Brauch doch wieder Hilfe. In meiner Datei sh. Anlage, sollen die Art.-Nr. aus Spalte A in Tabelle1 mit der Spalte A in Tabelle 2 verglichen werden und bei Übereinstimmung Spalte B und Spalte A in Tabelle3 übertragen werden. Klappt auch schon, aber wenn eine Artikelnummer jetzt doppelt vorkommt muß die auch übertragen werden, das klappt leider nicht so... kann mir jemand bitte helfen?
Danke!
Silvi
https://www.herber.de/bbs/user/17346.xls

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Spalten vergleichen

Beni
DANKE, ich glaub das wars

02.02.2005 16:33:38

Silvi

AW: Spalten vergleichen

Beni

Hallo Silvi,
Gruss Beni


Sub Vergleichen()
Dim i, lz As Integer
Dim c, Wert As Variant
Worksheets("Tabelle2").Activate
With Sheets("Tabelle3")
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
Wert = Cells(i, 2)
lz = .Cells(Rows.Count, 1).End(xlUp).Row + 1
Set c = Sheets("Tabelle1").Columns(1).Find(What:=Wert, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then .Cells(lz, 1) = Cells(i, 1): .Cells(lz, 2) = Cells(i, 2)
Next i
End With
Worksheets("Tabelle3").Activate
End Sub