AW: Obstsorten mit "B" per VBA finden
18.10.2007 13:06:00
Günter
Hallo NoNet,
nein.
Ich füge hier mal den ganzen Code ein.
In dem Fall gibt es 1 Exceldatei mit 3 Tabellenblätter.
Im 1. Tabellenblatt in Spalte A stehen in den Zelle beispielsweise:
Teppich Hut Wein
Im 3. Tabellenblatt in Spalte A stehen die zu suchenden Begriffe.
Z.B. Hut
Im 2. Tabellenblatt werden die gefundenen Werte geschrieben und
gleichzeit im 1. Tabellenblatt gelb hinterlegt.
Nun das Problem, den Begriff in Tabellenblatt soll als ganzer Begriff
gesucht werden. Derzeit wird aber in der Zelle alles gefunden, was
mit Hut beginnt oder endet. Soll heißen, ich will nur z.B. Hut finden.
PS: In einer Zelle (Tabellenblatt 1, Spalte A) können verschiedene Begriffe
mit Blank getrennt stehen.
Gruss
Günter
Sub SuchenMarkieren_ganze_Wörter()
Dim col As New Collection
Dim iRowS As Integer, iRow As Integer, iRowT As Integer
Dim arrG
Dim arrL
Dim Zaehler As Integer
Dim Zeile As Integer
col.Add Worksheets("Tabelle1")
col.Add Worksheets("Tabelle2")
col.Add Worksheets("Tabelle3")
iRow = 1
Do Until IsEmpty(col(3).Cells(iRow, 1))
iRowS = 1
Do Until IsEmpty(col(1).Cells(iRowS, 1))
'If InStr(col(1).Cells(iRowS, 1).Value, col(3).Cells(iRow, 1).Value) Then
'If InStr(String1, String2) > 0 Then
If InStr(LCase(col(1).Cells(iRowS, 1).Value), LCase(col(3).Cells(iRow, 1).Value)) _
Then
iRowT = iRowT + 1
col(2).Range(col(2).Cells(iRowT, 1), col(2).Cells(iRowT, 2)).Value = _
col(1).Range(col(1).Cells(iRowS, 1), col(1).Cells(iRowS, 2)).Value
col(1).Cells(iRowS, 1).Interior.ColorIndex = 6
End If
iRowS = iRowS + 1
Loop
iRow = iRow + 1
Loop
MsgBox "Fertig!!"
End Sub