hvordan laver jeg en makro der indsætter værdi alt efter valg?

Her er én måde at gøre det på:

Sub OpdaterMatrice()
    Dim Navn As String, Emne As String
    Dim NavnNr As Integer, EmneNr As Integer
   
    Navn = Range("a1")
    Emne = Range("a2")
   
        For Each c In Range("b4:d4").Cells
            If UCase(c.Value) = UCase(Navn) Then NavnNr = c.Column
        Next
        For Each c In Range("a5:a7").Cells
            If UCase(c.Value) = UCase(Emne) Then EmneNr = c.Row
        Next
    Cells(EmneNr, NavnNr).Value = Cells(EmneNr, NavnNr).Value + 1
End Sub

Området med navne står i B4:D4 og med frugt og grønt står i A5:A7. De kan selvfølgelig tilrettes til de relevante områder.

Virker perfekt.. takker.. Smid et svar

Et svar.