alpha

@Plongske, je oplossing lijkt me niet helemaal juist, bij negatieve uitkomsten gaat het fout. Invoering van bv. 5,00 en -5,20 geeft als resultaat 0,20 terwijl dat -0,20 moet zijn. of: 0,50 0,20 en -0,40 geeft 0,30 terwijl dat -0,30 moet zijn. De vragensteller is kennelijk moeilijk te overtuigen dat zijn manier van rekenen met tijden niet de meest aangewezen methode is (wat natuurlijk zijn goed recht is).

Typ in G3, met die cel ingesteld als "getal met 2 decimalen": =GEHEEL(SOM(A3:E3))+ALS(REST(SOM(A3:E3);1)<>0;--(RECHTS(SOM(A3:E3);2))-ALS(SOM(A3:E3)<0;1+REST(SOM(A3:E3);1)))

Ermee rekening houdend dat de som van A3:E3 negatief zou kunnen zijn: =--(RECHTS(SOM(A3:E3);2))+GEHEEL(SOM(A3:E3))-(SOM(A3:E3)<0)

Ik ben het eens met de opmerking van Popipipo, maar als je beslist de door jou gewenste berekening wenst, kun je dit gebruiken: =GEHEEL(SOM(A3:E3))+RECHTS(SOM(A3:E3);2)-0,4 De cel met die formule uiteraard wel instellen als "Getal met 2 decimalen"

@jantjeschelling, Uit je afbeelding blijkt dat je als uitkomst 7,30 wenst. Maar hoe kom jij in hemelsnaam aan die 7,30 als uitkomst van 8,00 + (-0,30) ?

Ik kan jouw fout niet reproduceren, hoe ik ook kopieer en plak (steeds wordt in Word de volledige tekst getoond). Ik denk dat het bij jou een instelling in Word moet zijn.

Misschien is er die wel, maar weet ik ze niet; ik ben terzake niet deskundig. Nu ik je template nog eens wat nader heb bekeken, zie ik dat het watermerk gemaakt is met Wordart. Nu zou dat op zich geen probleem moeten zijn, maar als je het nu eens probeert met een tekst zonder Wordart, kijk eens of je dan het probleem nog hebt. In de bijlage bij dit bericht hetzelfde document als ik in een vorig bericht plaatste, maar nu met een watermerk, gemaakt zoals ik in de vorige zin schreef. Manipuleer de tekst (wijzig, verwijder, en voeg toe) om te controleren of het probleem zich nog (in dezelfde mate) voordoet. Als je de tekst van het watermerk minder opvallend wil, kies dan in het menu van Word: Pagina-indeling - Watermerk - Aangepast watermerk en vink aan: Semitransparant. PC-Helpf Pluisje2.docx

Dan misschien maar eens de helpfile van Excel raadplegen om je wat dingen eigen te maken. Ik kan hier wel complete oplossingen gaan geven, maar dan stromen hier wellicht op korte termijn vele vragen binnen van mensen die allemaal geholpen willen worden zonder zelf ook maar iets te doen. Daar pas ik voor. Heb al meegemaakt dat grote bedrijven met omzet van miljoenen op een forum zoals dit vragen stellen omdat ze te gierig zijn om daarvoor een softwarebedrijf in de arm te nemen. Eveneens al meegemaaktt dat iemand zich (ook nu nog) op zijn website als Excel- en vba-expert presenteert, maar de meeste vragen op fora dumpt om de antwoorden vervolgens aan zijn klanten te verkopen. Als 'helper' weet je niet op voorhand (en vaak ook achteraf niet) met wie je te maken hebt, vandaar...

Dat is een basic-bewerking in Excel. Aanwijzingen: 1. Begin op het eerste blad in B3 en kijk naar de inhoud van E3. 2. Staat daar "ja", kopieer dan B3:D3 naar B3:D3 op het tweede blad; staat daar geen "ja" (of "nee"), kopieer naar B3:D3 op het derde blad. 3. Ga terug naar het eerste blad en ga daar naar de volgende rij tot er in kolom B niets meer staat. Naar een volgende rij gaan doe je door een teller te verhogen met 1. 4. Herhaal 1 t/m 3 en ga bij kopiëren ook in blad2 en 3 steeds naar een volgende rij door een teller te verhogen met 1. Kopieer eerst eens met de macrorecorder, dan zie je wat er gebeurt.

