Opgelost Rooster omzetten naar ander format.

[HSV]

Met Office 365 zonder macro's.

 

[BOUKES]

Wow, hoge school
Dank je !!

 

[snb]

Andere suggesties niet bekeken; maar wellicht:
Het pad G:\OF\ wel eerst aanpassen.
de Msgbox kan uitgeschakeld worden, slechts ter illustratie.

Sub M_snb()
   For Each it In Sheet1.Cells(1).CurrentRegion
      If it = "X" Then c00 = c00 & vbLf & Cells(1, it.Column) & ";" & Cells(it.Row, 1)
   Next
   MsgBox c00
  CreateObject("scripting.filesystemobject").createtextfile("G:\OF\pers.csv").write Mid(c00, 2)
End Sub

 

[glda19]

@HSV Wat doet dit / in uw formule

=HOR.STAPELEN(INDEX('2025'!C1:BS1;;NAAR.KOLOM(KOLOM(A:BQ)/('2025'!C1:BS23="x");2;1));INDEX('2025'!A3:A23;NAAR.KOLOM(RIJ(1:21)/('2025'!C3:BS23="x");2;1)))

 

[glda19]

@snb
Dit in een module gezet en krijg fout bij de for object vereist gebruik wel de nl versie

Andere suggesties niet bekeken; maar wellicht:
Het pad G:\OF\ wel eerst aanpassen.
de Msgbox kan uitgeschakeld worden, slechts ter illustratie.

Sub M_snb()
   For Each it In Sheet1.Cells(1).CurrentRegion
      If it = "X" Then c00 = c00 & vbLf & Cells(1, it.Column) & ";" & Cells(it.Row, 1)
   Next
   MsgBox c00
  CreateObject("scripting.filesystemobject").createtextfile("G:\OF\pers.csv").write Mid(c00, 2)
End Sub