Inderdaad kwam ik daar ook achter, maar gelukkig kwam ik er ook achter dat je met verborgen zaken als Checkbuttons en dergelijke, dingen kunt 'regelen', wellicht niet een fraaie oplossing maar voor nu ben ik heel tevree

Ik heb zelfs een knop op mijn lint gemaakt waardoor ik mijn invoervenster altijd kan oproepen

Dit gaat naar mee smaken, dat weet ik nu al

Als je wilt kan ik het "voorlopige"eindresultaat nog wel eens posten

Je geraakt daar zelfs gemakkelijk aan verslaafd, zou ik zeggen... Je lijkt nu al een ferme Junkie 

je mag gerust je voorlopig werk eens meesturen, maar vermeld wel waar het nog niet helemaal gaat zoals je "zou willen" 

Groeten,

SoftAid              

Hallo Johan,

inderdaad een probleem.

als je een tijd invoert in het vak in kolom L dan zou je de tijd moeten ingeven in uren, minuten en seconden met 0 uren.
Dus om 5 minuten en 18 seconden in te geven moet de invoer 0:05:18 zijn. Als dan heel de kolom de eigenschap mm:ss heeft, zal er enkel 05:18 weergegeven worden in het veld in kolom L.

In je macro zal je invoer dus steeds uu:mm:ss moeten gebeuren.

Vraag: stel dat je toch een rit hebt die langer dan een uur duurt, wat dan?

SoftAid              

Tja, ik zag een stoptrein aankomen waar ik wel in mee wilde rijden. Maar voor ik het wist veranderde deze in een sneltrein en was aanhaken niet echt meer mogelijk. Ik had dus wat opzetjes gemaakt maar had verder in het weekend ineens toch familie-verplichtingen. Nu vééééééééééle posts verder heb ik het gevoel dat de TS er prima zelf uit komt met ondersteuning van SoftAid.
Voor de aardigheid toch nog maar mijn workbook met wat code achter het formulier. Misschien leuk om er nog iets van te leren?

Ik lees verder wel op de achtergrond mee, want het is wel een leuk draadje geworden.

Hoi RedHead,

Topper man Ik heb vanaaf geen tijd meer om het in te voeren, maar je kunt er van op aan dat ik het morgen zeker ga uitwerken

Wel gelijk even een vraagje, zo uit jouw laatste bijdrage lees ik dat ik de tijden dan zonder : kan invoeren? dus 0115, of begreep ik je daar even verkeerd?

Die trein gaat inderdaad wel erg snel rijden, maar het is je toch gelukt om aan boord te springen....

Hoi SoftAid EN RedHead,

Ik vind het fantastisch hoe jullie mij én Verslaafd aan VBA hebben gekregen én zo fantastisch hebben geholpen met mijn allereerste VBA project, Chapeau hier neem ik mijn pet voor af

@RedHead: Je tijdsroutine werkt, ik wordt er gelukkig van Zelfs een invoer van 6226 vertaald hij netjes naar 01:02:26... HEEL BLIJ MEE

Ben ik nu klaar? Nee zeker niet want ik heb nog een paar zaken op mijn verlanglijstje staan en daarvoor heb ik allereerst een vraag:

Ik vul nu met dit project een tabel, maar wil ook mijn werk en rusttijden alsmede mijn administratietijd invoeren in een overzicht op datum, dit is nu geen Tabelomgeving maar gewoon een sheet.

Voor ik hiermee aan de slag ga wil ik graag weten of het mogelijk is om op "datum" te zoeken en dan vervolgens die regel te gebruiken om input te geven?

Fijne Dinsdag

Hoi,

Mag ik nog mee instappen  ?

Heb ook de indruk dat hier goed voor TS gezorgd wordt, daarom enkel een paar bedenkingen die (voor een significant percentage  ) off topic zijn :

Johan,
Gezien de vorderingen die je inmiddels gemaakt hebt ben je er wellicht al achter gekomen dat structuren als if...end if, for...next, while...wend op de juiste positie in je code dienen gesloten te worden.
Bijvoorbeeld :
if x=10 then
for teller=1 to 3
...
end if
next tellerkan niet,
maar
if x=10 then
for teller=1 to 3
...
next teller
end ifis wel o.k.

Persoonlijk vind ik het heel handig (voor zowel de beginnende als de meer ervaren vba-er) om met inspringingen te werken. Je kan die tijdens het intypen of achteraf aanbrengen, met spaties of de tab-toets. Dat verandert hoegenaamd niets aan de uitvoering van je procedure maar maakt het veel duidelijker als er ergens iets niet snor zit.
Voorbeeldje :
if x=10 then
for teller=1 to 3
...
while verder=true
...
if controle=5 then
verder=false
endif
wend
next teller
end ifis hetzelfde als :
if x=10 then
   for teller=1 to 3
      ...
      while verder=true
         ...
         if controle=5 then
            verder=false
         endif
      wend
   next teller
end if
'k Heb er nog eentje :

Vraag: stel dat je toch een rit hebt die langer dan een uur duurt, wat dan?

Dan heb ik inderdaad een probleem.

Stel dat je in je sheet enkel mm:ss wil zien dan heb je met die notatie inderdaad een probleem met tijden langer dan een uur.
Maar : we kennen allemaal de notatie [u]:mm:ssLouter op intuïtie  heb ik eens [m]:ss geprobeerd, en ja hoor, dat werkt.
Ik zou ik niet zijn als ik vervolgens niet [s] zou proberen, en die doet het dus eveneens.

Voor wie er iets aan heeft dus... 

Groeten,
pitufo

Hallo, hallo

Is hij weer, die VBA verslaafde. Ik heb een vreselijke code, echter veel meer dan een werkende loop heb ik er niet van kunnen maken Zal het proberen uit een te zetten.

In basis is dit wat ik met mijn volgende project wil:

In kolom A staan alle dagen van het lopende jaar, in mijn bijgevoegd voorbeeld slechts 10 dagen maar dat moet even niet uitmaken en kan ik beter bekijken wat er gebeurd. Wanneer ik een datum ingeef en een waarde bij invoer A en invoer B (het zijn altijd getallen) dan moeten die op dezelfde rij onder invoer A en Invoer B worden ingevuld. Als ik op OK druk dan zie ik in KOLOM A dat er van boven naar beneden gescrold word, maar er gebeurt verder helemaal niets.

Doe mij maar even laten afkoelen of zo Tijd voor een ijsje