Sub iFen()
Dim WSF As WorksheetFunction: Set WSF = Application.WorksheetFunction
Dim Dateien(31, 1) As Variant
Dim iSt As String, V As Integer
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
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
For i = 1 To 31
If Dateien(i, 0) <> "" Then Debug.Print Dateien(i, 0), Dateien(i, 1)
Next i
End Sub