Doppelte Einträge finden + Zusatzinfos ergänzen
23.11.2004 16:32:29
Andi
Bin die ganze Zeit in VBA am versuchen, aber es klappt nicht.
Habe ein Skript ( https://www.herber.de/bbs/user/13824.xls ), welches doppelte Einträge aus "Tabelle1" (Stammliste) und "Tabelle2" (neu hinzugekommene Infos) sucht. Alle doppelten Einträge werden in "Tabelle2" fett markiert.
Nun kommt es aber auch vor, dass in den neuen Infos Zusatzinformationen (z.b. Geburtstag: 1980) stehen, die es in der Stammliste noch nicht gibt. Wie kann ich mein Skript so ergänzen, dass in Tabelelle1 bei "Nina Müller nina@..." auch "1980" dahintersteht und der neue Datensatz "Gerd Meyer gerd@... 1934" ans Ende von Tabelle1 gesetzt wird?!
Tabelle1 (Stammliste):
Heinz Müller heinz@... 1945
Nina Müller nina@...
Lisa Müller lisa@... 1944
Tabelle2 (neue Infos):
Gerd Meyer gerd@... 1934
Nina Müller nina@... 1980
VBA-Skript:
Sub doppelt()
Dim c As Range, SuBe As Range
Dim s As String
Dim laR1 As Long, laR2 As Long
laR1 = Sheets("Tabelle1").Cells(Rows.Count, 3).End(xlUp).Row
With Sheets("Tabelle2")
laR2 = .Cells(Rows.Count, 3).End(xlUp).Row
For Each c In .Range("C1:C" & laR2)
s = c.Text 'email
Set SuBe = Sheets("Tabelle1").Range("C1:C" & laR1). _
Find(s, lookat:=xlWhole)
If Not SuBe Is Nothing Then
.Range("A" & c.Row & ":C" & c.Row).Font.Bold = True
Set SuBe = Nothing
End If
Next c
End With
End Sub
Ganz vielen Dank!