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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen