Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
384to388
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
384to388
384to388
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Suchmakro (enthaltener Text), Hyperlink ....

Suchmakro (enthaltener Text), Hyperlink ....
23.02.2004 16:02:02
Phreaker
Hallo erstmal,
ich versuche einen Makro zu schreiben, der die Dateien eines Ordner nach enthaltenem Text durchsucht!
Die Dateien dir gefunden wurden, sollen dann als Hyperlink aufgelistet werden.
Kennt jemand die Schlüsselbefehle, die dafür notwendig sind???
Vielen Dank im vorraus für deine Antwort!
mfg Phreaker

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suchmakro (enthaltener Text), Hyperlink ....
23.02.2004 18:04:16
K.Rola
Hallo,
Beispiel:
Option Explicit

Sub Inhalt_zu_Hyperlink()
Const VERZEICHNIS As String = "C:\Eigene Dateien\Excel\"
Dim strDatei As String, lngZ As Long
If Dir(VERZEICHNIS, vbDirectory) = "" Then
MsgBox VERZEICHNIS & " wurde nicht gefunden!" & Space(10), 64, "weise hin..."
Exit Sub
End If
Columns(1).ClearContents
strDatei = Dir(VERZEICHNIS & "*.*")
[a1] = VERZEICHNIS
[a2] = strDatei
lngZ = 3
Do While strDatei <> ""
strDatei = Dir()
Cells(lngZ, 1) = strDatei
ActiveSheet.Hyperlinks.Add Anchor:=Cells(lngZ, 1), Address:=VERZEICHNIS & strDatei
lngZ = lngZ + 1
Loop
End Sub


Gruß K.Rola
Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige