Dateinamen
14.07.2003 10:09:19
Maze
ich habe letzte Woche diese Formel von Nike gekriegt. Funktioniert super!
Jetzt hab ich aber noch zusätzlich andere Dateinamen in anderer Form
Diese Formel
For i = 1 To 50
strTest = Cells(i, 1)
Dim intU1 As Integer
Dim intU2 As Integer
Dim intU3 As Integer
intU1 = InStr(1, strTest, "_")
intU2 = InStr(intU1 + 1, strTest, "_")
intU3 = InStr(intU2 + 1, strTest, "_")
intU3 = InStr(intU2 + 1, strTest, "_")
'ID612_BC_test
Cells(i, 2) = Mid(strTest, intU2 + 1, intU3 - 1 - intU2) & _
Mid(strTest, intU1, intU2 - intU1) & _
Right(strTest, Len(strTest) + 1 - intU3)
Next i
funtioniert nur bei Dateinamen in solcher Form FORM_SD_ID752_Tst.doc die anderen sind in dieser Form FORM_SD_ID785.doc meine frage ist kann ich die Formel so umbauen das sie bei beiden Dateinamen funkt.
Danke