Uit je tabel blijkt dat de eerste kolom gesorteerd is van laag naar hoog en in mijn antwoord in vorig bericht ben ik daar ook vanuit gegaan. Maar als de eerste kolom NIET gesorteerd is, dan voldoet die oplossing is. Voor een niet-gesorteerde- (maar ook voor een wel gesorteerde-) eerste kolom kun je dit gebruiken: Typ in B2: 1 (of elk ander willekeurig getal waarmee je de nummering wil beginnen). Typ in B3 en kopieer naar beneden: =ALS(AANTAL.ALS(A$2:A3;A3)>1;VERT.ZOEKEN(A3;A$2:B2;2;0);MAX(B$2:B2)+1) Laat aub even weten of dit aan je wensen voldoet.

Ik neem aan dat de nummering in de tweede kolom op vooorhand niet bekend is , maar dat je die, uitgaande van het eerste nummer in de tweede kolom door Excel wil laten aanmaken. Als de bonnen staan in kolom A met in A1 de hoofding en in A2 en onderliggende cellen de bonnen, typ dan in B2: 1 (of elk ander willekeurig getal waarmee je de nummering wil beginnen). Typ in B3: =ALS(AANTAL.ALS(A$2:A3;A3)>1;VERT.ZOEKEN(A3;A$2:B2;2;0);B2+1) en kopieer die formule naar beneden in kolom B. Zie de bijlage bij dit bericht. Stephanie89.xlsx

in de vijfde regel van onder van de code staat een punt voor Pulldownmenu, die moet je verwijderen.

Bij ELKE IF hoort een End IF, maar je hoeft niet zoveel if's te gebruiken, zoals ik in mijn bericht van 2 oktober al aangaf en hieronder nog zal blijken. Zodra je een IF gebruikt kun je best al meteen de 'END IF' invoeren en dan pas wat daartussen moet komen, dan vergeet je de 'END IF' niet. Wat de CheckBox_Basis betreft: Bij een checkbox zijn er slechts 2 mogelijkheden: het vakje is aangevinkt: TRUE, of het is niet aangevinkt : FALSE (niet: 'not true'). Je hoeft slechts 1 mogelijkheid te vermelden, want wat er moet gebeuren als die ene mogelijkheid niet geldt, spreekt dan vanzelf. Je kunt dus gebruiken, ofwel: If CheckBox_Basis.Value = True Then Range("B19") = 1 Else Range("B19") = 0 End If ofwel (dus niet beide mogelijkheden gebruiken, maar slechts wat hierboven staat OF wat nu volgt): If CheckBox_Basis.Value = FALSE Then Range("B19") = 0 Else Range("B19") = 1 End If Je ziet dat er in beide gevallen maar 1 'if' nodig is. Wat de CheckBox_Brug in je voorbeeld betreft, zijn er 4 mogelijkheden. Je mag die dan alle 4 wel vermelden, maar je kunt ook volstaan met 3, want als de eerste 3 mogelijkheden niet gelden, geldt automatisch het vierde. En verder, ik schreef dat ook reeds op 2 oktober: een checkbox kan kan alleen TRUE of FALSE zijn en niet iets anders, dus wat je hierboven schreef: Checkbox_Brug.Value = "Brug automatisch" is FOUT ! In plaats van Checkbox_Brug bedoel je waarschijnlijk Pulldownmenu_Brug. Als dat zo is, dan kan dat stukje als volgt worden gecorrigeerd (let op, ook hier slechts 1 x IF): If Pulldownmenu_Brug.Value = "Brug automatisch" Then Range("B22").value = "Brug automatisch" Elseif Pulldownmenu_Brug.Value = "Brug handbediend" Then Range("B22").value = "Brug handbediend" Elseif .Pulldownmenu_Brug.Value = "Brug handbediend snelontluchter" Then Range("B22") = "Brug handbediend snelontluchter" Else Range("B22") = "Geen" End If Bestudeer in de helpfile van Excel de oprachten die je wil gebruiken, eens goed; ze worden daar duidelijk uitgelegd. De code kan nog wel wat korter, maar als je begint met vba moet je niet teveel tegelijk willen, daarom ga ik daar nu niet op in.

