For n = 4 To Worksheets("Filter").Cells(Rows.Count, 13).End(xlUp).Row
Next n
UserForm1.Frame1.Caption = n - 4 & " Datensätze gefunden" 'Rem Anzahl Lösungen eintragen

With Worksheets("Filter")
    UserForm1.ListBox1.RowSource = "Filter!" & .Range(.Cells(4, 1), .Cells(n, 17)).Address
End With

Damit trage ich die gefundenen Datensätze in die Listbox ein.
Und parallel wird der markierte Eintrag der Listbox in Textboxen angezeigt.
Jetzt möchte ich zum Editieren des Datensatzes über einen Commandbutton direkt in die ROW springen, in der dieser Datensatz steht.

Ist das möglich?
Was muss ich ändern, oder hinzufügen?

Gruß Achim