Hallo,
ich habe zwei Tabellen die eine ist erheblich größer als die andere ich muss beide Tabellen miteinander abgleichen und die Einträge der ersten Tabelle herausfiltern die in der Zweiten nich enthalten sind.
Wie bekomme ich das hin? Gibt dafür ein Makro? Habe bereits zwei Makros benutzt allerdings gibt er mir immer wieder die selbe Fehlermeldung ganz egal was ich daran verändere könnte das mit den alphanumerischen Zeichen zusammenhängen?
Die Spalten die ich bearbeite sehen so aus: B101060
Das Makro das ich verwenden wollte ist:
Sub doppelte_Daten_suchen()
’ Vergleicht Tabelle 2 mit Tablle 1 und schreibt Werte
’ aus Tabelle 2, die in Tabelle 1 nicht vorkammen in Tabelle 3
Dim verg1(500), verg2(500), dopp%(500), num(500)
’ Tabelle 1 einlesen
Worksheets(„Tabelle1“).Activate
y = 2
Do While Cells(y, 1) „“
verg1(y) = Cells(y, 1)
y = y + 1
Loop
’ Tabelle 2 einlesen
Worksheets(„Tabelle2“).Activate
z = 2
Do While Cells(z, 1) „“
num(z) = Cells(z, 1)
verg2(z) = Cells(z, 2)
z = z + 1
Loop
For r = 2 To y - 1
For s = 2 To z - 1
If r = s Then s = s + 1
If verg1® = verg2(s) Then 'And dopp(s) = 0
dopp(s) = 1
Cells(s, 3) = „gleich“
End If
Next s
Next r
’ In Tabelle 3 schreiben
Worksheets(„Tabelle3“).Activate
zz = 1
For u = 1 To z - 1
If dopp(u) = 0 Then
Cells(zz, 1) = num(u)
Cells(zz, 2) = verg2(u)
zz = zz + 1
End If
Next u
End Sub
Die Fehlermeldung ist: verg1(y) = Cells(y, 1)
(wird gelb Makiert)
Über schnellstmögliche Hilfe würde ich mich sehr freuen.
MfG Moritz