waarde cel automatisch invullen

[GitteGroeneveld]

Ik ben een soort rooster aan het maken.

Ideaal gezien zou ik in een cel in kolom M (is leeg) op dezelfde regel waar de ''x'' staat de waarde van de titelcel willen hebben. Per regel kan er maar 1 ''x'' voorkomen, maar deze regel bestaat wel uit een groot aantal kolommen.
Welke formule zou ik hiervoor kunnen gebruiken? Ik hoop dat het plaatje duidelijk is.
Groeten,
Gitte

 

[wampier]

=ALS(AANTAL.ALS(N7:AG7;"x");$A$1;"")

Aangenomen dat "A1" de titelcel is. Anders blijft de cel leeg.

 

[GitteGroeneveld]

Ik denk dat het niet gaat werken. Het probleem is dat ik graag de titel van de kolom wil waar de ''x'' staat. En dit gegeven is dus variabel. De ''x'' staat niet altijd in dezelfde kolom. Als ik deze formule gebruik dan krijg ik altijd hetzelfde 'antwoord'.

Maar toch heel hartelijk dank voor de snelle reactie.
Groeten,
Gitte

 

[Warme bakkertje]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, [A2:C4]) Is Nothing Then
        If Target = "" Then Exit Sub
        If WorksheetFunction.CountIf(Range("A" & Target.Row & ":" & "C" & Target.Row), "x") > 1 Then Target.ClearContents: Exit Sub
        Cells(Target.Row, 13) = Cells(1, Target.Column)
    End If
End Sub

Je moet nog wel het bereik aanpassen bij Intersect en de laatste kolomletter bij Countif

 

[GitteGroeneveld]

Bedankt, hier ga ik morgen mee aan de slag!