Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zellen mit bestimmter Zeichenkette in andere Spalt

Zellen mit bestimmter Zeichenkette in andere Spalt
28.08.2014 12:51:44
JuriR
Hallo,
ich habe in einer Spalte ca 2000 Wörter und Wortketten. Jetzt würde ich gerne diese Wörter und Wortketten kategorisieren indem ich feststelle, ob dort bestimmte Zeichenketten auftauchen:
Bsp:
Spalte A enthällt:
kündigung schreiben
arbeitsrecht
kündigung vorlage
kündigungsfrist
arbeitsschutzgesetz
kündigung arbeitsvertrag
betriebsverfassungsgesetz
und wenn der Begriff "kündigung" als Bestandteil eines Wortes (kündigungsfrist) oder als Wortgruppe (kündigung vorlage) auftaucht, so soll dieses Wort aus der Spalte ausgeschnitten werden und in eine andere zu definierende Spalte eingesetzt werden.
Ich wäre sehr dankbar wenn jemand eine Lösung hätte wie ich selbst verschiedene Kategorien bestimmen kann und dann daraufhin Excel automatisch kategorisiert.

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen mit bestimmter Zeichenkette in andere Spalt
28.08.2014 13:14:30
Rudi
Hallo,
Texte in A, Kategorien in Zeile 1 ab C.
Sub aaa()
Dim rngA As Range, rngKat As Range, objKrit As Object
Set objKrit = CreateObject("Scripting.dictionary")
Application.ScreenUpdating = False
For Each rngKat In Range(Cells(1, 3), Cells(1, Columns.Count).End(xlToLeft))
objKrit.RemoveAll
For Each rngA In Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
If InStr(rngA, rngKat) Then
objKrit(rngA.Row) = rngA.Value
End If
Next
If objKrit.Count Then
rngKat.Offset(1).Resize(objKrit.Count) = WorksheetFunction.Transpose(objKrit.items)
End If
Next
End Sub

Gruß
Rudi

Anzeige
bzw. wenn du ...
28.08.2014 13:27:06
Rudi
Hallo,
... Duplikate in A ignorieren wisst, anstatt
objKrit(rngA.Row) = rngA.Value
objKrit(rngA.Value) = rngA.Value
Gruß
Rudi

AW: bzw. wenn du ...
28.08.2014 14:46:05
JuriR
vielen Dank Rudi!
ich versuche das jetzt umzusetzen

AW: Zellen mit bestimmter Zeichenkette in andere Spalt
29.08.2014 16:35:19
JuriR
Könnte man es so machen, dass die Werte die Spalte C dann gelistet werden, in A nicht mehr auftauchen? Das wäre echt hilfreich.

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige