christopher21 Juniormester
24. april 2018 - 20:10 Der er 4 kommentarer

VBA hjælp

Jeg har et ark, hvor jeg skal finde, hvor mange bachelor og kandidatstuderende, der er for hvert fakultet.
Jeg har nummeret på hvert fakultet i kolonnen I, hvor numrene er fra 1-5. Så i kolonnen J, står der der om, den pågældende elev er bachelor eller kandidatstuderende. Jeg har brugt koden:
Application.WorksheetFunction.CountIf(Range("J2:J18288"), "Bachelor")
Application.WorksheetFunction.CountIf(Range("J2:J18288"), "Kandidat")
Men den finder kun, hvor mange bachelor og kandidatstuderende der er i alt, og jeg skal finde det for hver fakultet. Hvilken kode kan jeg bruge i VBA til at finde det?
Tak på forhånd
ebea Ekspert
24. april 2018 - 20:52 #1
Hvorfor ikke blot lave det uden VBA, og ordinære Formler! F.eks.:
=TÆL.HVISER($I$2:$I$18288;"1";$J$2:$J$18288;"kandidat")

Og så tilret til det ønskede. Nemt, og enkelt at tilrette.
christopher21 Juniormester
24. april 2018 - 21:07 #2
Det skal desværre være i VBA :/ men tak for hjælpen!
ebea Ekspert
24. april 2018 - 21:10 #3
#2  -  ;-)  Nu kan du jo se koden!
Dan Elgaard Ekspert
24. april 2018 - 21:40 #4
#2: Der fik du alligevel løsningen :-)

I stedet for 'TÆL.HVIS()' som du bruger i dit eksempel, så benytter du blot 'TÆL.HVISSER()'.

PS: Og, du behøver ikke sætte 'Application' foran, men kan nøjes med:

Worksheetfunction.CountIfs(...)
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

Opret Preview

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





Premium
It-fejl hos politiet kan have givet forkerte domme gennem syv år
Der er blevet opdaget en fejl i forbindelse med politiets behandling af teledata. Det kan have konsekvenser for domme, der er blevet afsagt i en syvårig periode.
Computerworld
Huawei klar med patent på sit nye mobil-styresystem i ni europæiske lande
Den kinesiske mobilproducent Huawei er nu klar til at patentere sit nye styresystem til sine telefoner i ni europæiske lande.
CIO
Beslutningsprocesser, der slår ihjel
Men de fleste af os lever i en virksomhedskultur, hvor ingen er blevet fyret for at vælge IBM - og ingen er blevet fyret for at igangsætte endnu en analyse. Og man kommer måske et stykke vej med analyse. Men man kommer i mål med handling.
Job & Karriere
"Vi var fem mennesker, der fik 400 millioner kroner, et lokale på 12 m2 og et stempel fra Undervisningsministeriet. Det kalder jeg mit første start-up. Det blev til IT-Universitetet. "
"Da jeg var færdig med PhD´en så var vi fem mennesker, der fik 400 millioner kroner, et lokale på 12 m2 og et stempel fra Undervisningsministeriet. Så skulle vi bare have et nyt universitet op og køre på seks måneder. Det kalder jeg mit første start-up. Det blev til IT-Universitetet."
White paper
Spændende undersøgelse: Her ligger forretningsværdien i print-sikkerhed
En undersøgelse fra IDC viser, at der for virksomheder er en solid business case i at prioritere sikkerhed på print, og ethvert it-initiativ der kan nedbringe omkostninger, er attraktivt for ledere. I undersøgelsen har IDC lavet dybdegående interviews med 16 organisationer, som bruger en entreprise printerløsning, og disse interviews viser at der ligger stor forretningsværdi i denne løsning. Organisationerne blev bedt om at beskrive forskellen på ”før” og ”efter” og det viser sig, at de har opnået et mere sikkert print-miljø, samtidig med at der spares både penge og tid.