Ich habe in Tabelle1 ein Inhaltsverzeichnis welches mit Hyperlinks auf bestimmte Zellen in der Spalte A auf Tabelle2 springt. Die Zielzellen haben einen Namen im Namensmanager.
Dabei ist die aktive Zelle am unteren Rand des Bildschirms zu sehen. Ich möchte jedoch dass die aktive Zelle am oberen Bildschirmrand ist.
Mein Versuch war folgender Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim oName As Object
On Error Resume Next
For Each oName In ActiveWorkbook.Names
If ActiveCell.Name = oName Then
ActiveWindow.ScrollRow = ActiveWindow.ActiveCell.Row
End If
Next oName
End Sub
Das funktioniert für den Sprung aus dem Inhaltsverzeichnis. Wird aber irgendwo in der Tabelle2 etwas eingegeben wird die neue Zelle sofort nach oben gescrollt.
Kann ich den Befehl:
On Error Resume Next
ändern, so dass er das nächste Each nimmt anstelle der nächsten Zeile? (Der Fehler tritt in der If Abfrage auf wenn die aktive Zelle keinen Namen hat)
Oder gibt es generell eine einfachere Lösung für meinen Wunsch?