Hallo Liebe Community,

vorab erstmal, ich habe mit VBA bisher noch keine Erfahrung, hoffe aber dass es für mein Problem eine Lösung gibt.

Ich habe eine Excel Tabelle in der es unter anderem folgende 3 Spalten gibt: "title", "mpn" & "manufacturer". Es handelt sich dabei um eine Liste von verschiedenen Artikeln. Diese Datei habe ich von einem Verkaufsportal für unseren Lagerbestand heruntergeladen, da es einige Artikel gibt bei denen die "mpn", also die Artikelnummer fehlt. 

Die verschiedenen Marken haben immer ein bestimmtes Schema bei der Artikelnummer, z.B. 1234-56 bei Marke XY. Da es hierbei um mehr als 1000 Artikel mit diesem Fehler geht, müsste ich nun für alle einzeln die Artikelnummer extrahieren und entsprechend einfügen (die Artikelnummer ist immer im Titel enthalten).
Da aber die Zeicheanzahl vor und hinter der Artikelnummer immer unterschiedlich ist, konnte ich keine Lösung mit Excel internen Funktionen/Formeln finden.

Auch bei meiner Suche wegen einer Lösung mit VBA, habe ich leider nichts gefunden dass für diesen speziellen Fall anwendbar wäre, deshalb nun mein eigener Beitrag.

Ich weiß nicht ob es möglich ist, verschiedenen Vorlagen zu definieren und je nach Inhalt der Hersteller Spalte die entsprechende Vorlage zu verwenden, aber es würde auch schon reichen wenn ich die Vorlage für die Formatierung der Nummer immer manuell ändern müsste für die einzelnen Hersteller. 

Folgend ein paar Beispiele zur verdeutlichung (die Spalte mpn ist wie erwähnt leer und sollte entsprechend gefüllt werden):

title                                      | mpn                   | manufacturer
Boccia 0510-09 Titanium    | 0510-09             | Boccia
Nomination 142688/005     | 142688/005        | Nomination
Kette Edelstahl SO1149/01| SO1149/01         | S. Oliver

Gedacht hätte ich mir z.B. dass ich festlege dass z.B. Boccia Artikelnummer 1234-12 sind und diese Zahlenfolge aus dem Titel feld extrahiert und in mpn eingefügt wird. 

Ich hoffe das ganze ist verständlich formuliert und mit VBA machbar.

Verwendete Office Version: Microsoft Professional Plus 2010 | Ver. 14.0.7208.5000 (64-Bit)

Vielen Dank schonmal im Voraus für eure Hilfe!

Viele Grüße
Kevin