Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1464to1468
1464to1468
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Hyperlink prüfen

Forumthread: Hyperlink prüfen

Hyperlink prüfen
07.01.2016 11:55:59
Markus
Hallo
ich habe eine Liste mit etwa 500 Hyperlinks.
Die LINKS greifen alle auf Datei-Ordner zu.
Gibt es eine Möglichkeit, die LINKS auf Gültigkeit zu prüfen.
(Hyperlinks sind alle in der Kolonne J ab Zeile 2)
Danke für eine Hilfe.
Markus

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hyperlink prüfen
07.01.2016 16:30:22
Dieter(Drummer)
Hallo Markus,
im Explorer mal "vba hyperlink prüfen" als Suchbegriff eingeben, dann wirst du sicher etwas finden.
Entscheidend ist wohl, ob der Hyperlink eine Verbindung zu Ordnern ist und/oder auch zu Dateien in den Ordnern?!
Gruß, Dieter(Drummer)

AW: Hyperlink prüfen
07.01.2016 17:43:52
Sepp
Hallo Markus,
folgenden Code in ein allgemeines Modul.
Er prüft auf dem aktiven Blatt und schreibt in die Spalte dahinter das Ergebnis.
' **********************************************************************
' Modul: Modul1  Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub checkLink()
Dim objLink As Hyperlink

For Each objLink In Range("J:J").Hyperlinks
  If IsFolder(objLink.Address) Then
    objLink.Range.Offset(0, 1) = "OK"
  Else
    objLink.Range.Offset(0, 1) = "Fehler"
  End If
Next

End Sub

Private Function IsFolder(ByVal FolderName As String) As Boolean
On Error Resume Next
IsFolder = ((GetAttr(FolderName) And vbDirectory) = vbDirectory)
End Function

Gruß Sepp

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige