Hyperlinks kenntlich machen bzw. Fehlersuche

Sven · 2024-09-24T11:51:13+00:00

Hello again, [ danke Hans, es geht ;-) ] ich hoffe ihr habt einen Tip für mich. Ich habe da eine Liste mit Buchungen und möchte durch anklicken die PDF dazu öffnen. Da mache ich schon lange und hat immer ganz gut funktioniert. Nun habe ich internationale Kollegen, d.h. wir arbeiten auch mit englishen layout etc. und das ganze auf einer Drive. Solange ich darüber wache läuft das auch. Kaum schaue ich mal nicht drauf, fehlen die Links zu den PDFs oder sie zeigen auf about:blank. Keine Ahnung warum, denn das aktualisieren ist abgeschalten und die Pfade sind relativ. Ich bräuchte nun eine einfach Möglichkeit (wie Bedingte Formatierung) um anzeigen zu lassen, welcher Zelle einen Link hat, der auf eine PDF endet. Dann hätten meine Kollegen wenigsten den Überblick, wo schon verlinkt ist und wo nicht. Mit ISTFORMEL klappt das für die Formeln ganz gut. Jetzt brauch is das für Links. Ich habe schon überall gesucht, aber noch nichts passendes gefunden. Wäre super, wenn Ihr mir helfen könnt. Danke und Gruß. PS: Die Vorformatierung von LINKS funktioniert leider nicht, da man die überschreiben kann... Ich hätte auch nichts gegen eine spalte, wo der Link dargestellt wird...

Hi
man kann in Excel zwar per Formel einen Hyperlink mit gleichnamiger Funktion erstellen, aber es gibt meines Wissens nach noch keine Excelfunktionen, mit denen man Hyperlinks auswerten kann.

wenn VBA eine Option ist, dann könntest du dir diese beiden Codes in ein allgemeines Modul kopieren.
dann stehen dir in dieser Datei diese zwei Funktionen zur Verfügung:

IstHyperlink(A1) prüft einfach, ob die Zelle A1 einen Hyperlink enthält oder nicht und gibt entsprechen WAHR oder FALSCH aus:

Function IstHyperlink(Zelle As Range) As Boolean

IstHyperlink = Zelle(1).Hyperlinks.Count

End Function

Hyperlink_Pfad(A1) ermittelt den Text des Hyperlinks der Zelle A1. hat sie keinen, bekommst du ""
um zu prüfen, ob du einen Link hast der auf .pdf endet, nimmst du dannn
=rechts(Hyperlink_Pfad(A1);3)="pdf"

Function Hyperlink_Pfad(Zelle As Range) As String

If Zelle(1).Hyperlinks.Count = 1 Then

    Hyperlink_Pfad = Zelle(1).Hyperlinks(1).Address

Else

    Hyperlink_Pfad = ""

End If

End Function

Gruß Daniel

Hi
korrekt.
Eine vorhandene Formel wird neu berechnet, wenn sich der Wert einer Zelle, die von der Formel verwendet wird, ändert.
Ändert sich nur das Format oder wie hier der Link einer Zelle, dann löst das nicht den Impuls aus, die von dieser Zelle abhängige Formeln neu zu berechnen.
Vollständig lösen kann man dieses Problem nicht. Man kann es nur etwas abmildern, in dem du dem Code der Funktion ein Application.Volatile hinzufügst:

Function IstHyperlink(Zelle As Range) As Boolean

Application.Volatile

IstHyperlink = Zelle(1).Hyperlinks.Count

End Function

das bewirkt zwar nicht, dass eine Formatänderung eine Neuberechnung aufführt, aber es bewirkt, dass die Formel bei jeder beliebigen Wertänderung in Excel neu berechnet wird.
dh wenn du mehrere Zellen mit dieser Funktion hast, dann musst du nur in irgendeiner beliebigen Zelle irgendetwas ändern und alle deine Formeln sind wieder aktuell.
ohne das Application.Volatile müsstest du jede Zelle einzeln anklicken.

Gruß Daniel

Hyperlinks kenntlich machen bzw. Fehlersuche

Forumthread: Hyperlinks kenntlich machen bzw. Fehlersuche

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Hyperlinks kenntlich machen bzw. Fehlersuche

Forumthread: Hyperlinks kenntlich machen bzw. Fehlersuche

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread