Office: (Office Version unbekannt) Dynamische Hyperlinks - Zugriff auf ausgeblendete Tabellenblätter

Hallo zusammen,

es ist mein erster Beitrag hier und ich bedanke mich bereits im Vorfeld für jede Antwort. Ich habe eine relativ gute Excel-Liste erstellt, komme aber ab einem bestimmten Punkt nicht weiter.

Sinn meiner Liste ist, dass ich von einer Übersichtsliste (von Firmen) per Hyperlink auf einzelneTabellenblätter springen möchte (ca. 30 gesamt). Diese 30 Firmen werden wieder ausgeblendet, wenn ich auf die Übersichtsseite per Link zurückspringe. Man soll also immer nur die Übersichtsseite und die momentan offene Firma sehen. Das alles stellt kein Problem dar, den passenden Code für die Übersichtsseite habe ich gefunden.



Das funktioniert alles wie gewünscht, wenn man normale Hyperlinks benutzt.

Ich habe jedoch auf der Übersichtsseite dynamische Hyperlinks erstellt, die automatisch über eine Excelformel erstellt werden und nicht per klassischem Link.

Leider funktioniert der angegebene Code nicht mit diesen Hyperlinks per Formel.



Muss ich den VBA-Code nur leicht umbauen oder einen komplett neuen Code erzeugen, damit es funktioniert?



Danke für jeden Beitrag.



Hier der Code für das Übersichtsblatt und der Code für die anderen Tabellenreiter, welche ausgeblendet werden:



Option Explicit
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim strAdr As String
'strAdr = Target.Name
strAdr = Left(Target.SubAddress, InStr(1, Target.SubAddress, "!") - 1)
Sheets(strAdr).Visible = xlSheetVisible
Sheets(strAdr).Activate
End Sub





Private Sub Worksheet_Deactivate()

Me.Visible = xlSheetHidden

End Sub

 

Die meisten bauen Deine Datei nicht nach. Die Zeit hat schon jemand investiert.

Ein Nachbau sieht meist anders aus als das Original. <B>Darum sollte das Original verlinkt werden.</b>
Die meisten möchten es am Original testen um den gleichen Fehler zu erhalten.

Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Muster*, Test*, Mappe*, Beispiel*, Fehler*, Kalender*, UserForm* , Forum* usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.
Es sollte ein aussagekräftiger Name sein.

Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten ändern. Schaue Datei
http://hajo-excel.de/gepackt/fremd/Datei_verschluesseln.zip

Ich führe keine Liste unrter welchem Namen die Datei gespoeichert ist.
Der Dateiname steht ja im Beitrag.

Das ist nur meine Meinung zu dem Thema.

Benutze hier im Forum die Funktion zum hochladen. Falls Du die nicht benutzen möchtest, beachte, von unsicheren Servern wie z.B. www.file-upload.net lade ich keine Datei runter. (lt. Einschätzung meines Virenprogramms)

 

Hi Hajo,

hier im Anhang die Beispieldatei mit den ausgeblendeten Reitern, den beiden Codes. Wie gesagt, mit dem erzeugten Hyperlink kommt man nicht auf die ausgeblendeten Reiter drauf. Wenn man jedoch einen separaten Hyperlink erstellt, klappt es.

Grüße

 

ich bin dann raus, da meine Beitrag nicht komplett gelesen wurde.
Das wird schon seinen Grund haben.
Ich schreibe nicht für den Papierkorn. Ich bin dann raus.
Viel Erfolg noch.

Gruß Hajo

 

Hi,

wenn der Link durch eine Formel gebildet wird, wie bei dir, kannst du die Follow-Methode nicht verwenden. Benutze einfach das Worksheet_Selection-Ereignis:

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count = 1 Then
        If Target.HasFormula Then
            If Left(Target.Formula, 10) = "=HYPERLINK" Then
                Worksheets(Target.Value).Visible = True
                Worksheets(Target.Value).Activate
            End If
        End If
    End If
End Sub

---

 

Hallo Beverly,

unglaublich, jetzt funktioniert es, vielen Dank. Hätte ich so nicht geschafft.

Für Dich bestimmt sehr einfach:
Wie kombiniere ich denn die beiden Codes (also dein neuer Code plus mein "Refresh-Code") zusammen in einem?

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count = 1 Then
        If Target.HasFormula Then
            If Left(Target.Formula, 10) = "=HYPERLINK" Then
                Worksheets(Target.Value).Visible = True
                Worksheets(Target.Value).Activate
            End If
        End If
    End If
End Sub

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

ThisWorkbook.RefreshAll

End Sub

 

Hi,

setze einfach deine Codezeile vor End Sub in meinem Code.

---

 

Hallo Beverly,

perfekt, vielen Dank für Deine Hilfe.

Grüße