Avatar billede ramp Nybegynder
04. juni 2009 - 17:03 Der er 2 kommentarer og
1 løsning

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

Hej Alle..

Håber i kan hjælpe :-)

Lad os sige at dette er min tabel:

          Ole  Søren  Peter
Banan

Æble

Pærer

Hvis jeg så i A1 skriver Søren og i A2 skriver æble, så vil jeg at makroen skriver registrere at Søren har spist et æble. Den skal ALITD + med 1.

Således:

          Ole  Søren  Peter
Banan

Æble            1

Pærer

Hvordan ser koden ud for dette?

På forhånd tak for hjælpen..

/Ramp
Avatar billede jkrons Professor
05. juni 2009 - 14:34 #1
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.
Avatar billede ramp Nybegynder
06. juni 2009 - 18:42 #2
Virker perfekt.. takker.. Smid et svar
Avatar billede jkrons Professor
07. juni 2009 - 15:45 #3
Et svar.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester