Ehepaar erkennen
04.01.2008 00:44:04
Daniel
ich habe diesen Code:
Next l
wks2.Range("A:A").Clear
wks2.Cells.Sort Key1:=wks2.Range("C2"), Order1:=xlAscending, Key2:=wks2.Range("E2") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal
For A = wks2.Range("B65000").End(xlUp).Row To 2 Step -1
If (wks2.Cells(A, 3) & wks2.Cells(A, 5)) = (wks2.Cells(A - 1, 3) & wks2.Cells(A - 1, 5)) _
Then
wks2.Cells(A - 1, 4) = wks2.Cells(A - 1, 4) & IIf(InStr(1, wks2.Cells(A, 4), " und " _
) > 0, ", ", _
" und ") & wks2.Cells(A, 4)
wks2.Rows(wks2.Cells(A, 3).Row).Delete Shift:=xlUp
End If
Dieser überprüft den Nachnamen (Spalte C) und die Straße (Spalte E). Wenn zwei gleiche gefunden wurden, werden die Vornamen mit einem "und" zusammengefügt.
Jetzt habe ich das Problem, dass sehr viele in meiner Liste den gleichen Nachnamen und die gleiche Straße haben, die aber kein Ehepaar sind.
Nun sollte noch zusätzlich überprüft werden ob es ein Ehepaar ist, was mit 0 für kein und mit 1 für ein Ehepaar in Spalte P kennzeichnet, und zwei gleiche Geschlechter sollten dann auch nicht zusammengefügt werden.
Geht das überhaupt?
Ich wäre sehr dankbar für jede Hilfe!!
mfg
Daniel