' **********************************************************************
' Modul: Tabelle2 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************
Option Explicit
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
On Error Resume Next
Application.Goto Sheets(Split(Target.SubAddress, "!")(0)).Range(Split(Target.SubAddress, "!")(1)), True
Err.Clear
On Error GoTo 0
End Sub
Sub followLink()
Dim objShp As Shape
Set objShp = ActiveSheet.Shapes(Application.Caller)
With objShp
Application.Goto Range(.AlternativeText), True
End With
End Sub
Sub followLink()
Dim objShp As Shape
Dim objSh As Worksheet
Dim rng As Range
Set objShp = ActiveSheet.Shapes(Application.Caller)
With objShp
If InStr(1, .AlternativeText, "!") > 0 Then
Set objSh = Worksheets(Split(.AlternativeText, "!")(0))
Set rng = objSh.Range(Split(.AlternativeText, "!")(1))
If objSh.ProtectContents Then
objSh.Unprotect 'ggf. PW angeben!
Application.Goto rng, True
objSh.Protect 'ggf. PW angeben!
Else
Application.Goto rng, True
End If
Else
Application.Goto Range(.AlternativeText), True
End If
End With
Set objSh = Nothing
Set rgn = Nothing
Set objShp = Nothing
End Sub
Die Datei https://www.herber.de/bbs/user/77054.xlsm wurde aus Datenschutzgründen gelöscht
Öffne den VBA-Editor:
ALT + F11, um den VBA-Editor zu öffnen.Füge den Code in das Klassenmodul ein:
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
On Error Resume Next
Application.Goto Sheets(Split(Target.SubAddress, "!")(0)).Range(Split(Target.SubAddress, "!")(1)), True
Err.Clear
On Error GoTo 0
End SubVerknüpfe den Hyperlink:
Rechtsklick > Hyperlink oder über Einfügen > Hyperlink tun.Alternative Text für Shapes:
Teste den Hyperlink:
Fehler 400:
Hyperlink funktioniert nicht:
Shape-Links:
Verwenden von Makros:
Sub followLink()
Application.Goto Range("A100"), True
End SubHyperlinks in Excel-Formeln:
=HYPERLINK("#A100", "Gehe zu A100")Bauzeitenplan Beispiel in Excel: Wenn du einen Bauzeitenplan in Excel erstellst, kannst du Hyperlinks verwenden, um zwischen verschiedenen Arbeitsblättern zu navigieren. Zum Beispiel kannst du einen Hyperlink auf dem Arbeitsblatt "Arbeitspakete" einfügen, der zu einem bestimmten Bereich im "Bauzeitenplan" führt.
Verlinkung zwischen Tabellenblättern: Wenn du im Bauzeitenplan xls mehrere Tabellenblätter hast, ist es nützlich, Hyperlinks zu verwenden, um schnell zwischen den Blättern zu navigieren.
Verwende den Alternativtext:
Automatisierung:
Fehlerbehandlung im VBA:
1. Wie kann ich sicherstellen, dass mein Hyperlink auf eine bestimmte Zelle zeigt? Um sicherzustellen, dass der Hyperlink auf die richtige Zelle zeigt, überprüfe den Alternativtext und stelle sicher, dass der Hyperlink korrekt gesetzt ist.
2. Was kann ich tun, wenn ich einen Fehler 400 bekomme? Der Fehler 400 tritt häufig auf, wenn der Blattschutz aktiv ist. Hebe den Schutz des Blattes auf, bevor du den Hyperlink verwendest.
3. Wo kann ich mehr über den Bauzeitenplan in Excel lernen? Es gibt viele Ressourcen und Beispiele online, die dir helfen können, einen effektiven Bauzeitenplan in Excel zu erstellen. Such nach "bauzeitenplan excel" für spezifische Anleitungen und Vorlagen.
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