Søg
Avatar billede Jadl_2990 Juniormester
05. februar 2012 - 16:31 Der er 3 kommentarer og
1 løsning

Opsummering af værdier i ét felt

Hvordan forøges en celles værdi med den værdi der skrives ind i en anden celle, hver gang den anden celle ændres?

Et hold elever får udleveret udleveret forskellige "produkter" på et aftenskole hold.
Hver gang en elev henter noget, så noterer de det i et regneark
De vælger deres navn i A1(liste A5:A10)og vælger "produkt" (liste B4:F4) i B1. Derefter taster de antal i C1 og trykker [Enter] herefter skal tabellen opdateres så man kan se hvor mange af hvert produkt den enkelte elev har anvendt.

Det svarer til et "ølregnskab" eller stakit optælling.
Listerne er ikke noget problem.
______________________________________________________________
A1        B1              C1
Bo        Produkt 2  18 

                Produkter
Elev navn  produkt 1 produkt 2 produkt 3  produkt 4 produkt 5
Bo                                    18
Lise
Hanne
Per
Ib
Sonja

Når Bo senere går op og tager 2 stk. af produkt 2 så skal skemaet opdateres så der står 20 i D5 og så fremdeles...

Når man trykker [Enter] så skal D5=D5+C1
Det må gerne være en makro.
Jeg synes ikke at kunne finde en funktion til det.

Og som sadvanligt så er der undervisning igen mandag ;-)
Avatar billede kabbak Professor
05. februar 2012 - 20:32 #1
Hvis du bruger A1, B1 og C1 til indtastning og lader række 4 være tom, så burde denne gøre det i arkets modul

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Data As Variant, I As Integer, X As Integer
    If Target.Address = "$C$1" Then
        If [A1] <> "" And [B1] <> "" Then
            Data = [A5].CurrentRegion
            For I = 2 To UBound(Data, 1)
                If UCase(Data(I, 1)) = UCase([A1]) Then Exit For
            Next
            For X = 2 To UBound(Data, 2)
                If UCase(Data(1, X)) = UCase([B1]) Then Exit For
            Next
            Data(I, X) = Data(I, X) + [C1]
            [A5].CurrentRegion = Data
        End If
    End If
End Sub
Avatar billede Jadl_2990 Juniormester
06. februar 2012 - 00:57 #2
Hmmm

Der sker ikke noget i regnearket når jeg taster noget ind i A1 B1 og C1.

Kan du sende mig dit test ark på jesper.adler(a)gmail.com?
Avatar billede kabbak Professor
06. februar 2012 - 08:27 #3
er sendt
Avatar billede Jadl_2990 Juniormester
06. februar 2012 - 17:14 #4
Hej Kabbak

Tak for dit fine svar, det virkede efter hensigten.

Det ville være dejligt hvis det var muligt at vedhæfte en fil til et spørgsmål, så kunne man få meget mere ud af de mange svar og som ligger her inde.

Et eksempel siger mere end 1000 ord!

Nå men det er jo noget helt andet og sikkert ikke noget du kan ændre på...

Endnu en gang tak.
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
Excel kurser
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Samle data fra flere kolonner i 1 Af FinnLauridsen i Excel 4 17/04/202616:11 I går 08:16
Træk data fra ny lokation ved måneds skift Af Hezo i Excel 6 13/04/202614:32 15/04/202611:04
Makro der gemmer vedhæftet fil fra Msg og omdøber filen Af lokesa i Excel 2 31/03/202610:22 31/03/202611:47
Stempel ur start og stop Af lurup i Excel 2 23/03/202613:24 31/03/202610:27
Hvordan bruges indeks & sammenlign når der skal søges over flere kolonner? Af Laugesen1 i Excel 4 08/03/202611:56 08/03/202613:57
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 19:43 Installation af Adobe Photoshop Elements 2019 Af mort1 i Billedbehandling
17/0418:29 Gendanne slettet partition overskrevet med Windows 11 Af Strawberry i Windows
17/0416:11 Samle data fra flere kolonner i 1 Af FinnLauridsen i Excel
17/0414:44 ny fjernbetjening til DVD afspiller fra 2004 Af Nette i Andet hardware
17/0412:36 Manglende kode Af Bent i Windows
White papers
Flere white papers »