Zwischensuche bei Länder-PLZ

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng1 As Range, rngCountry As Range, rngPLZ As Range, rngOut As Range, f as Range
    Set rng1 = ActiveSheet.Range("B:B")  
    Set rngCountry = Range("L1")  
    Set rngPLZ = Range("L2")  
    Set rngOut = Range("L4")  
    If Not Application.Intersect(Range("L1:L2"), Target) Is Nothing Then  
        With rng1
            Set f = .Find(rngCountry.Value, LookIn:=xlValues, Lookat:=xlWhole)
            If Not f Is Nothing Then
                firstAddress = f.Address
                Do
                    If Val(rngPLZ.Value) >= f.Offset(0, 1).Value And Val(rngPLZ.Value) <= Val(f.Offset(0, 2).Value) Then
                        rngOut.Value = True
                        Exit Sub
                    End If
                    Set f = .FindNext(f)
                Loop While Not f Is Nothing And f.Address <> firstAddress
            End If
        End With
        rngOut.Value = False
    End If
End Sub