Hyperlink auf ausgeblendetes Blatt?

Computer: Software & Programmierung Office Software
#1

Hallo zusammen,

ich krieg’s mal wieder nicht hin.

Mit einem eingefügten Hyperlink springe ich auf ein anderes
Arbeitsblatt. Hier tippe ich mit der Maus auf eine Zelle,
in der ein Preis steht. Diesen Preis übernimmt er, trägt
ihn in das aufrufende Blatt ein und springt dorthin zurück.

Das Makro im Preisblatt sieht so aus:

Option Explicit
Dim wert
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
wert = Target.Value
If wert > „“ Then Worksheets(„Aufrufendes Blatt“).Range(„F39“) = wert
Worksheets(„Aufrufendes Blatt“).Activate

End Sub

Klappt wunderbar.

Um es nicht zu unübersichtlich werden zu lassen, möchte ich aber die
verlinkten Blätter ausblenden und sie erst wieder sichtbar machen,
wenn der jeweilige Link benutzt wird. Nach dem Anklicken des Preises
soll das Blatt wieder ausgeblendet werden.

Geht das?

Würde mich freuen, wenn jemand helfen könnte.

Gruß

Rolf

#2

Hallo Rolf.

Kleine Info:

  • Einblenden:
    Worksheets(1).Visible = True

  • Ausblenden:
    Worksheets(1).Visible = False

1 = ID, kannst auch über Worksheets(„Tabelle1“) zugreifen. Tabelle1 = Name

Grüße,
Sebastian

#3

Hallo Sebastian,

danke für den Hinweis, sowas dachte ich mir auch, aber wo
bastele ich das dazwischen? Das müßte ja NACH dem Klick auf den
Link von der aufrufenden Seite ausgehen. Da brauch ich nochmal
Deine Hilfe.

Gruß und danke

Rolf

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#4

Hallo Rolf.

Kleine Info:

  • Einblenden:
    Worksheets(1).Visible = True

  • Ausblenden:
    Worksheets(1).Visible = False

1 = ID, kannst auch über Worksheets(„Tabelle1“) zugreifen.
Tabelle1 = Name

Grüße,
Sebastian

Hallo, ich nochmal,

das Ausblenden des Blattes nach dem Aufnehmen des Preises
und Eintrag auf dem aufrufenden Blatt klappt schon ganz gut:

Option Explicit
Dim wert
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
>
wert = Target.Value
Sheets(„Preisblatt“).Visible = False
If wert > „“ Then Worksheets(„Aufrufendes Blatt“).Range(„g47“) = wert
Worksheets(„Aufrufendes Blatt“).Activate

End Sub

Ich weiß nur noch nicht, wohin mit dem
>Sheets(„Preisblatt“).Visible = True

#5

Ich weiß nur noch nicht, wohin mit dem
>Sheets(„Preisblatt“).Visible = True

#6

Moin zusammen,

nun funktioniert es *freu*

Code im Blatt mit Hyperlink:

Private Sub Worksheet\_FollowHyperlink(ByVal Target As Hyperlink)
 Dim strAdr As String
 Dim strSht As String
 strAdr = Target.SubAddress
 strSht = Replace(Left(strAdr, Len(strAdr) - InStr(1, StrReverse(strAdr), "!")), "'", "")
 Sheets(strSht).Visible = xlSheetVisible
 Sheets(strSht).Activate
End Sub

Code im ausgeblendeten Blatt:

Option Explicit
Dim wert
Private Sub Worksheet\_SelectionChange(ByVal Target As Range)
 wert = Target.Value
 Sheets("ausgeblendetes\_Blatt").Visible = False
 If wert \> "" Then Worksheets("Blatt mit Hyperlink").Range("g47") = wert
 Worksheets("Blatt mit Hyperlink").Activate

End Sub

Vielen Dank nochmal für Eure Unterstützung.

Gruß

Rolf