I was able to get everything working over the weekend.

For the first measure I got it to work using: #ofAccounts:=CALCULATE(DISTINCTCOUNT([Account]),ALL(Data[Account]))

Thanks again for the suggestion to due both calcs as measure. Lead me to a working solution.