Fehlercode:438

Sub Tauschen()
Dim AendKont, AendKont2, n As Integer
Dim zelle As Range, zelle2 As Range, adresse As String, adresse2 As String, zeile As Long
AendKont = Array("1603010", "1603020", "1603050", "1613010", "1613400")
AendKont2 = Array("5599010", "5599020", "5599050", "5599340", "5599300")
For n = 0 To UBound(AendKont)
With ActiveSheet
Set zelle = .Range(.Cells(1, 2), .Cells(65536, 2)).Find(AendKont(n))
Set zelle2 = .Range(.Cells(1, 2), .Cells(65536, 2)).Find(AendKont2(n))
If Not zelle Is Nothing Then
adresse = zelle.Address
If Not zelle2 Is Nothing Then
adresse2 = zelle2.adress
Do
MsgBox "OK"
.Cells((zelle.Row), 4).Select
'                Set zelle = .Range(.Cells(1, 2), .Cells(65536, 2)).FindNext(zelle)
Loop While Not zelle Is Nothing And adresse  zelle.Address
End If
End If
End With
Next
End Sub

in der Zeile adresse2=zelle2.adress fliegt er mit Code 438, dabei ist es egal, ob ich die Zeile austausche mit adresse=zelle.adress, er fliegt immer in der 2. Abfrage raus.
Wo liegt der Hund begraben?
Liebe Grüsse
Walburga