CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede 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
Avatar billede 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
Avatar billede 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
Avatar billede jens48 Ekspert
02. maj 2018 - 22:30 #3
Har du formateret datoen som tekst eller som dato? Den skal være formateret som dato:
Avatar billede 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.
Avatar billede 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 :(
Avatar billede 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?
Avatar billede christopher21 Juniormester
03. maj 2018 - 20:23 #7
Det ved jeg desværre ikke :(
Avatar billede 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
Avatar billede 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?
Avatar billede aditya kin Juniormester
23. august 2018 - 16:34 #10
Very nice and interesting
https://www.welookups.com
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
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel Indlæg Oprettet Seneste aktivitet
Proxy server.. Af SommerFyr i Visual Basic 12 10/07/202417:34 12/07/202414:34
Opdatering af SAPgrid værdi Af dane022 i Visual Basic 3 25/04/202414:26 28/08/202419:09
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 -
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 18:09 Billedoverførsel Af Laurids i iOS, iPhone & iPad
I går 13:30 Hvordan ændres UniFi Dream Machine UDM til switch mode Af Kasper4450 i Internetforbindelser
I går 13:01 Film går i stå midt i afspilningen Af ole falsted i Musik & videoafspillere
I går 11:40 Fjerne mappe i stifinder Af Peter Olsen i Andet software
I går 11:27 renteberegning Af Pil i Excel
White papers
Flere white papers »


Premium
Teaser billede
Vil købe tele-løsninger til det offentlige for 370 millioner kroner
Læs mere »
Efterspørgslen på AI-regnekraft er enorm - og det smitter af på priserne: "Vi kan sælge næsten alt, hvad vi får ind"
Nyt værtøj fra Microsoft: Snart kan du reparere nedbrudte Windows-enheder på distancen
Politiet skriver kontrakt på 75 millioner kroner med dansk it-firma: Medarbejdere skal flytte ind hos politiet
Se alle »
Computerworld
Teaser billede
Microsofts nye pc er ekstrem billig – men kan blive ekstrem sikker og fleksibel
Læs mere »
Test: Prøv kun disse B&O-hovedtelefoner, hvis du har råd
Kæmpe datalæk på hospital: 750.000 patienters fortrolige data lækket
Telegigant klar med AI-baseret mormor: Holder telefon-svindlere fast i røret med sniksnak og dumme spørgsmål
Se alle »
CIO
Teaser billede
Konsulenthus vil rulle Microsoft 365 Copilot ud til 200.000 ansatte
Læs mere »
Kæmpe-opgave for Danske Bank har banet vej for fuldautomatiseret migrering til cloud: Nu udbredes metoden i hele AWS
Microsofts store årlige event: De tre vigtigste nøglebudskaber fra Satya Nadella om Microsofts fremtid
Tre vigtige erkendelser, som Computerworld tog med hjem fra Gartners store topmøde i Barcelona
Se alle »
Job & Karriere
Teaser billede
Microsoft klar med ny direktion for den danske forretning: Her er de nye direktører
Læs mere »
Efter skelsættende møde med sportscoach: Stor dansk it-arbejdsplads indfører fredags-fri og isbade i arbejdstiden
Linus Torvalds giver russiske Linux-udviklere sparket: Vil ikke have noget med dem at gøre
Topchef Sara Green mener, at der er brug for et radikalt nyt syn på it-ledelse - særligt én ny trend hader hun som pesten
Se alle »
White paper
Teaser billede
MDR: Transparent sikkerhed og overvågning i realtid
Læs mere »
Managed Detection & Response: Forsvar din virksomhed mod cybertrusler døgnet rundt
Styrk compliance, sikkerhed og overblik med ét hug
Sæt turbo på din cloudperformance og minimér risikoen for DDoS-angreb
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »