Zeichen am Ende entfernen bis erste Zahl

Hallo ich bin auf Excel 16.16.27 auf dem Mac und habe eine Aufgabe:
In einer Tabelle mit 21.000 Zeilen sind in einer Spalte Produktcodes enthalten. Dabei sind in einer Zelle mehrere alte Produktcodes kommagetrennt enthalten.
Beispiel:
YH0101TE,YH0101,HRG20037UNR,HRG20037P,HRG20037NG,HRG20037F,HRG20037BA,YH0101,YH0101T
Nun soll bei jedem der Produktcodes die Buchstaben am Ende entfernt werden. Wie stelle ich dies in Excel an?
Wesentlich ist dabei, dass die Anzahl der Buchstaben am Ende variieren kann und es auch Produktcodes ohne Buchstaben am Ende gibt.
Ziel soll so aussehen:
YH0101,YH0101,HRG20037,HRG20037,HRG20037,HRG20037,HRG20037,YH0101,YH0101
Toll wäre, wenn doppelte Produktcodes auf einen Eintrag in der Zelle reduzierbar wären, aber dies ist nicht zwingend.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
bitte beachten: die Excelversion ist NIEMALS ohne Relevanz
mit jeder Version kommen neue Funktionen hinzu, die das lösen einer Aufgabe erleichtern können und man sollte wissen, ob man die Verwenden darf oder nicht.
wenn die Auswahl deine Excelversion nicht anbietet, dann schreibe sie in die Anfrage, oder wähle die nächstältere oder die parallele Windowsversion.
per Makro so:


dim i as long, z as long
for i = 1 to 3 'anpassen, je nachdem vieviele folgende Buchstaben es maximal geben kann.
for z = Asc("A") to ASC("Z")
Selection.Replace Chr(z) & ",", ",", xlpart
next
next

damit das auch die daten am Ende bearbeitet, musst du erst in einer Hilfsspalte per Formel das Komma am Ende hinzufügen =A1&"," und dann die Formel durch Werte ersetzen damit du sie bearbeiten kannst.
Wenns rein per Formel sein muss, solltest du die Version angeben .
Gruß Daniel

Public Function Korr(txt As String) As String Application.Volatile Dim Arr, i, ii, MI, found As Boolean Arr = Split(txt, ",") For i = 0 To UBound(Arr) found = False For ii = Len(Arr(i)) To 1 Step -1 MI = Asc(Mid(Arr(i), ii, 1)) If MI 57 Then If Not found Then Arr(i) = Left(Arr(i), Len(Arr(i)) - 1) Else found = True End If Next ii Next i Korr = WorksheetFunction.TextJoin(Chr(44), True, Arr) End Function

Beliebteste Forumthreads (12 Monate)

Zeichen am Ende entfernen bis erste Zahl

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

320 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeichen am Ende entfernen bis erste Zahl

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

320 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread