Avatar billede Claus Mester
18. maj 2008 - 10:41 Der er 6 kommentarer og
1 løsning

VBA Excel - Dato fra celle

Hey derude,

Et script skal hente en dato fra en celle i mit excel ark. Det kunne være "A1" hvori datoen "01.05.2008" er skrevet.

Mit problem er, at når datoen hentes ind i min variabel "tstDato" konverteres den tilsyneladende forkert. For nu er den "07.06.4862".

Hvordan kan jeg skrive koden så det foregår som jeg ønsker det?

Har forsøgt med "format" og "dateserial" med forskellige resultater. Men jeg er ikke stødt på den rette opskrift endnu.

Vh nicolaus
Avatar billede rasmuzzen Nybegynder
18. maj 2008 - 15:51 #1
Du kan studere VBA koden split, hvis du så laver eks :

Dim MinDato As Date

Indholdet af din celle splittes i 3 med / eller - som split char.

MinDato = CDate(SplitetDato(2) & / SplitetDato(1) / SplitetDato(0))

så vil konverteringen gå godt da det er YYYY / MM / DD der kommer ind, og det tager ms ikke fejl af.
Avatar billede rasmuzzen Nybegynder
18. maj 2008 - 15:54 #2
Undskyld punktum som splitchar
Avatar billede Claus Mester
18. maj 2008 - 19:19 #3
Tak for respons.
Vender stærkt tilbage om det funker.
Avatar billede Claus Mester
24. maj 2008 - 13:50 #4
Jeg får en række fejlmedd. når jeg tester løsningen. Den ene går på "syntax error". Jeg skiftede / ud med . og indrammede det i [& "." &]. Det løste syntax problemet. Men fejlmedd. nu lyder på type mismatch ved følgende sætning:

Private Sub cmd1_Click()
Dim MinDato As Date
SplitetDato = "1.5.2008"

'Indholdet af din celle splittes i 3 med / eller - som split char.

MinDato = CDate(SplitetDato(2) & "." & SplitetDato(1) & "." & SplitetDato(0))

End Sub

Kan ikke gennemskue hvordan jeg skal manipulere løsningen så den virker?
Avatar billede rasmuzzen Nybegynder
25. maj 2008 - 16:57 #5
Studer split kommandoen lidt mere, den er nyttig
Skift CelleIndholdTekst ud med din tekst variabel.


Dim SplitetDato As Variant
Dim MinDato As Date
SplitetDato = Split(CelleIndholdTekst, ".")
MinDato = CDate(SplitetDato(2) & "/" & SplitetDato(1) & "/" & SplitetDato(0))
Avatar billede Claus Mester
07. juni 2008 - 10:28 #6
Tror det virker. Ellers må jeg lige vende tilbage.
Tak for hjælpen. Husk svar :)
Avatar billede rasmuzzen Nybegynder
07. juni 2008 - 13:45 #7
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
Kurser inden for grundlæggende programmering

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