Vergleich - Makro anpassen
18.09.2006 11:21:08
Sebastian
leider ist das Wochenende schon wiede vorbei. Na ja da muss man wohl durch. Ich sitz auf jeden fall schon wieder an meiner Kiste und schlag mich mit Excel rum. Hab ein Problem mit nem Makro. Vielleicht kann mir jemand weiterhelfen. Müsste für euch Experten eigentlich kein Problem sein. Also ich Vergleiche 2 Spalten und geb die nicht vorhandnen Elemente in einer neuen Spalte aus. Ich hätte das Makro aber gern so, dass die vorhandnen Elemente in der neuen Spalte ausgeben werden. Hoffe auf eure Hilfe. Danke. Grüße Sebastian. Hier das Makro:
Sub VergleichNN()
Dim arrNN As Variant
Dim wks1 As Worksheet, wks2 As Worksheet
Dim n As Long
Dim lastRow1 As Long, lastRow2 As Long, lastRow3 As Long
Dim rng1 As Range
Dim rng2 As Range
Dim rng As Range
Dim i As Integer
Set wks1 = Sheets(1)
Set wks2 = Sheets("Calc")
lastRow1 = IIf(wks1.Range("D65536") <> "", 65536, _
wks1.Range("D65536").End(xlUp).Row)
lastRow3 = wks2.Range("AV18").Row
Set rng1 = Sheets(1).Range("D21:D" & lastRow1)
Set rng2 = Sheets("Calc").Range("AU19:AU108")
arrNN = wks2.Range("AU19:AU108")
'Daten aus Tabelle1 an Array übergeben
For n = 1 To UBound(arrNN, 1)
Set rng = wks1.Range("D:D").Find(arrNN(n, 1))
'Daten aus Tabelle1 in Tabelle2 suchen.
If rng Is Nothing Then
lastRow3 = lastRow3 + 1
wks2.Cells(lastRow3, 48) = arrNN(n, 1)
'Und wenn nicht gefunden in Tabelle3 eintragen.
End If
Next
End Sub