Teilenummer korrekt aufsplitten

Markus Jud · 21. Dezember 2016

Hallo!

Vielleicht kann mir da jemand weiterhelfen:

Ich habe Teilenummern die aus Buchstaben und Zahlen bestehen und sich aus einem Prefix, einer Base und einem Suffix zusammensetzen. Da ich diese kompletten Teilenummern in diese 3 Teile aufsplitten muss, wollte ich fragen, ob ihr da eventuell weiterhelfen könnt. Folgend ein paar Beispiele:

Teilenummer Prefix Base Suffix
XY12125678XY XY12 125678 XY
XY3412X5678XYZ1 XY34 12X5678 XYZ1
XY563000AB12 XY56 3000 AB12

Der Prefix besteht zu 99% aus 4 Stellen. Die Base ergibt sich aus der Länge der Teilenummer abzüglich der Länge Prefix und Suffix.

Mein Problem ist der Suffix welcher aus maximal 5 Stellen und Buchstaben und Zahlen bestehen kann. Und er beginnt immer mit einem Buchstaben. Da die Teilenummer als Text formatiert ist, habe ich schon mit =WENN(RECHTS(UNIZEICHEN(48)); experimentiert aber kein zufriedenstellendes Ergebnis erreicht.

Danke im Voraus!

Gruß Markus

Claus Busch

Hallo Markus,

deine Daten sind nicht eindeutig, um eine Formel verwenden zu können.

Wie viele Zahlen können am Ende des Suffix stehen?

Wenn es maximal 2 Zahlen sind, dann probiere mal folgendes Makro:

Sub Splitten()

Dim rngC As Range

Dim LRow As Long, i As Long

With ActiveSheet

    LRow = .Cells(.Rows.Count, 1).End(xlUp).Row

    For Each rngC In .Range("A2:A" & LRow)

        rngC.Offset(, 1) = Left(rngC, 4)

        For i = Len(rngC) - 2 To 1 Step -1

            If IsNumeric(Mid(rngC, i, 1)) Then

                rngC.Offset(, 3) = Mid(rngC, i + 1)

                Exit For

            End If

        Next

        rngC.Offset(, 2) = Replace(Replace(rngC, rngC.Offset(, 1), ""), rngC.Offset(, 3), "")

    Next

End With

End Sub

Claus

Markus Jay

Wow! Das funktioniert schon mal nahezu perfekt! Ein paar Abweichungen gibt es noch, da es Teilenummern mit längeren Suffixes gibt (Farbcodes), aber die kann ich manuell korrigieren.

Ich habe zwischenzeitlich mit dieser Formel oder mit Text in Spalten gearbeitet:

=WENN(UND(UNICODE(RECHTS($A2;3))>47;UNICODE(RECHTS($A2;3))<58);RECHTS($A2;2);WENN(UND(UNICODE(RECHTS($A2;4))>47;UNICODE(RECHTS($A2;4))<58);RECHTS($A2;3);RECHTS($A2;4)))

Ist aber alles andere als elegant.

Vielen Dank für die Hilfe!

Gruß Markus

RaphWeb

Hallo Sarah,

danke für deine Antwort.

Schade, dass dies nicht möglich ist aber da ich dies nun weiß, werde ich die Exceltabelle einfach aufsplitten.

Viele Grüße

Sierpa

Wieso wurde mein Beitrag gelöscht? Ich hätte das ja gerne per pn gefragt, scheint aber nicht zu gehen...

Ich hätte gerne eine Antwort auf meine Frage, wie die Rechtslage denn nun ist und ob das Aufsplitten von Volumenlizenzen das Problem in meinem Fall war!

puzzeldlook

Genau das Problem habe ich seit einiger Zeit auch, dieser Fehler tritt nur am Surface auf.

Am PC lässt es sich relativ Flott reinzoomen.

Ich glaube das surface lädt die Dateien im hitnergrund nach und kommt nicht hinterher.

Jedenfalls tritt der Fehler seltener auf wenn ich die großen PDF's aufsplitte in kleinere Kapitel

Es ist ziemlich nervig mit diesem Fehler zu arbeiten, aber so habe ich ihn wenigstens teilweise Umgangen

Hi,

willkommen im Windows Forum!

Teilenummer korrekt aufsplitten - Similar Threads - Teilenummer korrekt aufsplitten	Forum	Datum
Rechnungsadresse nicht korrekt Rechnungsadresse nicht korrekt: Die in den Adressen unter Zahlung und Abrechnung angegebene bevorzugte Rechnungsadresse wurde nicht für die aktuelle Rechnung 6383450658916912015 meines 365 Family Abonnements verwendet.Wie kann...	Microsoft Office	10. November 2023
meine Synchronisation ist nicht korrekt meine Synchronisation ist nicht korrekt: meine Synchronisation ist nicht korrekt	Apps	20. Oktober 2023
meine Synchronisation ist nicht korrekt meine Synchronisation ist nicht korrekt: meine Synchronisation ist nicht korrekt	Games und Spiele	20. Oktober 2023
Befehl nicht korrekt Befehl nicht korrekt: Habe ein Bluescreen Problem als letztes sollte ich dieses Befehl ausführen DISM /Online /Cleanup-Image /Restorehealth aber ich weiß jetzt nicht ob ich die Leerzeichen korrekt gesetzt habe es gibt...	Apps	26. Juli 2023
Sculpt Ergonomic Mouse Teilenummer: L6V-00003 Sculpt Ergonomic Mouse Teilenummer: L6V-00003: Ich habe eine Mouse ohne USB-Receiver Dongle bekommen, gibt es einen Universal Dongle für die Mouse oder kann ich den meiner alten umprogrmmieren??	Allgemeines	5. Oktober 2018
Sculpt Ergonomic Mouse Teilenummer: L6V-00003 Sculpt Ergonomic Mouse Teilenummer: L6V-00003: Ich habe eine Mouse ohne USB-Receiver Dongle bekommen, gibt es einen Universal Dongle für die Mouse oder kann ich den meiner alten umprogrmmieren??	Allgemeines	7. September 2018
Teilenummer korrekt aufzusplitten Teilenummer korrekt aufzusplitten: Hallo! Vielleicht kann mir da jemand weiterhelfen: Ich habe Teilenummern die aus Buchstaben und Zahlen bestehen und sich aus einem Prefix, einer Base und einem Suffix zusammensetzen. Da ich...	Microsoft Office	21. Dezember 2016

Teilenummer korrekt aufsplitten