Office: Bilder einfügen, wo der Bildname Teil des Modellnamens ist?

Hallo Profis,

ich baue mir gerade ein Tabelle (mit Excel 2003) für Warenreduzierungen. Dafür importiere ich eine Textdatei aus unserem Warenwirtschaftssystem. Für die meisten Modelle haben wir Bilder abgespeichert. Mit folgendem Macro (habe ich nicht selbst erstellt sondern ergoogelt) importiere ich die Bilder
zu den Modellen, die in Spalte A stehen.

Sub Bilder_einfügen()
Dim Pfad As String, Wiederholungen As Long
On Error Resume Next
Pfad = "D:\Download\BILD\"
For Wiederholungen = 2 To Range("A65536").End(xlUp).Row
Cells(Wiederholungen, 3).Activate
ActiveSheet.Pictures.Insert(Pfad & Cells(Wiederholungen, 1) & ".bmp").Select
Next
End Sub

Das funktioniert aber nur, wenn der Modellname = Bildname ist. Durch unser Warenwirtschaftssystem sind aber nur bestimmte Bildnamen möglich (max 8 Zeichen, ohne Sonderzeichen etc...) Aus diesem Grund gibt es Artikel die z.B. 717111/888 heißen und das Bild 717111.bmp oder ein Modell heißt 1656216903 und das Bild 6216903.bmp oder 47111#ROS und das Bild heißt 47111.bmp.
Das heißt der Bildname ist auf jeden Fall im Modellnamen enthalten.

Gibt es eine Möglichkeit ein Bild zu importieren, wenn der Bildname im Modellnamen enthalten ist? Auch auf die Gefahr hin, dass ein Bild falsch zugeordnet wird.

Uff... ich hoffe ich habe mich verständlich ausgedrückt:)

Herzlichen Dank für Eure Hilfe
Craxx;)

 

Nur, wenn Du irgendwo eine Liste hast der den Modellnamen in den Bildnamen übersetzt.