Hi,
wenn die Dateinamen in Spalte C stehen, könnte dies ein Ansatz werden:
Sub Nur_ein_Anfang()
dim Check()
dim iRes()
lr = cells(rows.count, "A").end(xlup).row
redim Check(lr,2)
redim iRes(lr)
for i = 1 to lr
Check(i,1) = split(cells(i,"C"),"_")(1)
check(i,2) = split(cells(i,"C"),"_")(2)
next i
'Dictionary für max pro Tag
End Sub
Offensichtlich fehlt noch viel, aber meine Lust am Codeschreiben ist am Ende.
|