Teil einer Zelle löschen

Hallo zusammen,
in einer Tabelle gibt es eine Spalte "Produktnummer", in der mehrere Produktnummern mit Komma getrennt hintereinander in einer Zelle geschrieben stehen. Die Anzahl der Produktnummern kann unterschiedlich sein, also eine bis z.B. 15.
Beispiele:
1234567890,2345678901
4567891230
5001234567,5004567891230,4123056987
Ich möchte per VBA alle Produktnummern, die mit 500 beginnen, löschen. Die zu löschende Nummer kann ganz links, mittendrin oder ganz rechts stehen. Dementsprechend folgt ein Komma (wenn sie links oder in der Mitte steht) oder nicht (wenn sie ganz rechts steht). Das Komma muss auch mitgelöscht werden.
In der Folge soll die Tabelle in SAS verarbeitet werden (falls sich jemand damit auskennt und es in SAS einfacher ginge, wäre auch das eine Lösung).
Vielen Dank vorab
Axel

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Fuenfhundert() On Error GoTo Fehler Dim TB1, i%, Tmp$, Artnum$ Dim SP%, ZE&, LR& Dim von%, bis% Application.ScreenUpdating = False Set TB = ActiveSheet SP = 1 'Spalte A ZE = 1 'ab Zeile With TB LR = .Cells(Rows.Count, SP).End(xlUp).Row For i = ZE To LR Tmp = "," & .Cells(i, SP) & "," Do von = InStr(1, Tmp, ",500") If von > 0 Then bis = InStr(von + 1, Tmp, ",") Artnum$ = Mid(Tmp, von, bis - von) Tmp = Replace(Tmp, Artnum, "") End If Loop Until von = 0 .Cells(i, SP) = Mid(Tmp, 2, Len(Tmp) - 2) Next End With Err.Clear Fehler: If Err.Number 0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err. _ Clear End Sub

Hi
ohne VBA könntest du so vorgehen:
(Spalte A ist die Spalte mit den Produktnummern, Spalte B die Hilfsspalte)
1. ergänze in einer Hilfsspalte per Formel jeweils am Anfang und Ende ein Komma und ersetzte die einzelnen Kommas durch Doppelkommas. Dazu verwendest du folgende Formel:
=","&Wechseln(A1;",";",,")&","
2. kopiere die Hilfsspalte und füge sie an gleicher Stelle als Wert ein
3. Ersetze in der Hilfsspalte den Wert ,500*, durch nichts. (kein Häkchen bei "gesamten Zellinhalt vergleichen)
4. Ersetze in der Hilfsspalte die Doppelkommas ,, durch einfache Kommas ,
5. lies in der Wertespalte die Werte aus der Hilfsspalte wieder per Formel ein, hierbei entfernst du wieder das führende und folgende Komma, verwende diese Formel:
=Teil(B1;2;Länge(B2)-2)
6. lösche die Hilfsspalte wieder.
diese 6 Schritte lassen sich natürlich auch per VBA ausführen, verwende dazu folgenden Code.
die Spalte mit den Produktnummern wird automatisch über die Überschrift in Zeile 1 ermittelt, die Hilfsspalte wird am Tabellenende eingefügt, so dass keine Daten verändert werden.

Sub Produknummern500Löschen()
Dim Spalte1 As Long
Dim Spalte2 As Long
With ActiveSheet.UsedRange
Spalte1 = .Rows(1).Find(what:="Produktnummern").Column
Spalte2 = .Columns.Count + 1
With .Columns(Spalte2)
.FormulaR1C1 = "="",""&SUBSTITUTE(RC" & Spalte1 & ","","","",,"")&"","""
.Formula = .Value
.Replace ",500*,", "", xlPart
.Replace ",,", ",", xlPart
End With
With .Columns(Spalte1)
.FormulaR1C1 = Replace("=IF(LEN(RCxxx)

Gruß Daniel

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

324 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Teil einer Zelle löschen

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

324 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread