habe von Ihm eine VBA Routine erhalten und funz's prima. Aber wie es immer ist, ist man einmal angefangen will man es anders haben. Zum einen wird beim Anklicken der Makierrahmen der Zelle nicht richtig gelösch o. aufgebaut. Mal nicht auf Zelle sonder davor, dann zwei zusammenhängende usw., das stört sehr und zum zweiten möchte ich nur in Spalte D Suchtext auswählen und nicht in allen Spalten und zu guter letzt, wäre es schön, wenn ich im zweiten Fenster zurück Suchen könnte. Ich habe hier die VBA von Alfred kopiert, danke für eure Hilfe im Vorraus.
Gruß Bernhard
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim z As Range
Dim z2 As Range
Set z = ActiveCell
If Not IsEmpty(z) Then
Set z2 = Rows("200:400").Find(what:=z.Value, LookIn:=xlValues)
If Not z2 Is Nothing Then
If z2.Row <> z.Row Then
ActiveWindow.Panes(2).ScrollRow = z2.Row
End If
End If
End If
End Sub