Tabellenvergleich



Excel-Version: 6.0
nach unten

Betrifft: Tabellenvergleich
von: Sandra
Geschrieben am: 16.07.2002 - 13:16:07

Hallo!

Ich will 2 Sheets in Excel verleichen.
Jedes Sheet besteht aus ca. 6000 Zeilen und 4 Spalten. Es sollen jedoch nur die ersten 3 Spalten in den Vergleich einbezogen werden. Stimmen Zeilen überein, soll die Zeile aus Sheet1 mit allen 4 Spalten in ein neues Sheet (Sheet3) übertragen werden


nach oben   nach unten

Re: Tabellenvergleich
von: JürgenR
Geschrieben am: 16.07.2002 - 13:31:16

Hi Sandra,

vielleicht geht es so


Sub vergleich()
Dim As Long
Dim As Long
Dim As String
Dim As String
j = 1
For i = 1 To Sheets(1).Cells(65536, 1).End(xlUp).Row
k = Sheets(1).Cells(i, 1) & Sheets(1).Cells(i, 2) & Sheets(1).Cells(i, 3)
l = Sheets(2).Cells(i, 1) & Sheets(2).Cells(i, 2) & Sheets(2).Cells(i, 3)
If k = l Then
Sheets(3).Cells(j, 1) = Sheets(1).Cells(i, 1)
Sheets(3).Cells(j, 2) = Sheets(1).Cells(i, 2)
Sheets(3).Cells(j, 3) = Sheets(1).Cells(i, 3)
Sheets(3).Cells(j, 4) = Sheets(1).Cells(i, 4)
j = j + 1
End If
Next i
End Sub

Gruß
Jürgen


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Tabellenvergleich"