|
Hallo,
Datei-Namen im Test:
2. Test2.docx
2. Test2 II.docx
2. Test7.docx
Schreibe eine relevante Auswahl deiner Dateinamen in die Spalte A und teste diesen Code:
Sub iFen()
Dim WSF As WorksheetFunction: Set WSF = Application.WorksheetFunction
Dim Dateien(31, 1) As String
Dim iSt As String
For i = 1 To cells(rows.count, "A")
iSt = Cells(i, 1)
TT = Mid(iSt, Len(iSt) - 5, 1)
If TT Like "#" Then V = Val(StrReverse(Split(iSt, ".")(1)))
If Mid(iSt, Len(iSt) - 5, 1) Like "[IVX]" Then V = Roma(Split(iSt, ".")(1))
Tag = Val(Cells(i, 1))
If Dateien(Tag, 0) = "" Then
Dateien(Tag, 0) = iSt
Dateien(Tag, 1) = V
Else
Dateien(Tag, 0) = iSt
Dateien(Tag, 1) = WSF.Max(Dateien(Tag, 1), V)
End If
Next i
For i = 1 To 31
If Dateien(i, 0) <> "" Then Debug.Print Dateien(i, 0), Dateien(i, 1)
Next i
End Sub
Function Roma(ByVal Tx As String) As Integer
Dim WSF As WorksheetFunction: Set WSF = Application.WorksheetFunction
On Error GoTo Ende
Ro = Split(Tx)
Tx = Ro(UBound(Ro))
Roma = WSF.Arabic(Tx)
Exit Function
Ende:
MsgBox "prüfe Datei " & Tx
End Function
___________________________________
(Einfach ist anders)
|