alpha

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

Voor een oplossing moet iets meer bekend zijn, namelijk: Om G10 te wissen is de inhoud van H10:J10 bepalend, maar hoe zit dat voor G11, G12, enz. ? Is dan H11:J11, H12:J12, enz bepalend, of blijft het altijd louter gaan om H10:J10 ? En als de inhoud van een G-cel gewist is, moet er dan nadien (als de 3 naast-liggende cellen geen getallen bevatten) opnieuw wat geplaatst worden in die G-cel ?

@sovnor, Zonder te zien hoe je macro en vertikaal-zoeken-functie er uitzien, is antwoord geven op je vraag niet goed mogelijk. Vandaar ook de vraag van kweezie wabbit denk ik.

@Hans, Er is ook een muisinstelling waarmee je altijd, en onafhankelijk van welk programma dan ook, altijd kunt zien waar de cursor zich bevindt. Klik daarvoor achtereenvolgens op Start - Instellingen - Apparaten - Muis (aan de linkerkant) - Extra muisopties (aan de rechterkant). Kies in het venster dat verschijnt het tabblad "Opties voor de aanwijzer" en vink daar aan: "Locatie van de aanwijzer weergeven als ik op Ctrl druk". Klik dan eerst op "Toepassen" en daarna op "Ok". Je kunt daarna altijd zien waar de cursor staat door 1 x op de Ctrl-toets te drukken. NB: De instellingen voor de muis kun je ook bereiken via "Configuratiescherm" - "Muis".