CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

christopher21 Juniormester

02. maj 2018 - 14:59 Der er 10 kommentarer

Find den tidligste dato VBA

Hej alle sammen,
Jeg har en masse datoer i kolonnen D2:D18288 og jeg skal finde den elev med den tidligste dato ved hjælp af en kode i vba. Når den dato er fundet, så skal de informationer de står i kolonnerne D, L, K, M, for den pågældende elev vises til brugeren.
Håber nogle kan hjælpe! Det skal gøres inde i VBA

Synes godt om

jens48 Ekspert

02. maj 2018 - 21:40 #1

Måske kan denne makro virke som inspiration:

Sub FindMin()
Dim Mn As Integer
Mn = Application.Match(Application.Min(Range("D2:D18288")), Range("D2:D18288"), 0)
MsgBox ("For eleven med laveste dato (" & Range("D" & Mn) & ") gælder følgende data: " & Range("k" & Mn) & ", " & Range("L" & Mn) & " og " & Range("M" & Mn))
End Sub

Synes godt om

christopher21 Juniormester

02. maj 2018 - 22:27 #2

Mange tak for hjælpen! Den viser den tidligste dato som værende 01-02-2010, men den tidligste dato er 31-08-1996

Synes godt om

jens48 Ekspert

02. maj 2018 - 22:30 #3

Har du formateret datoen som tekst eller som dato? Den skal være formateret som dato:

Synes godt om

christopher21 Juniormester

02. maj 2018 - 22:34 #4

Den er formatteret som dato, og når jeg skriver =MIN(D2:D18288) inde i excel finder den datoen 31-08-96.

Synes godt om

christopher21 Juniormester

02. maj 2018 - 23:27 #5

Hvis jeg skriver:
Mn = Application.Match(Application.Max(Range("D2:D18288")), Range("D2:D18288"), 0)
Får jeg også den forkerte dato.
Men hvis jeg derimod skriver:
Mn = Application.Match(Application.Max(Range("D2:D18288")), Range("D2:D18288"))
Får jeg den rigtige, men den viser max og når jeg ændrer max til min så får jeg en type mismatch fejl :( nogle der kan hjælpe mig med, hvad der går galt :(

Synes godt om

jens48 Ekspert

02. maj 2018 - 23:50 #6

Kunne det være fordi tallet ikke er et heltal? Altså at der er timer og minutter med, selv om det ikke bliver vist?

Synes godt om

christopher21 Juniormester

03. maj 2018 - 20:23 #7

Det ved jeg desværre ikke :(

Synes godt om

store-morten Ekspert

03. maj 2018 - 22:53 #8

Prøv:

Sub FindMinInfo()
Dim MinDate As Date
MinDate = Format(Application.Min(Range("D2:D18288")), "dd/mm/yyyy")

With Range("D2:D18288")
Set m = .Find(MinDate, LookIn:=xlValues)
End With

MsgBox _
"Dato: " & Range(m.Address) & vbCrLf & _
"Kol K: " & Range(m.Address).Offset(0, 7) & vbCrLf & _
"Kol L: " & Range(m.Address).Offset(0, 8) & vbCrLf & _
"Kol M: " & Range(m.Address).Offset(0, 9) _
, , "Informationer"
End Sub

Synes godt om

HanneYsted Juniormester

06. maj 2018 - 12:29 #9

Jeg sidder med samme opgave, og kan heller ikke få det til at virke. Det er denne, som det er galt med ved mig:
Mn = Application.Match(Application.Max(Range("D2:D18288")), Range("D2:D18288"))

Nogen, som kan se, hvad der kan ændres?

Synes godt om

aditya kin Juniormester

23. august 2018 - 16:34 #10

Very nice and interesting
https://www.welookups.com

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Flere spørgsmål fra Visual Basic kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
overskrive datasæt hvis det allerede eksistere Af overisen i Visual Basic	0	08/12/202320:00	-
Manuel rotering af billedfil i en formular, 90 - 180 - 270 - 360 grader Af stejuu i Visual Basic	2	04/12/202320:07	09/12/202310:49
Erstat http med faktisk billede Af crjensen i Visual Basic	0	09/10/202309:14	-
Filtrering af dato i Pivottabel driller Af TrinoJ. i Visual Basic	4	07/08/202310:40	10/08/202310:44
Konvertere tabeller til tekst Af crjensen i Visual Basic	1	10/07/202311:43	10/07/202312:37

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.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS

15:59

På tur i BMW's mægtigste elbil: Sådan er livet ombord i en monumental million-ellert

15:15

Medarbejderne fik udleveret badetøfler ved indflytningen: Kom med inden for i IBM Danmarks nye topmoderne hovedkontor

14:30

Nørgaard: Som jeg altid har sagt: Man ansætter altid nye folk på udseendet, for det er det eneste, som en kandidat ikke kan fuske med

13:33

Fjerner 2.700 studiepladser fra universiteterne - den danske it-sektor er bestyrtet i en tid med stor mangel på it-folk

19/04

En hyldest til klodens snedigste tablet-design: Nu er fremtiden for Microsofts hardware endnu mere uvis

19/04

Cyber-gidselforhandler løfter sløret: Sådan undgår du at blive ramt af den frygtede 'double whammy'

19/04

Her er Danmarks nye it-uddannelser: Regler spænder ben for ingeniøruddannelse i robotteknologi

19/04

Her er de 10 bedste arbejdspladser i den danske it-branche

19/04

Sådan har Novo sat AI i arbejde: Læs Computerworlds store temanummer om AI i forretningen

19/04

Film: Kevin Costner på vej med episk western i to dele

19/04

Tidligere Chr. Hansen-CIO Jens Rasmussen løfter sløret efter exit: Her er mit næste skridt i karrieren

Vis flere artikler

IT-JOB

C2IT

Cloudkonsulent

TV2

Software Engineer til News Planning & Publishing

Danske Commodities A/S

Quantitative analyst for Power Markets Analysis

FTFa

Enterprisearkitekt til udvikling af driftsplatform

Danske Commodities A/S

Senior software developer

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

I går 19:00	Lopslag Af Mariacecilia i Excel
I går 16:20	Få den nuværende outlook som default i stedet for det nye Af RikkePrikke i E-mail programmer
I går 13:33	Vagtliste med rul mellem skifter Af Klaus W i Excel
I går 10:54	Formelhjælp Af boro23 i Excel
I går 09:01	PDF udskrift tager MEGET lang tid Af Mainbrain i Andet software