Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1344to1348
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1344to1348
1344to1348
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA: nur Unikate behalten

VBA: nur Unikate behalten
14.01.2014 14:10:28
WalterK
Hallo,
ich suche eine VBA-Lösung für folgendes Problem:
In der Spalte mit der Überschrift JOKER (steht in Zeile 2) soll jede Zelle bis zum unteren Tabellenende auf Wort-Unikate geprüft werden, der restliche Text soll gelöscht werden. Als Wort-Unikat soll auch gelten, wenn zwei Wörter durch einen Bindestrich getrennt sind oder durch LeerzeichenBindestrichLeerzeichen getrennt sind. Eindeutig liegt eine Trennung nur vor wenn 2 Leerzeichen hintereinander vorhanden sind.
Beispiel Liste vorher: 
Apfel  Birne  Apfel  Birne  Birne  Tomate
Haus
Gärtner  Gärtnergehilfe
Zeit  Teil-Zeit
Wohnung  Wohnung  Wohnung
Semmel  Semmel – Brösel  Semmel-Brösel

Liste nachher: 
Apfel Birne Tomate
Haus
Gärtner Gärtnergehilfe
Zeit Teil-Zeit
Wohnung
Semmel Semmel – Brösel Semmel-Brösel

Die Änderung sollte in der gleichen Spalte durchgeführt werden.
Besten Dank für die Hilfe und Servus, Walter

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: nur Unikate behalten
14.01.2014 14:26:02
Rudi
Hallo, 
Sub aaa()
Dim objDic As Object, rngCell As Range, arrTmp, i As Integer, arrDaten()
Set objDic = CreateObject("Scripting.dictionary")
ReDim arrDaten(1 To Cells(Rows.Count, 1).End(xlUp).Row, 1 To 1)
For Each rngCell In Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
arrTmp = Split(Replace(rngCell, "  ", "|"), "|")
For i = 0 To UBound(arrTmp)
objDic(arrTmp(i)) = 0
Next
arrDaten(rngCell.Row, 1) = Join(objDic.keys, "  ")
objDic.RemoveAll
Next
Cells(1, 1).Resize(UBound(arrDaten)) = arrDaten
End Sub

Gruß
Rudi

AW: VBA: nur Unikate behalten
14.01.2014 14:39:18
WalterK
Hallo Rudi,
bin begeistert, funktioniert einwandfrei.
Besten Dank und Servus, Walter
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige