Filesearch unter 2007
robert
ich bin wahrscheinlich schon der 100. der diese Frage stellt, leider
habe ebenfalls das Problem mit dieser Filesearch geschichte
und werde aus den beiträgen in den Foren nicht schlau, da meine Kenntnisse in der Programmierung leider auch nicht übermässig gut sind
könnte mir jemand meinen Code anpassen das dieser unter 2007 rennt
dieser Fragt unterordner ab ob excel datein vorhanden und welche nummer diese haben
sollte eine nummer oder mehrere aufsteigende Nummern vorhanden sein, erhöht sich die Protokollnummer um 1 für die gewünschte filiale, unter 2003 funktioniert das einwandfrei
hier mal der code der zicken macht:
Public Function Protnr(Filiale As String) As Long
Dim PathStr As String
Dim i As Long
Dim IsNr As Long
If Sheets("Abweichungsprotokoll").Range("H14") = 0 Then
If Sheets("Abweichungsprotokoll").Range("H14") 0 Then Exit Function
End If
PathStr = "X:\Data\2. QS Group\04 Abweichungsmeldungen\" & Filiale & "\"
If Dir(PathStr, vbDirectory) = "" Then
MsgBox "Für dieses Werk gibt es keinen Abweichungsordner" & vbLf & PathStr
Protnr = ""
Exit Function
End If
With Application.FileSearch
.LookIn = PathStr
.Filename = "*" & Year(Date) & "*"
.FileType = msoFileTypeExcelWorkbooks
If .Execute = 0 Then
Protnr = 1
Else
For i = 1 To .FoundFiles.Count
IsNr = CLng(Left(Dir(.FoundFiles(i)), InStr(Dir(.FoundFiles(i)), "_") - 1))
If Protnr lg