Gleiche Werte von Spalte A und B aus Spalte A löschen

Hallo,

bei deinem Beispiel soll das Komma auch gelöscht werden.

Gebe mal mehr Beispiele, damit man sehen kann, ob da überhaupt eine Logik dahintersteckt, die man für eine Formel oder VBA verwenden kann.

Claus

Hallo,

probiere es mal mit folgendem Makro:

Sub Aufteilen()

Dim LRow As Long, i As Long

Dim n As Integer, j As Integer, k As Integer, z As Integer

Dim varData As Variant, varOut() As Variant, varTmp As Variant
'Hier Tabellenblattname anpassen

With Sheets("Tabelle2")

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

   varData = .Range("A2:A" & LRow)

   For i = LBound(varData) To UBound(varData)

      k = 0

      n = Len(varData(i, 1)) - Len(Replace(varData(i, 1), ",", ""))

      For j = 1 To n / 2

         varData(i, 1) = Application.Substitute(varData(i, 1), ", ", "#", 2 + k)

         k = k + 1

         z = IIf(k > z, k, z)

      Next

   Next

   

   For i = LBound(varData) To UBound(varData)

      n = 1

      ReDim Preserve varOut(1 To UBound(varData), 1 To z + 2)

      varTmp = Split(varData(i, 1), "#")

      For j = LBound(varTmp) To UBound(varTmp)

         varOut(i, n) = varTmp(j)

         n = n + 1

      Next

   Next

   .Range("A2").Resize(UBound(varOut), UBound(varOut, 2)) = varOut

End With

End Sub

Claus

Vielen herzlichen Dank!

Es schaut so "einfach" aus, aber ich habe bisher Tage damit verbracht das zu googeln und es nicht herausbekommen.

Deswegen ergreife ich schnell die Gelegenheit und frage noch etwas - Meine Sorgen der letzten 2-3 Wochen wären somit an einem Tag gelöst

Ich weis dass das wohl auch nicht schwer/kompliziert sein wird, aber auch dass habe ich nicht hinbekommen bzw herausbekommen können *lach*

A

Lieferumfang: 53 Paar Schuhe, 47 Hosen, 13 Paar Sneaker Socken, 21 Kugelschreiber, 77 Slips, 50 Sonnenbrillen, 100 Feuerzeuge

Ziel ist es, den Text aus A, nach jedem 2. Komma zu teilen und in die nächste Spalte zu übertragen - bestmöglich ohne das jeweils letzte Komma.

B ; C ; D ; E

Lieferumfang: 53 Paar Schuhe, 47 Hosen ; 13 Paar Sneaker Socken, 21 Kugelschreiber ; 77 Slips, 50 Sonnenbrillen ; 100 Feuerzeuge

Ich bin gespannt

Jey

Hallo,

du kannst in C2 schreiben:

=WECHSELN(A2;B2

und entlang der Daten herunterziehen. Danach die Spalte C kopieren und in A2 als Werte wieder einfügen.

Wenn du das Komma auch entfernen willst, schreibe in C2:

=WECHSELN(WECHSELN(A2;B2;","

Oder du versuchst es mit diesem Makro:

Sub TeilstringLoeschen()

Dim LRow As Long, i As Long

Dim varData As Variant
'Hier Tabellenname anpassenWith Sheets("Tabelle1")

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

   varData = .Range("A2:B" & LRow)

   For i = LBound(varData) To UBound(varData)

      varData(i, 1) = Replace(varData(i, 1), varData(i, 2), "")

   Next

   .Range("A2").Resize(UBound(varData)) = Application.Index(varData, 0, 1)

End With

End Sub
Im Makro musst du die Anweisung in der For-Next-Schleife so ändern, damit das Komma auch entfernt wird:
varData(i, 1) = Replace(Replace(varData(i, 1), varData(i, 2), ""), ",", "")

Claus

Hallo Claus,

danke erst einmal für die rasche Reaktion.

A ; B

Herren Sneaker, rot von NoName ; rot

Damen Schuhe, braun von NoName ; braun

Es soll am Ende irgendwo in Zeile 1 stehen:

Herren Sneaker (mit oder ohne Komma) von NoName.

Irgendwo In Zeile 2:

Damen Schuhe (mit oder ohne Komma) von NoName.