• 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.

Probleem met datum

Status
Niet open voor verdere reacties.

Willem Blaas

Gebruiker
Lid geworden
30 aug 2006
Berichten
253
Geacht forum,
Ik werk met Windows 10, en daarbij Office 2016.
Na de oude Office verwijderd te hebben een compleet nieuwe legale versie van Office 2016 geïnstalleerd te hebben,
Is er iets vreemds aan de hand.
Wanneer ik iets zoek met een datum op de ”normale” manier is dat geen punt, werkt prima.
Wil ik deze simpele zoek functie direct als een macro opslaan en even erna uitvoeren stopt hij ermee.
Ga ik nu bij opties kijken dan vindt ik bij invoegtoepassingen iets met Datum (XML) en rechts daarvan het woord Actie (Zie bijlage)
Heb ik met de installatie iets verkeerds gedaan ? of juist niet gedaan ?
Zou ik dit kunnen oplossen ?
Heeft u een suggestie ?
Bij voorbaat dank
bijlage_test01.jpgbijlage_test02.jpgbijlage_test03.jpg
 
Code:
selection.find(what:=datevalue("14-01-2018"), after:=activecell).select

Maar als het niet gevonden wordt gaat het nog fout (kan een niet gevonden waarde niet selecteren).

Zo is het beter.
Code:
sub test
set c = columns(2).find(datevalue("14-01-2018"),,,xlwhole)
if not c is nothing then application.goto c
end sub

Ps. de volgende keer een Excel-bestand plaatsen i.p.v. plaatjes.
 
Code:
selection.find(what:=datevalue("14-01-2018"), after:=activecell).select

Maar als het niet gevonden wordt gaat het nog fout (kan een niet gevonden waarde niet selecteren).

Zo is het beter.
Code:
sub test
set c = columns(2).find(datevalue("14-01-2018"),,,xlwhole)
if not c is nothing then application.goto c
end sub

Ps. de volgende keer een Excel-bestand plaatsen i.p.v. plaatjes.

oke, dank u wel. maar wat moet ik nu met het hoofdstuk van de invoegtoepassingen ?
het aangeboden stukje programmatuur werkte overigens niet Bekijk bijlage test.xlsxBekijk bijlage test.xlsx
 
code van HSV werkt prima. Waar heb je het neergezet? en bovenal, wat werkt er niet. Krijg je een foutmelding.......
 
Een .xlsx bestand bevat geen macro's, dus dat werkt sowieso niet.

Ps. plaats een bericht via de reageerknop.
 
Een .xlsx bestand bevat geen macro's, dus dat werkt sowieso niet.

Ps. plaats een bericht via de reageerknop.

ik heb nu het gebruikte bestand bijgevoegd.
wanneer ik bij start bv 14-01-2018 invoer en druk op "gegevens ophalen"
loopt de macro vast en komen de meldingen welke ik in mn 1e bericht heb meegestuurd
er is iets.....?? met een datumbestand volgens zoals ik ik mn 1e bericht schreef , alleen wat he ??
er wordt een actie verwacht, maar wat en kan ik dat zelf ?
 

Bijlagen

  • testrooster.xlsm
    108,2 KB · Weergaven: 23
zo dan?
 

Bijlagen

  • testrooster.xlsm
    108,8 KB · Weergaven: 21
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan