Søg i

Hej

Jeg har følgende data i et excel regneark (lille udsnit, normalt mellem 3.500 og 3.800 linier):

Tur Butik Start  Slut  Klar
1  1    08:00  10:00  TRUE
1  22    10:00  11:00  TRUE
1  43    11:00  13:00  FALSE
2  4    05:15  07:15  TRUE
2  11    07:15  10:30  TRUE
2  69    10:30  12:00  TRUE
3  8    08:00  09:30  FALSE
3  19    09:30  10:45  TRUE
3  90    10:45  12:00  TRUE

Når jeg så laver et filter og kun søger på Tur = 2, får jeg disse data:

Tur Butik Start  Slut  Klar
2  4    05:15  07:15  TRUE
2  11    07:15  10:30  TRUE
2  69    10:30  12:00  TRUE

Nu vil jeg gerne søge på de valgte data, om disse butikker er klar (feltet Klar).

Når jeg laver følgende VBA kode og søger, søger den åbenbart fra toppen:

Sub FindTur()

    Dim strAntal As Integer

    ActiveSheet.Range("$A$1:$E$10").AutoFilter Field:=1, Criteria1:="2"

    Range("E1").Select
    ActiveCell.Offset(1, 0).Select
    Do Until IsEmpty(ActiveCell)
        If ActiveCell.Value = False Then
            MsgBox "Tur ikke færdig. Stoppet ved butik nr.: " & ActiveCell.Offset(0, -3)
            Exit Sub
        End If
        strAntal = strAntal + 1
        ActiveCell.Offset(1, 0).Select
    Loop
    MsgBox "Der var " & strAntal & " butik(ker)."
End Sub

Den stopper så ved butik 43 (linie 3). Men ville gerne have min kode til at søge i de valgte data. Hvad gør jeg galt ?

Brian