Dat lijkt mij prima.

Zoals ik al eerder schreef zijn er geen twee if's nodig als er tussen gegevens moet worden gekozen. Het pulldownmenu pulldownmenu_Brug is dat een combobox in een userform ? Indien ja, hoe heb je de te kiezen waarden aan de combobox toegevoegd?

In een checkbox kan een vinkje staan of geen vinkje. De waarden die daar bij horen zijn true en false, een checkbox zelf kan geen tekstwaarden zoals "Brug automatisch" of "brug handbediend" bevatten. Maar wel kun je op grond van true of false van de checkbox(en) tekst in bepaalde cellen invullen; dat is ook wat je wil. Vergeet ook niet de vermedling WAAR (in welk formulier) de checkbox staat. En 2 if's zijn niet nodig als er maar 2 mogelijkheden zijn. Als Checkbox_Brug de juiste naam is van de checkbox en de naam van het formulier Userform1 (wijzig zonodig in de naam die jij er aan hebt gegeven), dan zou je voor dat stukje code dit kunnen gebruiken: If UserForm1.CheckBox_Brug.Value = True Then Range("B22").value = "Brug automatisch" Else Range("B22").value = " Brug handbediend" End If

Gelukkig !

Probeer dit : Range("a1").Value = CStr(UserForm1.Text_Projectnaam.Value) Range("a2").Value = Val(UserForm1.Text_Projectnummer.Value)

Hm, vreemd. De cellen staan ingesteld als standaard ? Met welke versie van Excel werk je ?

Nee dat gaat niet fout, want elk besturingselement hoort bij een bepaald formulier. Maar je mag je zelf gegeven namen wel gebruiken als je dat maar goed doet. Ik vermoed dat je een fout hebt gemaakt, want als ik jouw namen gebruik dan krijg ik geen foutmelding. Je gebruikt alleen de namen van de tekstboxen, best is om eraan toe te voegen dat je de waarde ervan wil weergeven, hoewel dat niet perse moet omdat de .value de standaardwaarde is van tekstboxen. En als er maar 1 formulier in gebruik is kan er ook geen twijfel zijn om welk formulier het gaat, maar je doet er toch verstandig aan (dat is ook veel netter) om te vermelden om welk formulier het gaat. Aldus: Range("A1").value = Userform1.Text_Projectnaam.Value . Je mag natuurlijk ook het formulier een eigen naam geven. En als je het goed wil doen, moet je ook (om geen foutmeldingrn te krijgen) op onjuiste invoer controleren en programmeren wat er dan moet gebeuren (bv: invoer van tekst als een getal wordt verwacht). Foutafhandeling neemt vaak veel meer tijd in beslag dan programmeren van het probleem.

In jouw bestand stong er in A7 een spatie na de naam van de begeleider. Let er op dat je die niet meer toevoegt, anders kloppen de berekeningen niet.

Met formules kun je het aantal perioden moeilijk berekenen. Je moet dan al per naam weten hoe vaak die voorkomt. Als een naam in slechts 2 rijen voorkomt dan is dat nog te doen, maar bij meerdere rijen krijg je ellenlange formules. Daarom in de bijlage een vba-oplossing. Die is voor veel- maar niet voor alle mogelijke combinaties getest. Het aantal perioden verschijnt in kolom D, zoals je wilde. PC-Helpf Snofsky.xlsm

Mijn vorig bericht was als antwoord bedoeld op je voorlaatse vraag. Gebruik de namen van de textboxen die Excel er zelf aan geeft, dan heb je dat probleem niet; je moet niet alles tegelijk willen doen. Dus: Range("B2").value = TextBox1.value , Range("B3").value = TextBox2.value , enz. En om de userform te sluiten heb je niet een afzonderlijke knop modig, Unlod Me kun je gewoon als laatste opdracht in je eerste macro toevoegen.

Als de naam van de userform frmhome is, dan onderaan in je macro toevoegen: frmhome.show Je kunt ook een userform gebruiken om teksyen op tye plaatsen, dan hoef je geen messagebox(en) te gebruiken. Maar messageboxen en inputboxen zijn wel eenvoudiger in het gebruik.