Hallo zusammen,

ich bräuchte einen VBA-Code, der mir dabei hilft meine Daten zu bereinigen und hoffe, dass mir hier jemand weiterhelfen kann.

In Spalte J befinden sich bei mir x-verschiedene Teilenummer, leider teilweise noch etwas verschlüsselt. Das Ganze müsste jetzt mit Hilfe eines Codes bereinigt werden.

Momentan sieht das Ganze in einer Zelle z.B. so aus:

025111 'c'

0251111/0251111

10911107 'a'

0291000    2/3

028888 Ersatz

div. RP's

VQ1222555

Erkennen lässt sich daraus folgendes:

Die Teilenummern beginnen immer links in der Zelle und anschließend folgen irgendwelche unerwünschten Zeichen. Mit folgender Formel kann man in Excel ganz einfach die unerwünschten Zeichen löschen: =LINKS(J5209;7) Hier werden nun von der Zelle links 7 Stellen reingezählt, der Rest wird ignoriert. (Die Teilenummer wird dann in Spalte R korrekt angezeigt)

Das Problem ist aber, dass es 6-, 7- und 8-stellige Teilenummern gibt. Der Code müsste also von links zu zählen beginnen und erkennen wie viele Stellen die Teilenummer hat. Unterbrochen werden kann die Teilenummer nur, wenn nach der Zahlenreihenfolge keine Zahl mehr kommt, sondern irgendein anderes beliebiges Zeichen/Buchstabe. Hat der Code die Teilenummer erkannt, soll diese dann in die Spalte R der entsprechenden Zeile geschrieben werden.

Weitere Funktion des Codes: Beginnt die Zelle mit etwas anderem als einer Zahl, ist sie leer oder verfügt sie über weniger als 4 aufeinanderfolgende Zahlen (wieder von links betrachtet), einfach die Zelle in Spalte R freilassen.

Anmerkung: Alle Zahlen sind als Text gespeichert, da die Teilenummern anfangs oft mit einer 0 beginnen.

Ist das irgendwie möglich? Wäre super, wenn mir hier jemand weiterhelfen könnte.

Vielen Dank im Voraus!!