Hyperlink Ziel 'ausrichten' in Excel
Schritt-für-Schritt-Anleitung
-
VBA-Code kopieren: Öffne das Arbeitsblatt, in dem die Hyperlinks erstellt wurden. Rechtsklicke auf das Blattregister und wähle "Code anzeigen". Füge den folgenden Code in das rechte Fenster ein:
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
On Error Resume Next
Application.Goto Sheets(Replace(Left(Target.SubAddress, InStr(1, Target.SubAddress, "!") - 1), "'", "")).Range(Mid(Target.SubAddress, InStr(1, Target.SubAddress, "!") + 1)).Offset(-1, 0), True
End Sub
-
Hyperlinks erstellen: Erstelle deine Hyperlinks wie gewohnt. Stelle sicher, dass du die Hyperlinks per VBA-Programm generierst, um den Code korrekt auszuführen.
-
Testen: Klicke auf einen Hyperlink und überprüfe, ob die Zeile über dem Ziel die oberste Zeile im Bildschirm ist.
Häufige Fehler und Lösungen
Alternative Methoden
Eine alternative Möglichkeit, das Ziel eines Hyperlinks auszurichten, besteht darin, den Scrollbefehl zu verwenden. Du kannst dies tun, indem du den folgenden Code in das Arbeitsblattmodul einfügst:
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
ActiveWindow.ScrollRow = ActiveCell.Row - 1
ActiveWindow.ScrollColumn = ActiveCell.Column - 1
End Sub
Dieser Ansatz kann in bestimmten Excel-Versionen besser funktionieren und die Zeile über dem Ziel als sichtbar festlegen.
Praktische Beispiele
Angenommen, du hast ein Arbeitsblatt mit mehreren Abschnitten, die durch Überschriften getrennt sind. Du möchtest, dass beim Klicken auf die Überschrift im Index die darüber liegende Zeile sichtbar wird. Dafür kannst du den oben genannten VBA-Code verwenden, um sicherzustellen, dass die Ansicht entsprechend angepasst wird.
Tipps für Profis
-
Verwende Offset: Mit der Offset-Methode kannst du die Sichtbarkeit der gewünschten Zelle weiter anpassen. Beispiel: Range("A1").Offset(-1, 0) zeigt die Zelle direkt über A1 an.
-
Scroll-Verhalten anpassen: Wenn du das Scroll-Verhalten weiter optimieren möchtest, experimentiere mit der SmallScroll Methode, um die Ansicht zu feintunen.
FAQ: Häufige Fragen
1. Ist der VBA-Code in allen Excel-Versionen kompatibel?
Ja, der Code sollte in den meisten modernen Excel-Versionen funktionieren, solange du die Makros aktiviert hast.
2. Warum funktioniert der Hyperlink nicht?
Überprüfe, ob der Hyperlink korrekt erstellt wurde und dass der Zielbereich nicht durch andere Daten oder leere Zeilen blockiert ist. Achte auch darauf, dass du den Code im richtigen Modul eingefügt hast.
3. Kann ich auch Hyperlinks in Word verwenden, um Text mittig in einer Tabelle auszurichten?
Ja, in Word kannst du auch Hyperlinks erstellen und den Text in einer Tabelle mittig ausrichten, indem du die Tabelleneigenschaften anpasst.