Suchen und ausgeben VBA
05.12.2017 22:40:19
Hendrik
ich habe einen Code im Netz von "Anja" gefunden, welcher Suchkriterien in einer Spalte findet und die betroffene Zelle einfärbt (rngFind.Interior.ColorIndex =3).
Ich möchte diesen anpassen: Wenn das Suchkriterium in der Zelle gefunden wird, soll dieses Suchkriterium in eine neue Spalte geschrieben werden.
Am besten auch wenn "hendrik" und "eva" in der Zelle vorkommt dann in der anderen Spalte "hendrik; eva" ausgeben.
Hoffe das so etwas möglich ist.
Danke für eure Hilfe
Sub finden()
Dim rngFind As Range
Dim strFirst As String
Dim strFindArray() As Variant
Dim intCount As Integer
strFindArray = Array("hendrik", "eva", "tim")
For intCount = 0 To UBound(strFindArray)
Set rngFind = Range("A:A").Find(What:=strFindArray(intCount), LookIn:=xlValues, LookAt:= _
xlPart)
If Not rngFind Is Nothing Then
strFirst = rngFind.Address
Do
rngFind.Interior.ColorIndex = 3
Set rngFind = Range("A:A").FindNext(rngFind)
Loop While Not rngFind Is Nothing And rngFind.Address strFirst
End If
Set rngFind = Nothing
strFirst = vbNullString
Next
End Sub