alpha

Als de eerste spatie de spatie is tussen artikelnummer en omschrijving, dan kun je naar de eerste spatie zoeken, aldus: =rechts(d2;lengte(d2)-vind.spec(" ";d2)) In de header heb je het over een komma, maar je schrijft niet waar die komma staat. Als die de scheiding vormt tussen nummer en omschrijving, dan kun je natuurlijk ook dáár naar zoeken.

Zie het bericht van Haije hierboven. De vert.zoeken-funcie zoekt in de eerste kolom van het opgegeven bereik in de functie. Dit zou dus kunnen werken: =vert.zoeken(d19;Producten!c$2:d$67;2;0) , ware het niet dat je nog met een andere fout te maken hebt, namelijk: In het blad Producten kolom C eindigen de meeste omschrijvingen met een spatie. Die spaties moet je weghalen.

De vert.zoekenfunctie werkt prima, als je maar een keuze maakt uit de validatielijst onder "Fietsomschrijving". Je moet daar uiteraard niets aan toevoegen of verwijderen. In de helpfile van Excel (daar hoef je niet voor op internet te gaan, die zit standaard in het programma Excel) worden 'alle functies, en dus ook vert.zoeken, uitstekend uitgelegd. De oorzaak van de foutmelding is hierboven door 'Bakerman' aangegeven.

Typ in onderstaande volgorde: In C19 en kopieer naar beneden: =grootste(C$7:M$7;rij()-18) en zorg ervoor dat C19 en onderliggende cellen als 'procent met 2 decimalen' staan ingesteld. In A19 en kopieer naar beneden (cellen ingesteld als 'Standaard'): =vert.zoeken(rij()-18;Draw;2;0)

Foutje in de eerste formule hierboven; het zal denk ik wel duidelijk zijn dat 12 vervangen moet worden door 13. De formule in V13 moet dus zijn: =rang(X13;$X$13:$X$18;0)+AANTAL.ALS($X$13:X13;X13)-1

Typ in V13 en kopieer naar beneden: =rang(X13;$X$13:$X$18;0)+aantal.als($X$12:X12;X12)-1 Typ in Y13 en kopieer naar beneden: =vert.zoeken(V13;Draw;2;0) Typ in Z13 en kopieer naar beneden: =vert.zoeken(V13;Draw;3;0)

De berekening van de korting kan wel wat korter. Typ in H13 en kopieer naar beneden: =als(G13="";0;G13*als(F13<G$6;0;als(F13<G$7;H$6;H$7))) Vraag: is de berekening van het aantal dagen wel juist? Ik dacht dat bij autohuur zowel de begin- als einddag moet worden betaald. In de sheet wordt 1 van de 2 niet meegeteld.

Zorg dat Word afgesloten is. Zoek op je computer naar Normal.dotx en Normal.dotm . Indien gevonden: verwijder dat bestand/die bestanden. Start Word, er wordt nu automatisch een nieuw "Normal"-bestand aangemaakt waarin de tekstafbakeningen niet meer aanwezig zouden moeten zijn.

Nee Niko, dat zal niet de bedoeling zijn. De vragensteller schreef immers: "wanneer ik in tabblad 1 nu een rij toevoeg via een vba code boven cel A7 blijft mij formule op tabblad twee niet verwijzen naar A7 maar gaat die naar A8." Dat is bij gebruik van jouw antwoord ook het geval. En dat is nu juist wat de vragensteller niet wil !

Gebruik in Blad2 in de cel waarin je de inhoud van A7 van Blad1 wil weergeven: =INDIRECT("Blad1!$A$7")

Die vraag was ik even uit het oog verloren. Deze website: http://www.gratiscursus.be/Excel_2016/index.html wordt nogal eens aangeraden.

Nee, dat klopt niet, want in 1 rij kun je ook te maken hebben met 2 werkdagen. Je moet uiteraard eerst bekijken of de datum in kolom A een feestdag is. Daarvoor moet je de feestdagen ergens in het bestand vermelden zodat je er naar kunt zoeken. Verder is van belang of je alleen maar moet weten of de dag waarop is gewerkt een feestdag is, of dat ook het aantal gewerkte uren op die feestdag medebepalend is voor een toeslag. Is dat laatste het geval, dan moet je kijken of het aantal gewerkte uren betrekkig heeft op 1 dag of op 2 dagen. Voorbeeld: als er gewerkt wordt van 8:00 - 17:00 uur, dan is dat op 1 dag, wordt er gewerkt van bv. 19:00 - 07:00 uur, dan wordt er gewerkt op 2 dagen en dan moet je van beide dagen weten of het een feestdag is. De berekening verloopt verder op de manier zoals ik die hierboven in 2 bestanden gegeven heb.

