Hallo zusammen,
folgender Code sucht in meinem Dokument nach bestimmten Schlagworten welche über eine Listbox eingelesen werden:
--> Problem es werden auch Zellen markiert bei dem das Schlagwort im String entahlten ist also z.B. beim Schlagwort IT werden auch Zellen mit den Wörtern "mit" "miteinander" usw.
--> Wie müsste der untere Code angepasst werden, damit nur Zellen markiert werden bei der eine 100%-ige Übereinstimmung vorliegt
---> z.B. bei ERP nur ERP nicht auch noch "erproben" usw.
Private Sub CB_Start_Click()
Dim rngFind As Range
Dim strSuchbegriff As String
Dim strErsteZelle As String
Dim strSuchbegriffFound As String
Dim strSuchbegriffNotFound As String
Dim zeile As Long
Dim x As Long
Application.ScreenUpdating = False
With Sheets("ABC")
If .FilterMode Then
.ShowAllData
End If
.Range("E2:H1000000").Interior.ColorIndex = 2
End With
With UF_Suche
If .ListBoxUF2.ListCount = 0 Then
MsgBox ("Bitte treffen Sie eine Auswahl!")
Exit Sub
End If
For zeile = 0 To .ListBoxUF2.ListCount - 1
strSuchbegriff = .ListBoxUF2.List(zeile)
If Not strSuchbegriff = "" Then
With Sheets("ABC").Range("E2:H1000000")
Set rngFind = .Find( strSuchbegriff , , , xlPart)
If Not rngFind Is Nothing Then
strErsteZelle = rngFind.Address
Do
rngFind.Interior.ColorIndex = 36
Set rngFind = .FindNext(rngFind)
Loop Until rngFind Is Nothing Or rngFind.Address = strErsteZelle
strSuchbegriffFound = strSuchbegriffFound & Chr(10) & "- " & strSuchbegriff
Else
strSuchbegriffNotFound = strSuchbegriffNotFound & Chr(10) & "- " & strSuchbegriff
End If
End With
End If
Next zeile
End With
Unload UF_Suche
.............Kommen noch paar MsgBox
Application.ScreenUpdating = True
End Sub
Vielen Dank
Tobi
|