Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 11:16:26
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Tabelle nach Hyperlinks durchsuchen

Tabelle nach Hyperlinks durchsuchen
05.12.2006 15:04:07
hoffer2de
Hallo,
ich weiß nicht ob ich hier an der richtigen Stelle bin aber ich probiers mal. Ich habe etliche Exceltabellen bei denen ich nach bestimmten Pfaden von Hyperlinks duchen will. Das Problem ist dass ich nicht nach den angezeigten Namen sondern nach den Pfad suchen muss. Hat jemand eine Idee oder ein Tool mit dem ich auch ganze Verzeichnisse voller Exceltabellen durchsuchen kann ?
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabelle nach Hyperlinks durchsuchen
06.12.2006 09:04:34
Heiko
Hallo Hoffer ?,
mal so zum Anfang dieses Makro nutzen, die Vergleichroutine muss du da noch selbst reinbasteln.

Sub HyperHyper()
Dim strPfad As String
Dim lngI As Long
Dim wksSheets As Worksheet
Dim hypZelle As Hyperlink
' Pfad natürlich anpassen !!!
strPfad = "H:\EXCEL\Muell\Test"
With Application.FileSearch
.NewSearch
.LookIn = strPfad
.SearchSubFolders = False
.FileType = msoFileTypeExcelWorkbooks
If .Execute > 0 Then
Application.ScreenUpdating = False
For lngI = 1 To .FoundFiles.Count
Workbooks.Open .FoundFiles(lngI)
Application.StatusBar = "Datei   " & .FoundFiles(lngI) & "   in Bearbeitung"
For Each wksSheets In ActiveWorkbook.Worksheets
For Each hypZelle In wksSheets.Hyperlinks
' Hier dann deine Vergleichsroutine anstatt der MsgBox rein
MsgBox hypZelle.TextToDisplay & vbCr & hypZelle.Address
Next hypZelle
Next wksSheets
ActiveWorkbook.Close
Application.StatusBar = False
Next lngI
Application.ScreenUpdating = True
End If
End With
MsgBox "Fertig !", vbInformation
End Sub

Gruß Heiko
PS: Rückmeldung wäre nett !
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

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