Office: (Office 2010) Formel Doppelte Werte in Zelle löschen

Marcus123 · 29. Januar 2018

Hallo,

kann mir jemand von Euch helfen bitte.

Spalte A.......Spalte B..............
1 12345678 12345679 22222222 2222222
2 55555555 66666666 77777777 6666666
3 11111111 33333333 66666666 7777777 33333333
usw.

Die Tabelle hat in Spalte A die Artikelnummern. In Spalte B sind Nummern und Zahlenblöcke mit Leerzeichen getrennt eingegeben.

Ich möchte nun in Spalte B die doppelten Werte löschen. Alle eindeutigen Werte sollen erhalten bleiben.

Habe es mit dem Spezialfilter versucht was jedoch nicht funktioniert.

Danke und Gruß
Marcus

:)

H_E_K · 31. Januar 2018

Hallo,

wo kommen die Zahlenblöcke in Spalte B her, und wieso sind sie nicht auf mehrere Spalten (ein Zahlenblock je Spalte) verteilt? Das würde die Sache viel einfacher machen.

Marcus123 · 31. Januar 2018

Hallo,

Spalte B muss später so exportier werden. Darum sind die Werte alle in einer Spalte.

Gruß

Marcus123 · 31. Januar 2018

Ich kann die Werte in Spalte B auch in einzelne Spalten aufteilen, wenn das einfacher wäre.

aloys78 · 31. Januar 2018

Hallo Marcus,

mein Vorschlag im Anhang.

Gruß
Aloys

Marcus123 · 31. Januar 2018

Hallo Aloys,

herzlichen Dank. Es funktioniert super. Nur die Leerzeichen machen noch Probleme. Wenn mehrere gleiche Werte hintereinander stehen und gelöscht werden bleiben mehrere Leerzeichen übrig. Wie kann man diese dann noch entfernen?

Gruß
Marcus

aloys78 · 31. Januar 2018

Hallo Marcus,

ersetze mal vorhandene durch die rot markierte Anweisung:
Code:

Option Explicit

Sub Doppel_entfernen()
Dim LRow As Long
Dim r As Long
Dim c As Long, c2 As Long
Dim arr() As String
LRow = Cells(Rows.Count, "A").End(xlUp).Row
For r = 1 To LRow
arr = Split(Range("B" & r), " ")
If UBound(arr) > LBound(arr) Then
For c = LBound(arr) To UBound(arr) - 1
If arr(c) "" Then
For c2 = c + 1 To UBound(arr)
If arr(c) = arr(c2) Then arr(c2) = ""
Next c2
End If
Next c
End If
Range("B" & r) = ""
For c = LBound(arr) To UBound(arr)
Range("B" & r) = IIf(Range("B" & r) = "", Trim(arr(c)), Trim(Range("B" & r)) & " " & Trim(arr(c)))
Next c
Next r
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß
Aloys

Marcus123 · 1. Februar 2018

Hallo Aloys,

perfekt*Smilie . Vielen Dank für Deine Hilfe.

Gruß und alles Gute
Marcus

Office: (Office 2010) Formel Doppelte Werte in Zelle löschen

Formel Doppelte Werte in Zelle löschen

Formel Doppelte Werte in Zelle löschen

Formel Doppelte Werte in Zelle löschen

Formel Doppelte Werte in Zelle löschen

Formel Doppelte Werte in Zelle löschen - Similar Threads - Formel Doppelte Werte

Ergebnis aus INDEX und Vergleich Formel weiter Verwenden

dynamische Bezug auf Feiertagskalender in Formel "Nettoarbeitstage"

Doppelte Werte in neuer Tabelle nur einmal ausgeben per Formel

Doppelte Ergebnisse bei Index Formel

Liste mit doppelten Einträge

Wenn Formel mit doppelten Sonst Wert

Doppelte Einträge in Formel einer Zelle finden