title image


Smiley Re: Listen vergleichen
Hallo Thomas,



probier mal dieses Script:



Sub vergleichen()

Dim t1, t2, t3 As Worksheet

Set t1 = Sheets("Tabelle1")

Set t2 = Sheets("Tabelle2")

Set t3 = Sheets("Tabelle3")

Dim r1, r2 As Range

Set r1 = t1.UsedRange

Set r2 = t2.UsedRange

e = 1

For Each z In r1

If z.Value r2.Cells(z.Row, z.Column).Value Then

t3.Cells(e, 1).Value = "Abweichung in Zeile " _

& z.Row & " der Spalte " & z.Column & " " _

& "(Tabelle1 - " & z.Value & " - / Tabelle2 - " _

& r2.Cells(z.Row, z.Column).Value & "-)"

e = e + 1

End If

Next

End Sub



Die Tabellen 1 und 2 sollten die beiden Vergleichslisten enthalten,

Tabelle 3 ist zur Ausgabe der Ergebnisse. Die Tabellen sollten

auch Tabelle1 etc. benannt sein.



Gruss, JoWe


Wie auch immer, alles wird besser! Grüße, Jochen

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: