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,

Dieser Befehl beendet den Debugger

Damit wird der Fehlerbehandlungsmodus beendet. Das ist schon so in Ordnung (wenn vorher Fehler bei der Ausführung eines Makros aufgetaucht sind).
Kopiere den Code in das VBA-Projekt deines Arbeitsblatts, schließe das VBA-Fenster, speichere deine Datei und teste, ob der Code funktioniert.

Gruß

M.O.

Answer 2

Habe es versucht, bekomme nun Laufzeitfehler 13, Typen unverträglich.

Die Dateien sind .xlsm

Answer 3

Probier mal statt Target.Address = Range("B9") lieber Target.Name = Range("B9")

Answer 4

hi all ^^

euren code korrigiert

gruss nighty

einzufuegen
alt +f11 > deine tabelle

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

Answer 5

hi all ^^

oder Name angeben bei mehreren Mappen

gruss nighty

Answer 6

hi all ^^

bzw wie mo schon schrieb

ThisWorkbook.Close

gruss nighty