AW: Sprung in Tabelle
30.07.2011 14:32:26
fcs
Hallo Udo,
warum hängst du deine ergänzenden Informaionen nicht an deine ursprünglich Frage?
Nachfolgend die Anpassung für deine Prozedur.
Gruß
Franz
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