Array zuweisen

Sub RK22_ändern()
Dim AendKont, n As Integer, lZ As Long, ListeRK22, lRK As Integer
Dim zelle As Range, adresse As String, zeile As Long
lRK = ThisWorkbook.Sheets("Liste").Range("E1").CurrentRegion.Rows.Count
ListeRK22 = ThisWorkbook.Sheets("Liste").Range("E2:E" & lRK)
'AendKont = Array("Otto1", "Rudi2", "Elvira5")
AendKont = Array(ListeRK22)
For n = 0 To UBound(AendKont)
With ActiveSheet
lZ = .Cells(Rows.Count, 1).End(xlUp).Row
Set zelle = .Range(.Cells(1, 1), .Cells(lZ, 1)).Find(AendKont(n))
If Not zelle Is Nothing Then
adresse = zelle.Address
Do
.Cells((zelle.Row), 6) = "RK22"
Set zelle = .Range(.Cells(1, 1), .Cells(lZ, 1)).FindNext(zelle)
Loop While Not zelle Is Nothing And adresse  zelle.Address
End If
End With
Next
End Sub