Wouldn't it be enough to just remove "Expired" status? Or you need the additional check? This measure would look like:
CALCULATE ( DISTINCTCOUNT ( 'Table'[Serial number] ), 'Table'[Status] <> "Expired" )
In case you do not need Distinctcount, you can just replace with a count. Please share some more details, because I might not understand your question fully.