AW: In drei Spalten gleiche Namen finden
02.11.2006 17:15:39
Mag
Hi,
so?
Sub test()
Dim i As Long, j As Long, k As Long, zeile As Long, MyName As String, Fund As Boolean
For i = 1 To Cells(65536, 1).End(xlUp).Row
MyName = Cells(i, 1).Value
For j = 1 To Cells(65536, 2).End(xlUp).Row
If Cells(j, 2).Value = MyName Then
For k = 1 To Cells(65536, 3).End(xlUp).Row
If Cells(k, 3).Value = MyName Then
zeile = zeile + 1
Cells(zeile, 4).Value = MyName & " (" & i & ", " & j & ", " & k & ")"
Fund = True: Exit For
End If
Next k
If Fund Then Exit For
End If
Next j
Fund = False
Next i
End Sub
Gruss