Dateien der letzten 31 Tage auslesen
René
ich habe mir ein Makro geschrieben mit dem ich Dateien aus einen Ordner auslese und auflisten lasse die ein bestimmtes Textfragment enthalten was in einer Zelle steht. Hier in dem Fall in Zelle A1 zum Beispiel 15 was für Kalenderwoche 15 steht.
Das Makro sieht wie folgt aus
Private Sub CommandButton3_Click()
If Cells(1, 1) = "" Then
MsgBox ("Bitte erst Kalenderwoche eingeben für die Epikrisen gesucht werden sollen!")
Exit Sub
End If
Dim strDatei As String, lngZ As Long
Const VERZEICHNIS As String = "Y:\Epikrisen_2011\"
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 & "*" & Cells(1, 1) & "_" & "*.xlsm", vbNormal)
If Dir(VERZEICHNIS & "*" & Cells(1, 1) & "_" & "*.xlsm", vbNormal) = "" Then
MsgBox ("Für diese Auswahl liegen keine erfassten Epikrisen vor!")
End If
Do While strDatei ""
lngZ = lngZ + 2
.Hyperlinks.Add Anchor:=.Cells(lngZ, 1), _
Address:=VERZEICHNIS & strDatei, SubAddress:="", _
TextToDisplay:=strDatei
strDatei = Dir
Loop
End With
End Sub
Nun möchte ich aber zusätzlich ein Makro haben mit dem ich alle Dateien auslesen und auflisten lassen kann die ein bestimmtes Textfragment enthalten zum Beipiel "Patient14" und in den letzten 31 Tagen mit dem Textfragment "Patient14" erfasst und gespeichert wurden. Geht so etwas. Könnt ihr mir bitte helfen?
MfG René