suche über makro
rolf
ich suche über eine userform und listbox einträge in einer tabelle.
kann ich dieses makro so ändern,das ich nach der suche in spallte j direckt in spallte aj und ar weiter- suchen kann.
Private Sub ComboBox1_Change()
Dim lZeile As Long
Sheets("Abstammungen").Activate
lZeile = Sheets("Abstammungen").Cells(Rows.Count, 3).End(xlUp).Row + 1
'Cells(lZeile, 1).Value = ComboBox2.Value
On Error GoTo Ende
Columns("B:B").Select
Selection.Find(What:=(ComboBox1.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
mfg rolf