mit diesem Code ist es möglich alle Dateien aus einem Verzeichnis als Hyperlink aufzulisten die im Dateiname einen bestimmten Text enthalten. Ich würde gern den zu suchenden Text in eine Zelle schreiben und vom Makro aus der Zelle auslesen lassen da sich der Text ändern kann. Könnt ihr mir da bitte helfen.
MfG René
Private Sub CommandButton1_Click()
Dim strDatei As String, lngZ As Long
Const VERZEICHNIS As String = "C:\Users\Rene\Testbögen\"
If Dir(VERZEICHNIS, vbDirectory) = "" Then
MsgBox VERZEICHNIS & " wurde nicht gefunden!" & Space(10), 64, "weise hin..."
Exit Sub
End If
With ActiveSheet
.Columns(1).ClearContents
strDatei = Dir(VERZEICHNIS & "*Testbögen*.xls*", vbNormal)
Do While strDatei ""
lngZ = lngZ + 1
.Hyperlinks.Add Anchor:=.Cells(lngZ, 1), _
Address:=VERZEICHNIS & strDatei, SubAddress:="", _
TextToDisplay:=strDatei
strDatei = Dir
Loop
End With
End Sub