Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1376to1380
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
1376to1380
1376to1380
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
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.

305 Forumthreads zu ähnlichen Themen

VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
Anzeige
Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
Summen in bestimmte Zeilen
Thomas

Hallo,
ich suche eine sicherlich einfache Möglichkeit Summen in einer bestimmten Zeile bilden zu lassen. Das Problem ist das die Bereiche unterschiedlich groß sind.
Zur besseren Erläuterung habe ich eine Bsp-Datei angehängt.
Vielen Dank!
MfG Tom
Die Datei https://www.herber....
27.08.2008 14:19:00
Thread-ID: 1005088
13 Beiträge
Anzeige
Zelleninhalt mit VBA suchen
Tom

Hallo
zum Feierabend noch mal fix ne Frage
ich möchte in einem anderen sheet, in einer anderen Tabelle etwas suchen und danach 4 Zellen nach links gehen und den Wert kopieren...
Dim strActiveCell As String
Dim rFound As Range
Tabellenname = ActiveSheet.Name
Tabellenname...
04.09.2008 16:41:17
Thread-ID: 1007457
4 Beiträge
In Textfile bestimmte Zeile suchen
Pascal

In einem Textfile soll nach einer bestimmten Zeile (immer der gleiche Text) gesucht werden.
Wird dieser Text gefunden, so soll alles vom Beginn weg des Textfiles bis und mit dieser Zeile (plus zusätzlich noch die nächste Zeile) gelöscht werden.
Geht das irgendwie ?
Wenn ja, wie ?
24.09.2008 16:14:00
Thread-ID: 1012111
8 Beiträge
aktive Zelle soll in Spalte "L" springen
Karsten

Hallo... ,
Suche folgenden Makrobefehl:
Die aktive Zelle soll in der Zeile bleiben, in der sie sich befindet, allerdings nach Spalte "L" springen.
Danke für eure Hilfe!
Gruß
Karsten
03.10.2008 16:34:44
Thread-ID: 1014058
3 Beiträge
Zelle einer Spalte in bestimmte Zelle kopieren
Fred

Wie kann man irgendeine Zelle, die in einer bestimmten Spalte befüllt wird, in eine fixe Zelle einer andere Excel-Tabelle übertragen?
Danke für eure Unterstützung!
08.10.2008 09:43:47
Thread-ID: 1014907
3 Beiträge
Von aktiver Zelle in Spalte A springen
Susi

Hallo liebe Excel-Freunde,
wie ich in einer Tabelle die aktive Zelle ermitteln kann, weiß ich schon.
Von dieser aktiven Zelle aus (z.B. D10) soll nun der Wert in Spalte A dieser Zeile (hier also A10) ermittelt werden und in eine andere Zelle (z.B. A1) übertragen werden.
Leider kann...
16.10.2008 12:36:20
Thread-ID: 1016826
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
16
4
5
12
2
3
7
2
2
2
2
4
5
6
1
4
2
5
9
9
2
2
5
4
2