suche mit makro
rolf
mit diesem makro suche ich einen eintrag.
jetzt würde ich das makro gerne so verändern,das ich dort weitersuchen kann nach dem ich einen eintrag bearbeitet habe.
momentan muss ich die suche immer neu starten..
Private Sub Stichw_Click()
Sheets("Abstammungen").Activate
On Error GoTo Ende
Columns("N:N").FindNext(After:=ActiveCell).Select
SearchRow = ActiveCell.Row - 1
ListBox1.ListIndex = SearchRow
Ende:
End Sub
danke für eure hilfe
gruss rolf
Anzeige