Probleme mit Vergleich und Find in VBA
17.11.2004 12:41:43
Stefan
Ich habe aus der Recherche einen Code zum Vergleich zweier Listen angepaßt.
Da ich nur Anfänger in VBA bin, verstehe ich die unten aufgeführten Probleme nicht- sind mir bei der Anwendung aufgefallen.
Aufgabe des Code ist es,
Werte aus 2 Tabellen zu vergleichen ob alle Werte oder Texte aus Tabelle 1 Spalte 3 auch in Tabelle 2 Spalte 3 vorhanden sind.
Werte die in Tab 2 fehlen werden in Tabelle 3 aufgelistet.
Dabei passiert folgenden
- die Abweichungsauflistung weicht von einer vorherigen Abfrage ab ( - es wurden aber keine Änderungen vorgenommen ( großes ?)
- es werden Werte aufgeführt die sicher in beiden Tabellen vorhanden sind
- die Abweichungsauflistung ist nicht vollständig
Worin liegen die Ursachen für die Probleme und wie kann ich diese abstellen.
Vielen Dank im voraus für Eure Hilfe
Stefan
Sub vergleich()
Dim aZeile as long
For aZeile = 1 To Cells(1, 3).SpecialCells(xlLastCell).Row
Wert = Sheets("1").Cells(aZeile, 3) ' Wert aus sheet1 soll in 2 geprüft
With Worksheets("2").Columns(3)
Set c = .Find(Wert, LookIn:=xlValues, LookAt:=xlWhole)
End With
If c Is Nothing Then ' Schreibt Artikelnummer in Tabelle 3 wenn fehlt
With Worksheets("3")
r = .Cells(65536, 1).End(xlUp).Row + 1
Cells(r, 1) = Wert
End With
End If
Next aZeile
End Sub
Anzeige