• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Getallen omzetten naar datums.

Status
Niet open voor verdere reacties.
Z

Zerty

Gebruiker
Lid geworden
12 mei 2015
Berichten
110
De Accu-Check Mobile is een digitaal toestelletje die glucosemetingen opslaat (heel handig voor diabetici).
Die opgeslagen gegevens kunnen in Excel bekeken en verwerkt worden.
Een probleem is dat de datums met een punt geschreven zijn (24.04.2017) en om die te converteren naar een echte datum (24-04-2017) lukt niet.

Heeft er iemand een idee hoe dit opgelost kan worden?
Ik zie waarschijnlijk iets over het hoofd maar heeft mij al suf gezocht naar een mogelijke oplossing.
Beste dank alvast
 

Bijlagen

  • Datum Lijst.xlsx
    78,5 KB · Weergaven: 37
Dit al eens geprobeerd? In kolom D of zo..
Code: 
=SUBSTITUEREN(A1;".";"-")
Dan kopieer je de waarden uit kolom D (middels kopieren/plakken speciaal) weer terug naar kolom A.
 
Laatst bewerkt:
Neen ,jammergenoeg niet.
Bij 'Sorteren' krijg ik enkel de mogelijkheid van A tot Z.
Zelfs als ik ze instel via eigenschappen op Datum.
 
Ok. Zelfde oplossing, nu met formule:
Code: 
=--SUBSTITUEREN(A1;".";"-")
Doe dan eens aangepast sorteren, waarna je nieuw naar oud kunt sorteren.
 
Fantastisch, dat is gelukt. Wat ben ik blij met dit resultaat.
Hartelijk dank hiervoor.
 
evt met een macro:
Code: 
Sub Makedates()
Application.ScreenUpdating = False
Range("A1").Select
For v = 1 To ActiveCell.CurrentRegion.Rows.Count
    ActiveCell.Value = DateSerial(Mid(ActiveCell.Value, 7, 4), Mid(ActiveCell.Value, 4, 2), Left(ActiveCell.Value, 2))
    ActiveCell.Offset(1, 0).Select
Next v
Application.ScreenUpdating = True
End Sub
 
Dat is het helemaal, wat een oplossing.
Kan perfect ingekaderd worden in mijn project.
Zal het dan hier toevoegen zodat andere leden(met diabetes) er ook kunnen van genieten.
Nogmaals mijn oprechte dank.
 
Zoals beloofd mijn project 'Diabetana'
 

Bijlagen

  • Diabetana 24 04.xlsm
    96 KB · Weergaven: 26
Iets snellere methode.
Code: 
Sub hsv()
 Columns(1).TextToColumns Range("A1"), 1, 1, 0, 0, 0, 0, 0, 0, 0, Array(1, 4)
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan