Office: String in Spalte suchen

zerberos · 21. Juni 2009

Hallo ich habe in meinen Excel Dokument 2 Tabellen

In Tabelle 1 stehen in Spalte A einzelne Wörter:
Hallo
Haus
Buch
usw...

In Tabelle 2 stehen in Spalte A Texte
Hallo, wie geht es dir?
Hast du heute schon telefoniert?

Jetzt möchte ich in Tabelle 2 jede Zeile durchlaufen. Dann möchte ich jedes Wort was in dem Text steht mit den Wörtern in Tabelle 1 vergleichen. Wenn dieses Wort in Tabelle 1 gefunden wird soll das in Tabelle2 in Spalte B in der passenden Zeile ausgegeben werden.

Habe leider momentan keine Ahnung wie ich daran gehen soll

:)

chris-kaiser · 23. Juni 2009

hiho

Code:

Private Sub CommandButton1_Click()
Dim ob As Range
Dim rng As Range, firstAddress, temp As Range, searchCell As String
Set rng = Tabelle2.Columns(1)
For iCount = 1 To Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row
searchCell = Tabelle1.Cells(iCount, 1).Value
Set ob = rng.Find(searchCell, lookat:=xlPart)
If Not ob Is Nothing Then
firstAddress = ob.Address
Do
ob(1, 2).Value = ob(1, 2).Value & searchCell & " "
Set ob = rng.FindNext(ob)
Loop While Not ob Is Nothing And ob.Address firstAddress
End If
Next
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: String in Spalte suchen

String in Spalte suchen

String in Spalte suchen

String in Spalte suchen - Similar Threads - String Spalte

Teile aus einem qrcode string auslesen

VBA Auslesen von Strings und erstellen neuer Zeilen in einer Tabelle

mit String aus Formular Übereinstimmung in Abfrage prüfen

mehrmals vorkommenden String in Spalte suchen

Alle Spalten einer Abfrage nach einem String filtern

Zahlenweiser Vergleich auf String Spalte

VBA: Spalten einblenden, wenn in Eingabezelle bestimmter String