Hier mal mein bisheriges Vorgehen:
Sub Test()
Dim rngFind As Range
Dim strFirst As String
Dim strFindArray() As Variant
Dim intCount As Integer
Dim §M As String
Columns("H").Insert Shift:=xlToRight
strFindArray = Array("*H360*", "*H361*")
For intCount = 0 To UBound(strFindArray)
Set rngFind = Range("A:Z").Find(What:=strFindArray(intCount), LookIn:=xlValues, LookAt:= _
xlPart) 'welcher Bereich abgesucht wird
If Not rngFind Is Nothing Then
strFirst = rngFind.Address
Do
rngFind.EntireRow.Interior.ColorIndex = 6
rngFind.EntireRow.Font.Bold = True
rngFind.EntireRow.Font.ColorIndex = 3
Set rngFind = Range("A:Z").FindNext(rngFind)
Loop While Not rngFind Is Nothing And rngFind.Address strFirst
End If
Set rngFind = Nothing
strFirst = vbNullString
Next
End Sub
In Spalte H soll dann §M geschrieben werden, falls einer der Suchbegriffe gefunden wird!
Danke schon mal für eure Hilfe!