Enthaltenen Text in Dateiname
René
ich möchte mir ein Makro aufbauen das in einem definierten Ordner alle Dateien ausliest die in ihrem Speichernname das Wort Rückmeldung enthalten und diese dann als Hyperlink in einer Tabelle auflisten
Also bspw.
Ordner Eigene Dateien enthält
Weihnachtsfeier.xls
Überweisungen.xls
Rückmeldung zu Nummer 300 2010.xls
Jahresbericht 2010.xls
Rückmeldung zu Nummer 301 2010.xls
Er soll also dann nur die Dateien als Hyperlink auflisten die das Wort Rückmeldung im Dateiname enthalten
Lösungsansatz
Private Sub CommandButton1_Click()
Const VERZEICHNIS As String = "C:\Eigene Dateien\"
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
MfG René :)
Anzeige