Hi Jelena,
Wie gesagt, scheint Range.Find mit Datumsformaten so seine Problemchen zu haben. Auch Microsoft ist halt nicht vor Bugs gefeit. Soweit ich weiß, gibt's für VBA auch keine Updates mehr. Müssen wir halt mit leben und andere Alternativen suchen.
Eine Alternative wäre z.B. die Match-Funktion. Der ist es egal, welches Datumsformat angezeigt wird, da sie nach der dahinterliegenden Zahl sucht. Probiers also mal so:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, lng
If Not Intersect(Target, Range("B1")) Is Nothing Then
lng = Application.Match(Target, Range("B3:B869"), 0)
If Not IsError(lng) Then
'Range("B3:B869").Cells(lng).Select
ActiveWindow.ScrollRow = Range("B3:B869").Cells(lng).Row
End If
End If
End Sub
Gruß
Mr. K.