Načtení hodnot do pole a hledání v poli
'... v modulu vytvořím tuto proceduru
Sub Najdi()
Dim pole ( 1 to 20 )
Dim hodnota As Integer
hodnota = Worksheets("List1").Cells(1, 5).Value
For i = 1 To 20
pole(i) = Worksheets("List1").Cells(i, 1).Value
If pole(i) = hodnota Then
Msgbox "našel jsem " & i & vbCrLf & "hodnota je " & hodnota
End If
Next i
End Sub
' - UBound - horní hranice pole
' - LBound - dolní hranice pole