Namensliste ergänzen - Fehler in Match-Funktion
30.12.2003 09:40:11
Jochen
ich komme leider nicht weiter, vielleicht kann mir jemand helfen.
Das Problem:
in Tabelle1 stehen Namen z.B. A, B, C
in Tabelle2 stehen Namen z.B. A, B, C, D, E
nun möchte ich vergleichen, wenn der Name aus T2 nicht in T1 enthalten ist, soll er ergänzt werden.
Mein Lösungsversuch:
Sub namenpflege()
Dim i%, name$
With [Tabelle2]
For i = 2 To .Cells(65000, 2).End(xlUp).Row
name = .Cells(i, 2)
If IsError(Application.WorksheetFunction.Match(name, [Tabelle1].Range("1:1"), 0)) = True Then
[Tabelle1].Cells(1, [Tabelle1].Cells(1, 253).End(xlToRight).Column + 2) = name
End If
Next
End With
End Sub
... weist leider, wenn die Variable nicht in T1 enthalten ist einen Fehler aus und ergänzt die Daten nicht.
Danke.
Gruß
Jochen