Den ganzen Namen habe ich noch nicht, da das Bildbetrachtungsprogramm Irfanview mit "GRUNDNAME*.jpg" das alphabetisch erste Bild mit dem gleichen Grundnamen offnet. So kann ich von Grundnamen (oder Gegenstand) zu Grundnamen wechseln. Das reicht einmal aus. Jetzt möchte ich aber auch zu den verschiedenen Dateien zum Grundnamen nach dem alphabetisch ersten kommen. Dazu brauche ich den ganzen Namen. Das habe ich bis jetzt so gelöst, dass ich die Bilddateien in einem BildDatenblatt aufgelistet habe und die Suche im BildDatenblatt durchführe.
Der Code dafür lautet
Sub BildDatGanz()
aktBild = Bild
aktcheck = Left(aktBild, 6)
Vornummer = Mid(aktBild, 2, 1)
Datenspalte = Vornummer * 2 + 2
SuchRow = 2
check = Sheets("Bilddateien").Cells(SuchRow, Datenspalte).Text
suchcheck = Left(check, 6)
Do While suchcheck <> aktcheck
SuchRow = SuchRow + 1
check = Sheets("Bilddateien").Cells(SuchRow, Datenspalte).Text
suchcheck = Left(check, 6)
Loop
Bild = check
'MsgBox aktBild & " / " & Bild & " / " & SuchRow
End Sub
Geht das nicht auch aus der Pfaddatei heraus auch?
|