Definierten Hyperlink öffnen, aktuelles Fenster schließen

Question

Hallo zusammen,

ich habe folgendes Problem: Ich möchte in einem Arbeitsblatt bei Klick auf Hyperlink, welcher zu einer anderen Datei führt, die aktuelle Datei schließen.

Hierzu verwende ich den folgenden Code:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Application.DisplayAlerts = False
ThisWorkbook.Close
Application.DisplayAlerts = True
End Sub

Nun habe ich das Problem, dass sich im Arbeitsblatt zwei Hyperlinks befinden, und nur bei einem der beiden soll die Datei geschlossen werden.

Kann ich einen genauen Hyperlink angeben, der die Datei schließt und gleichzeitig die neue öffnet?

Vielen Dank für jede Hilfe!

Herzliche Grüße

Answer 1

Hallo,

versuch es mal so:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Application.DisplayAlerts = False
'Falls der Hyperlink in Zelle A1 angeklickt wird, wird diese Arbeitsmappe geschlossen
If Target.Address = Range("A1") Then ThisWorkbook.Close
Application.DisplayAlerts = True
End Sub

Die Adresse der betreffenden Zelle musst du natürlich auf deine Bedürfnisse anpassen.

Gruß

M.O.

Answer 2

Hallo,

vielen Dank für die Schnelle Antwort. Leider schließt die Datei jetzt nicht mehr...

Answer 3

Hallo,

hast du den Code entsprechend auf deine Datei angepasst? Bei meiner Testdatei funktioniert der Code nämlich.

Gruß

M.O.

Answer 4

Der Code sieht bei mir nun folgendermaßen aus, da sich der Link in B9 befindet:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Application.DisplayAlerts = False
If Target.Hyperlink = Range("B9") Then ThisWorkbook.Close
Application.DisplayAlerts = True
End Sub


Oder muss ich den Namen oder Pfad des Links angeben?

Grüße

Answer 5

Hallo,

in deinem Code steht. Target.Hyperlink, richtig muss es aber Target.Address heißen.
Ändere das entsprechend und probiere dann noch mal den Code.

Gruß

M.O,.

Answer 6

Ich habe den Code nun einfach kopiert, und "A1" in "B9" geändert.

Ich verstehe nicht, warum es nicht funktioniert.

Answer 7

Hallo,

dann versuch es mal so:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

Application.DisplayAlerts = False
'Falls der Hyperlink in Zelle A1 angeklickt wird, wird diese Arbeitsmappe geschlossen
If Target.Range = "..\Deine Datei.xlsx" Then ThisWorkbook.Close

Application.DisplayAlerts = True
End Sub

Kopiere die Adresse aus den Eigenschaften des Hyperlinks (Hyperlink bearbeiten) in den Code (anstatt ..\Deine Datei.xlsx )

Gruß

M.O.

Answer 8

Hallo,

was genau funktioniert denn nicht? Überprüfe folgendes:

-Hast du nach Änderung von A1 in B9 und vor Schließen der Datei die Datei gespeichert?
-Hast du B9 innerhalb der Klammern auch in Anführungszeichen gesetzt?
-Sind evtl. deine Events ausgeschaltet? Führe dazu über ein anderes Makro
Application.EnableEvents=True aus oder starte Excel neu.
-Hast du den code von M.O. in das richtige SheetModul kopiert? Bei Verwendung des Moduls "DieseArbeitsmappe" muss der Makroname in Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
geändert werden.
-Beachte: Weiterer Code nach ThisWorkbook.Close kann nicht ausgeführt werden. Die DisplayAlerts-Eigenschaft wird nach Ende des Codes automatisch zurück auf True gesetzt.

Mr. K.

Answer 9

Ich weiss einfach nicht, was verkehrt ist.

Ich bekomme die Fehlermeldung: Dieser Befehl beendet den Debugger

Answer 10

Ergänzung:
Die Datei sollte bei Excel ab Version 2007 im Format .xlsm gespeichert werden.