Array - Suchbegriff

Sub Markieren()
Dim oRegx        As Object
Dim blnWert      As Boolean
Dim myString     As String
Dim i As Long, n As Long
Dim lngLast      As Long
Dim myArray      As Variant
Const Spalte As Integer = 1 'Spaltennummer bitte anpassen
Set oRegx = CreateObject("vbscript.regexp")
With Sheets("Tabelle1")     'Tabellennamen anpassen
lngLast = .Cells(.Rows.Count, Spalte).End(xlUp).Row
.Columns(Spalte).Interior.ColorIndex = xlNone
For i = 1 To lngLast
myString = UCase(Replace(.Cells(i, Spalte), "Ü", "UE"))
myArray = Array("JAHRES", "LEIST", "RUECK")
For n = Lbound(myArray) To Ubound(myArray)
With oRegx
.Global = True
.Pattern = myArray(n)
blnWert = .Test(myString)
End With
If blnWert Then .Cells(i, Spalte).Interior.Color = vbRed: Exit For
Next n
Next i
End With
End Sub