Nun sollte es klappen, hoffentlich
Udo Gombert
https://www.herber.de/bbs/user/75952.xls
Option Explicit
Dim Zelle As Range 'Merker, dass von A1 zu einer Zelle gesprungen wurde
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim vntRet As Variant
With Sh
If .Name Like "BÄKO*" Then
If Target.Address(0, 0) = "A1" Then
If Target "" Then
vntRet = Application.Match(Target, .Range("A2:A" & .Rows.Count), 0)
If IsNumeric(vntRet) Then
Set Zelle = .Cells(vntRet + 1, 4)
Zelle.Select
ActiveWindow.ScrollRow = Zelle.Row
Else
.Cells(.Cells(.Rows.Count, 1).End(xlUp).Row + 1, 1) = Target
.Range("A2").CurrentRegion.Sort Key1:=.Range("A1"), Order1:=xlAscending, Header:= _
xlYes
vntRet = Application.Match(Target, .Range("A2:A" & Rows.Count), 0)
.Cells(vntRet + 1, 3).Select
ActiveWindow.ScrollRow = vntRet + 1
End If
End If
ElseIf Not Zelle Is Nothing Then
Range("A1").Select
Set Zelle = Nothing
End If
End If
End With
End Sub