Jack mag seine Excel-Hyperlinks, um zu zeigen, dass sie besucht wurden.

Wenn er seine Arbeitsmappe speichert, werden sie leider alle auf unbesucht zurückgesetzt. Jack fragt sich, ob es eine Möglichkeit gibt, das „Besuchte“

zu machen Der Status seiner Hyperlinks überlebt den Speichervorgang.

Es gibt keine Möglichkeit, dies zu tun, die wir entdecken konnten. Am nächsten können wir überprüfen, ob einem Hyperlink gefolgt wird oder nicht, und dann diesen Status mit einer Bedingung oder einem Wert angeben, der eine Sicherungsoperation überlebt. Betrachten Sie beispielsweise die folgenden Makros:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Dim wks As Worksheet     Dim hl As Hyperlink     Application.ScreenUpdating = False     For Each wks In ThisWorkbook.Worksheets         For Each hl In wks.Hyperlinks             If hl.Parent.Interior.ColorIndex = 37 Then                 hl.Parent.Interior.ColorIndex = xlNone                 hl.Parent.Style = "Followed Hyperlink"

End If         Next hl     Next wks     Application.ScreenUpdating = True End Sub
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)

Target.Parent.Interior.ColorIndex = 37 End Sub

Jedes Mal, wenn einem Hyperlink gefolgt wird, wird das zweite Makro ausgeführt. Hiermit wird die Farbe der Zelle festgelegt, die den Hyperlink enthält. Beim Speichern der Arbeitsmappe wird dann das erste Makro ausgeführt. Es werden alle Zellen überprüft, die Hyperlinks enthalten. Wenn ihre Innenfarbe die „Schlüsselfarbe“ (Farbwert 37) ist, wird der Stil der Zelle auf einen Stil mit dem Namen „Verfolgter Hyperlink“ festgelegt. Diese Stileinstellung für die Zelle überlebt den Speichervorgang. Sie müssen lediglich sicherstellen, dass Sie den Stil so definiert haben, dass die folgenden Hyperlinks angezeigt werden.

Es sollte darauf hingewiesen werden, dass diese beiden Makros dem ThisWorkbook-Modul der Arbeitsmappe hinzugefügt werden sollten. Zeigen Sie dazu den Visual Basic-Editor an und doppelklicken Sie im Projektexplorer auf das ThisWorkbook-Modul. Anschließend können Sie die Makros in das resultierende Codefenster einfügen.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (7198) gilt für Microsoft Excel 2000, 2002 und 2003.