vielleicht finde ich hier Hilfe? Ich komme nicht weiter, möchte einfach nur Rückwärts suchen. Ganze Exel Hilfe durch probiert, aber nix geht. Schaut Euch bitte die Zeile 'Set fc = .FindPrevious(afer:=fc)' an, der Rest funktionukkelt. Danke und Gruß Bernhard
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim z As Range
Dim z2 As Range
Dim tRows As String
Set z = ActiveCell
x = ActiveCell.Column
If ActiveCell.Column = 4 Then
tRows = "200:400"
tRange = "A200:A400"
If Not IsEmpty(z) Then
Set z2 = Rows(tRows).Find(what:=z.Value, LookIn:=xlValues)
If Not z2 Is Nothing Then
If z2.Row <> z.Row Then
Set z3 = Cells(1, 4)
Set fc = Range(tRange).Find(what:=z3.Value, LookIn:=xlValues)
Set fc = .FindPrevious(afer:=fc)
If Not fc Is Nothing Then
ActiveWindow.Panes(2).ScrollRow = z2.Row
End If
End If
End If
End If
'ActiveWindow.Panes(1).Activate
'Range(x).Activate
End If
End Sub