Hier die Version, wenn der DateiName diesen Konventionen folgt:
Tag. Name_des_Monats Jahr.docx
bzw als Version
Tag. Name_des_Monats Jahr IV.docx
Sub iFen() 'Version 2
Dim WSF As WorksheetFunction: Set WSF = Application.WorksheetFunction
Dim Dateien(31, 1) As Variant
Dim iSt As String, V As Integer
'Hier die Schleife über die Dateien
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
iSt = Cells(i, "A").Value
If Mid(iSt, Len(iSt) - 5, 1) Like "[IVX]" Then
'Tx = Split(Split(iSt, ".")(1))(3)
V = WSF.Arabic(Split(Split(iSt, ".")(1))(3))
Else
V = 0
End If
Tag = Val(Cells(i, "H").Value)
If Dateien(Tag, 0) = "" Then
Dateien(Tag, 0) = iSt
Dateien(Tag, 1) = V
Else
If Dateien(Tag, 1) < V Then
Dateien(Tag, 0) = iSt
Dateien(Tag, 1) = V
End If
End If
Next i
'Ausgabe ins "Debug-Fenster"
For i = 1 To 31
If Dateien(i, 0) <> "" Then Debug.Print Dateien(i, 0), Dateien(i, 1)
Next i
End Sub
Ein abweichendes Leerzeichen, und es gibt nur Fehler
|