ich habe in Ihrem Archiv das folgende Skript gefunden und in meine Exceldatei eingefügt. Dieses Skript funktioniert schon mal super aber jetzt habe ich noch eine Frage dazu, da ich gerne auf meinem langen Tabellenblatt gerne direkt mit dem Hyperlink in eine bestimmte Zelle springen möchte.
Auf meinem Ausgangsblatt habe ich 12 Hyperlinks, die je auf das versteckte Blatt auf eine bestimmte Zelle springen soll.
Im versteckten Blatt ist nämlich ein Kalender hinterlegt, in dem die Kalendertage untereinander stehen und in der ersten Spalte steht immer vor dem ersten eines Monats der Monat. So hat mein Tabellenblatt über 380 Zeilen.
In dem folgenden gefundenen Skript wird zwar das versteckte Blatt geöffnet, aber es wird nicht die gewünschte Zelle angesprungen.
Wenn ich einen Hyperlink erstelle und die Seite mit dem Kalender nicht versteckt ist, springt mir der Cursor auch auf die gewünschte Stelle.
Was muss jetzt in diesem Skript geändert werden, oder benötige ich einen gans anderen Skript?
Ihr Skript wie folgt:
Ausgangsblatt:
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim strAdr As String
Dim strSht As String
strAdr = Target.SubAddress
strSht = Left(strAdr, Len(strAdr) - InStr(1, StrReverse(strAdr), "!"))
Sheets(strSht).Visible = xlSheetVisible
Sheets(strSht).Activate
End Sub
'Tabelle die ausgeblendet sein soll
Private Sub Worksheet_Deactivate()
Me.Visible = xlSheetVeryHidden
End Sub
Für eine schnelle Antwrot wäre ich dankbar.Gruß
Alexander Schiermeier