In de bijlage een opzet. Het bestand wordt geopend met de datums van de lopende week altijd groen gekleurd en bij opening zich altijd bevindend in rij 10. Bij invoer van een 0 in een cel onder een naam, wordt die cel oranje gekleurd; bij invoer van een 1 groen. Advies: maak, als je nog weinig ervaring hebt met Excel, de zaken niet al te ingewikkeld, want dan is de kans groot dat je je een hoop ellende op de hals haalt. PC-H Lien.xlsm

De voorwaardelijke opmaak van Haije is een mooie oplossing. Om die voor alle datums van de kolommen A en B te laten gelden moet je alleen maar de vw. opmaak van de door Haije ingestelde cellen naar de andere cellen van die kolommen kopiëren (Kopiëren - Plakken Speciaal - Opmaak). Ja, dat is mogelijk. Dat moet dan met enkele regels vba-code in "ThisWorkbook", waarmee de gewenste datum dan ergens (zichtbaar) op hetscherm wordt getoond. Waar zou je die datum (2 datums) willen hebben? Helemaal bovenaan? Op de vijfde of tiende rij van boven? Als dan toch die datum berekend wordt, kan de gekleurde opmaak van die cellen meteen in de code worden 'meegenomen', dan hoef je de vw. opmaak niet te gebruiken. Een vraag: Je hebt nu twee kolommen, maar worden dat er meer? Indien ja, dan moet daar rekening mee worden gehouden wat de kleur van de cellen betreft. Wat ben je van plan met de datums die je nu hebt in 2 kolommen? Wat ga je daar mee doen?

Dat kunnen lezers van dit forum niet weten.

Jammer, dat je niet laat zien wát je geprobeerd hebt.... PC-H herman55.xlsx

Wat jij probeerde en wat fout is: If Application.IsDate (target.Date) Then is NIET hetzelfde als wat ik schreef: If IsDate(Target.Value) Then

Het totale aantal uren met toeslag staat in kolom G. Voor berekening van het aantal toeslaguren waarop 5%, respectievelijk 10% van toepassing is, moet je het totale aantal toeslaguren (dat in kolom G staat) splitsen in toeslaguren die op het weekend betrekking hebben en toeslaguren niet in het weekend. Als je 1 van de 2 berekent, dan weet je automatisch ook het aantal andere toeslaguren, want dat is dan: totale aantal toeslag uren - weekend- of doordeweekse-toeslaguren). Dus: als je (wat het eenvoudigst is) in kolom H de weekend-toeslaguren berekent (10%), dan vormt het restant de doordeweekse-toeslaguren (5%). Die laatste komen in kolom i, waarin dan komt te staan (in i2): =G2-H2. Probeer het eens en stuit je daarbij nog op problemen, laat het dan maar weten.

Natuurlijk kan dat. In plaats van If Application.IsNumber(Target.Value) Then gebruik je dan: If IsDate(Target.Value) Then

Oplossing gaat min of meer op dezelfde manier als het antwoord dat ik gaf op een eerdere vraag van jou (dus zou je eigenlijk zelf moeten kunnen). Uiteraard ook weer invoeren via Ctrl-Shift-Enter: =aantal(vergelijken(Feestdagen!A1:A10;Invulblad!E2:E101;0))

Invoeren via Ctrl-Shift-Enter (= Ctrl- en Shifttoets ingedrukt houden als je op Enter drukt): =som(als(e2:e100<>"";als(weekdag(e2:e100)=7;1/aantal.als(e2:e100;e2:e100)))) De eigenschappen van de cel waarin je de formule plaatst, daarna instellen als "Standaard" (indien nodig).

Zie de bijlage. Uit je bestand blijkt niet of op de vermelde datums feestdag- of consignatie-uren van toepassing zijn. Maar mocht dat het geval zijn, dan zou je die op basis van de urenberekening in de bijlage, zelf moeten kunnen toevoegen (voor feestdagen bv. geldt hetzelfde als voor weekends). PC-H herman55.xlsx

Verwijderd.

"Totaal", "Balnr", en "Gebdatum" zijn gedefinieerde namen. Normaliter moet je die zien staan als je in het menu van Excel kiest: Formules" (bóven het lint) - Namen beheren (in de groep "gedefinieerde namen" ín het lint).

@Plaka, Vreemd, dat je niet antwoordt op een vraag die bijdraagt aan een oplossing van je probleem. Hoe dan ook, op grond van wat je hebt vermeldt, denk ik dat je dit nodig hebt (voor de rijen 10 t/m 30): Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Range("H10:J30"), Target) Is Nothing Then If Application.IsNumber(Target.Value) Then Range("G" & Target.Row).ClearContents End If End If End Sub