Dann könnte man die Funktion GetFileID schonmal durch die untrige ersetzen.
Private Function GetID(File As String) As String
Dim bFlag As Boolean
Dim i As Long
For i = 1 To Len(File)
If IsNumeric(Mid$(File, i, 1)) Then
bFlag = True
ElseIf bFlag Then
Exit Function
End If
GetID = GetID & Mid$(File, i, 1)
Next
End Function
Damit wird beginnend vom Anfang jedes zeichen genommen. Taucht das erste mal eine Zahl auf wird solange weiter eingelesen bis keine Zahl mehr kommt, dann ist Ende.
Damit hätten wir dann sowas wie ZB3311 aus ZB3311_Koffer.jpg extrahiert und können danach in Spalte A suchen.
Würde diese Vorgehensweise bei allen Dateinamen so korrekt funktionieren?
|