kann man dieses such makro so umbauen das erst in spalte j und dann die spalten AJ AR BH der
reihe nach durchsucht werden.
Private Sub ComboBox2_Change()
Dim lZeile As Long
Sheets("Abstammungen").Activate
lZeile = Sheets("Abstammungen").Cells(Rows.Count, 3).End(xlUp).Row + 1
On Error GoTo Ende
Columns("J:J").Select
Selection.Find(What:=(ComboBox2.Value), After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Select
SearchRow = ActiveCell.Row - 1
ListBox1.ListIndex = SearchRow
Ende:
End Sub
Private Sub gleiche_Mutter_Click()
Sheets("Abstammungen").Activate
On Error GoTo Ende
Columns("J:J").FindNext(After:=ActiveCell).Select
SearchRow = ActiveCell.Row - 1
ListBox1.ListIndex = SearchRow
Ende:
End Sub
gruss rolf