extracting column title from a table

Hello,

I have data as in the table enclosed and just would like to extract the table column title every time the figure 1 is in the table...

I just do not find the right formula for that.

Please advise,

Thanks,

Tiger

=IFERROR(INDEX($B$5:$F$5,SMALL(IF($B7:$F7,TRANSPOSE(ROW(INDIRECT("1:"&COLUMNS($B7:$F7))))),COLUMNS($H:H))),"")

Ctrl+Shift+Enter, not just Enter
Copy across and down

I wrote a little macro to do the job.
Since all are variables you can change the values and limits for the loops

Many thanks to both of you!