ich habe ein Makro, welches nach einer Datei mit Änderungsdatum "Yesterday" sucht. Leider reicht das noch nicht ganz.
Denn ich brauche auch noch die Uhrzeit in der Suche. Es soll nämlich nur die Datei mit der jüngsten Uhrzeit geöffnet werden (d.h. nicht die Datei von 0 Uhr und x Minuten, sondern von 23 Uhr und x Minuten).
Die Uhrzeit kann auch im Format 23 Uhr und x Minuten angegeben werden. Geht das????
Hier mal das bisher erstellte Makro:
Sub auto_open()
Dim sPfad As String
Dim objFileSearch As FileSearch
Dim strVerzeichnis As String, strDatei As String
Dim oBlatt As Worksheet
strVerzeichnis = "d:\Projektarbeit\Diskette5\2002"
strDatei = "*.afd"
Set objFileSearch = Application.FileSearch
With objFileSearch
.LookIn = strVerzeichnis
.SearchSubFolders = True
.Filename = strDatei
.LastModified = msoLastModifiedYesterday
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
sPfad = .FoundFiles(1)
Workbooks.OpenText Filename:=sPfad
Columns("A:A").Select
Selection.NumberFormat = "h:mm;@"
Columns("B:T").Select
Selection.NumberFormat = "0.00"
Call Berechnung
Set oBlatt = ActiveSheet
....
Else
MsgBox "Datei wurde nicht gefunden!"
End If
End With
End Sub
Vielen Dank für eure Hilfe!!!
Gruß,
Bernhard