Tabellen vergleichen

Bild

Betrifft: Tabellen vergleichen von: Klaus
Geschrieben am: 24.02.2005 19:15:52

Hallo,
ich habe dieses schöne Makro bei euch gefunden.
Ich bräuchte nur eine kleine Änderung.
Schreibe alle !nicht! gefundenen Zeilen in Tabelle3.
Alles was ich schon ausprobiert habe führte zu Fehlermeldungen bis zum Rechnerstillstand.

Sub von1nach3wennIn2()
Dim wks1 As Worksheet, wks2 As Worksheet, wks3 As Worksheet
Dim rng As Range, rFind As Range
Dim lastRow As Long, lrow As Long
Dim sFirst As String
Set wks1 = Sheets("Tabelle1")
Set wks2 = Sheets("Tabelle2")
Set wks3 = Sheets("Tabelle3")
lastRow = IIf(wks2.Range("C65536") <> "", 65536, _
wks2.Range("C65536").End(xlUp).Row)
For Each rng In wks2.Range("C1:C" & lastRow)
Set rFind = wks1.Range("C:C").Find(what:=rng, LookIn:=xlValues, lookat:=xlWhole)
If Not rFind Is Nothing Then
sFirst = rFind.Address
Do
lrow = lrow + 1
rFind.EntireRow.Copy wks3.Cells(lrow, 1)
Set rFind = wks1.Range("C:C").FindNext(rFind)
Loop While sFirst <> rFind.Address
End If
sFirst = vbNullString
Set rFind = Nothing
Next
End Sub


Hat jemand eine Idee?
Danke im voraus
Klaus
Bild


Betrifft: AW: Tabellen vergleichen, Sepp von: Klaus
Geschrieben am: 24.02.2005 19:27:36

Hallo,
dieses Makro stammt aus der Feder von Sepp.
Gruß
Klaus


Bild


Betrifft: AW: Tabellen vergleichen von: Josef Ehrensberger
Geschrieben am: 24.02.2005 19:29:47

Hallo Klaus!

Dann so.

Sub von1nach3wennNichtIn2()
Dim wks1 As Worksheet, wks2 As Worksheet, wks3 As Worksheet
Dim rng As Range, rFind As Range
Dim lastRow As Long, lrow As Long
Set wks1 = Sheets("Tabelle1")
Set wks2 = Sheets("Tabelle2")
Set wks3 = Sheets("Tabelle3")
lastRow = IIf(wks2.Range("C65536") <> "", 65536, _
wks2.Range("C65536").End(xlUp).Row)
   For Each rng In wks2.Range("C1:C" & lastRow)
   
   Set rFind = wks1.Range("C:C").Find(what:=rng, LookIn:=xlValues, lookat:=xlWhole)
   
      If rFind Is Nothing Then
      
      lrow = lrow + 1
      
      rng.EntireRow.Copy wks3.Cells(lrow, 1)
      
      End If
   
   Next
End Sub



Gruß Sepp

P.S.: Rückmeldung nicht vergessen!


Bild


Betrifft: AW: Tabellen vergleichen von: Klaus
Geschrieben am: 24.02.2005 19:44:46

Hallo Sepp
einfach genial.
Ich habe mir dabei wirklich einen abgebrochen.
Viiiiiiiiiiiielen Dank
Gruß
Klaus


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Tabellen vergleichen"