Ich möchte eine Verknüpfung in Excel zu Zellen, die ich als Hyperlink verknüpft habe

Ich möchte eine Verknüpfung in Excel zu Zellen, die ich als Hyperlink verknüpft habe

Ich habe eine Reihe von Zellen erstellt, die, wenn sie verkettet sind, einen Hyperlink zu einem Remote-Server bilden. Excel-Arbeitsblatt 2010 (Dateiname ändert sich täglich mit Datumsfunktion oder Datumseingaben durch Benutzer). Auf demselben Blatt möchte ich eine Verknüpfung zu dem oben erwähnten Hyperlink-Text erstellen. Folgendes habe ich in Zelle AA14 '=Hyperlink(AC14&AD14) Funktioniert wie ein Champion – hat aber eine sehr lange Adresse. Ich möchte das auf die Kurzreferenz „Heutiges EOD:“ abkürzen.

Ich möchte eine Verknüpfung in Zelle I14 mit der Bezeichnung „HEUTE-BERICHT“ und einer Verknüpfung zu Zelle AA14 haben. Ich kann sie nicht verknüpfen und zum Endpunkt auf einem freigegebenen Laufwerk führen. In I14 habe ich „HEUTE“ beschriftet, habe versucht, auf AA14 zu verweisen und einen Hyperlink zu erstellen. Es tritt die Fehlermeldung „Angegebene Datei kann nicht geöffnet werden“ auf – ich habe keine Seife mehr – irgendwelche Ideen?

Antwort1

Dies lässt sich mit ein wenig VBA erledigen. Beachten Sie, dass hierbei vorausgesetzt wird, dass die Arbeitsmappe keine anderen Hyperlinks enthält.

  1. Öffnen Sie die VBA IDE mit Alt-F11.
  2. Fügen Sie ein Modul hinzu, indem Sie auf Einfügen, Modul klicken.
  3. Kopieren Sie den untenstehenden Code und fügen Sie ihn in das Modul ein
  4. Fügen Sie der Zelle I14 eine Form hinzu.
  5. Klicken Sie mit der rechten Maustaste auf die Form und bearbeiten Sie den Text mit einem aussagekräftigen Namen, z. B. An Server
  6. Klicken Sie mit der rechten Maustaste auf die Form und weisen Sie followMeder Form ein Makro zu.

Sie müssen die Datei als Arbeitsmappe mit Makros (*.xlsm) speichern. Um Sicherheitswarnungen zu vermeiden, fügen Sie den Ordner, in dem die Datei gespeichert ist, zu den vertrauenswürdigen Speicherorten hinzu (Datei, Optionen, Trust Center, Trust Center-Einstellungen, vertrauenswürdige Speicherorte).

Code

Sub followMe()
Range("N2").Hyperlinks(1).Follow
End Sub

verwandte Informationen