alpha

En wil je in blad(1-1000) dan niet meer de formules die je in je eerste bericht nog wel wilde? Opmerking: je maakt best in blad(1-1000) de bereiken voor elke plaats even groot.

Typ in Q2, respectievelijk R2: =ALS(AANTAL.ALS(A4:AI32;1)>0;1;"") en =ALS(AANTAL.ALS(A4:AI32;1000)>0;1;"")

Met een formule zie ik het niet zo direct, al kan het waarschijnlijk wel. Wat wél kan: in het blad "Overview" links een kolom invoegen (dat wordt dan kolom A) en dan via een macro links van Persoon2, Persoon3, enz. het aantal laten weergeven dat bij de betreffende personen hoort. Alleen moeten dan de items die in kolom B bij die personen horen steeds 'uitgeklapt' staan om in kolom A de aantallen op de juiste plaats te kunnen vermelden. Want als je kolom B inklapt, dan vervallen er een groot aantal rijen (vanwege de draaitabel) en staan de aantallen in kolom A dan niet meer in de juiste rij. Dus als je het geen probleem vindt om steeds alle gegevens weer te geven, dan kan ik je wel zo'n oplossing bezorgen. Je moet dan 1 keer op een knop klikken om de aantallen weer te geven.

De 'application.goto'-methode wordt in de vba-helpfile van Excel goed uitgelegd. Daarin kun je lezen dat er met die methode altijd naar een cel moet worden verwezen. Als je door op B2 te klikken A5 wil selecteren, dan moet je dus: - In B2 een knop plaatsen (daarvoor kan desgewenst ook een - al dan niet doorzichtige - rechthoek dienen). - Aan die knop een macro toewijzen waarmee naar A5 wordt 'gesprongen'. - Die macro hoeft slechts 1 regel te bevatten, nl: Application.Goto Reference:=Worksheets("Blad1").Range("A5") Je kunt A5 ook een naam geven, bv. 'Zus' (maar niet '1. Zus'); als je dat gedaan hebt kun je in de code in plaats van A5 die naam gebruiken: Zus .

Kies in het menu: Extra - Blad beveiligen, en NIET (wat je volgens je afbeelding hebt gedaan): Extra - Werkblad beveiligen.

Met veel moeite kunnen ontdekken wat er in je afbeelding staat. Als je in een formule verwijst naar een cel, dan mag die niet tussen aanhalingstekens staan, want dan wordt dat door Excel als tekst beschouwd en niet als een cel. Je moet er daarom dit van maken: =AANTAL.ALS(L5:L100;"*"&U6&"*")

Voor rij 6: =SOM(VERSCHUIVING(D6;;;;A$2)) Kopieer deze formule naar beneden.

Aanvulling voor de duidelijkheid: Je kunt gebruikers in 1 cel (bv. in C5, C6, C7) wel een keuze laten maken uit 12 verschillende items (via gegevensvalidatie bv.), maar in 1 cel kan er dan van die 12 slechts 1 item geplaatst worden.

In C5 (en ook in andere cellen) kun je altijd slechts 1, en nooit meer dan 1 item selecteren.

Je kunt onderstaande formule proberen in AB2, maar zonder meert informatie is het inmogelijk te zeggen of dat een juiste oplossing is. In D2, H2, M2, r2, en X2 staan waarschijnlijk formules, maar in je tekst vermeld je dat die cellen ook leeg kunnen zijn. Welnu, dat is een tegenstrijdigheid: een cel waarin een fomule staat is NOOIT leeg, ook al is het resultaat van de formule een lege cel. =ALS(X2<>"";X2;ALS(R2<>"";R2;ALS(M2<>"";M2;ALS(H2<>"";H2;ALS(D2<>"";D2;0)))))

Niet duidelijk is wat er in de cellen D2, H2, M2, R2, en X2 staat of kan staan: getallen of tekst. Ook is niet duidelijk of er in de tussenliggende cellen nog wat staat of kan staan. Op die manier wordt goed antwoord geven wel erg lastig. Plaats voortaan een Excelbestand met de nodige gegevens en uitleg, dan kun je eerdere en op je vraag toegespitste antwoorden verwachten. Onder bepaalde voorwaarden zou volgende formule, die moet worden ingevoerd via Ctrl-Shift-Enter, een oplossing kunnen zijn in AB2: =INDEX(D2:X2;VERGELIJKEN(D2:D2;ALS(D2:X2>0;D2:X2)))

1. Die spatie hoort er niet staan. 2. Wat je daarmee bedoelt is mij niet duidelijk, wees wat duidelijker in je uitleg! uit je afbeelding valt ook niet op te maken wat je bedoelt, die is onleesbaar. Zoals ik in m ijn vorig bericht al meldde: voeg een Excelbestand toe aan je bericht, dan kan iedereen zien waar het om gaat. 3. Je hoeft in een reactie niet steeds de tekst van een vorig bericht te herhalen, die is bekend.

@Pterbel, Aan reacties met de melding dat een formule niet werkt, daar hebben we niet veel aan. Waar we wel wat aan hebben is een |Excelbestand waarin je de formules gebruikt,, zodat iedereen kan zien wat en waar het mis gaat. Dat is absoluut onjuist ! De AANTAL.ALS-formules zoals ik die gegeven heb, werken wél, zoals iedereen kan nagaan die mijn formules JUIST heeft overgenomen en het Excel-Filmbestand gebruikt dat op de site van Microsoft te vinden is (dat is hier: https://templates.office.com/nl-nl/Filmlijst-TM02802354 ). Ik ben uitgegaan van de gegevens zoals jij die gegeven hebt, nl. dat er per film slechts 1 regisseur is (bv. Alfred Hitchcock) en dat er per film meerdere acteurs kunnen zijn. Daarom zijn die twee AANTAL.ALS-formules ook niet hetzelfde, kijk maar eens goed !!

@stephanie8712, Berekeningen zoals jij die wil maken, vind ik ten zeerste af te raden. Je bent bijna altijd geneigd om tijden als bv. 7,40 uur als 7 uur en 40 minuten te beschouwen, terwijl het om 7 uur en 24 minuten gaat. En een verschil van 8,50 en 7,40 uur is niet 1 uur en 10 minuten, maar 1 uur en 6 minuten. De ervaring heeft geleerd dat de meeste mensen dat niet meteen zien. Gebruik als notatie en bij de berekening daarom 7:24 in plaats van 7,40 , dat is voor alle gebruikers veel duidelijker.

Lijkt mij dezelfde vraag als hier: http://www.helpmij.nl/forum/showthread.php/910333-Excel-Macro-gt-foutmelding-object-required

Je hebt daarvoor in Excel niet de mogelijkheden zoals in Word. Om de tekst in een cel verticaal gelijkmatig te verdelen, kun je best de 'Tekstuitlijning verticaal' instellen op 'Gecentreerd'.

Dat kan bv. door het uitvoeren van deze macro: Sub macro1() Dim x As Integer For x = 1 To ThisWorkbook.Sheets.Count With Sheets(x).Range("A1") If .Value <> 0 Then Sheets(x).Name = .Value End If End With Next x End Sub

Houd de helpfile van Excel (F1) bij de hand. Daarin worden alle functies zeer goed uitgelegd.

Typ in het blad Totalen in B2 (en kopieer naar beneden): =SOM(VERSCHUIVING(Bedrijven!A2;0;1;1;5))

Door een filter in te stellen. Selecteer maar eens een willekeurige cel in de lijst en klik bovenaan in het menu op "Gegevens". Dan zie je dat het filtericoon geel is gekleurd, ten teken dat het filter is ingesteld. Als je 1 x op die knop klikt, zie je dat het filter wordt uitgeschakeld, in de lijst verdwijnen dan de pijltjes. Aantal keer dat een bepaalde regisseur (bv. Alfred Hitchcock) voorkomt (ervan uitgaande dat je bestand 1000 films bevat): =AANTAL.ALS(M$5:M$1000;"Alfred Hitchcock") Aantal keer dat een bepaalde acteur (bv. Tom Hanks) voorkomt =AANTAL.ALS(L$5:L$1000;"* Tom Hanks*") Niet duidelijk is of de rij een andere kleur moet krijgen als je een zesde film toevoegt, of als eenzelfde titel 6 keer voorkomt. Als je nog niet veel ervaring hebt met Excel kun je beter een eenvoudiger Excelbestand gebruiken. Die zijn op internet wel te vinden, zoek maar eens met woorden Excel filmlijst.

Twee opmerkingen vooraf: 1. Als het werknummer steeds wijzigt (zoals je schrijft), dan kun je geen macro gebruiken die algemeen bruikbaar is (tenzij er met de wijziging steeds rekening wordt gehouden). 2. Pas op met punten in de naam van bestanden, dat kan tot fouten aanleiding geven (dat is afhankelijk van wat er na een punt komt, Windows en Excel verwachten na de punt een extensie). Ervan uitgaande dat je de directory waarin het nieuwe bestand moet komen, juist heb weergegeven (ga dat na !), voer - als het bestand "7216.201 Standaardlijst – mengformulier.xlsm" geopend is - deze macro uit: Sub macro1() Dim myarraysh, Newwb As Workbook myarraysh = Array("Afrekening", "Meer-minderwerk") Sheets(myarraysh).Copy Set Newwb = ActiveWorkbook With Newwb .SaveAs "C://Intel/2 Financieel/Werkbegroting" .Close End With End Sub

Ik sta er telkens van te kijken dat mensen zomaar een formule gebruiken, terwijl ze niet weten wat die formule doet. Twee opmerkingen: 1. Het rente-% dat je betaalt voor een lening is niet hetzelfde als het % dat je ontvangt voor een bedrag dat je inlegt. 2. Een rente-% per jaar betekent niet dat het rente-% per maand gelijk is aan datzelfde % gedeeld door 12 ! De berekening is niet moeilijk, maar aangezien je in een vorig topic niet eens de moeite nam om te reageren op een antwoord (wat toch een regel is die in het maatschappelijk verkeer betaamt), ga ik verder niet op je vraag in.

Het kan iets korter, nl: =ALS(B28="";"";HOOFDLETTERS(ALS(DEEL(B28;3;1)=" ";LINKS(B28;2)&"-"&RECHTS(B28;LENGTE(B28)-3);B28))&" "&JAAR(H28)&" "&ALS.FOUT(KIEZEN(VERGELIJKEN(C28;{"Actie";"Animatie";"Drama";"Horror";"Komedie";"Science Fiction";"Speelfilm";"Thriller"};0);"Act";"Ani";"DRM";"HRR";"KMD";"SFC";"SPF";"THR");"NGK"))

Ervan uitgaande dat in B28 een filmtitel staat, in C28 het soort film, en in H28 een DATUM (en GEEN jaartal), kun je dit gebruiken: =ALS(B28="";"";HOOFDLETTERS(ALS(DEEL(B28;3;1)=" ";LINKS(B28;2)&SUBSTITUEREN(DEEL(B28;3;1);" ";"-")&RECHTS(B28;LENGTE(B28)-3);B28))&" "&JAAR(H28)&" "&ALS.FOUT(KIEZEN(VERGELIJKEN(C28;{"Actie";"Animatie";"Drama";"Horror";"Komedie";"Science Fiction";"Speelfilm";"Thriller"};0);"Act";"Ani";"DRM";"HRR";"KMD";"SFC";"SPF";"THR");"NGK"))

Ik begrijp niet helemaal hoe je gegevens dan in de bladen staan, een (voorbeeld)bestand is meestal duidelijker dan een aantal regels tekst. En welke aanpassingen dan nodig zijn, is niet zonder meer te zeggen; het vergt meestal wel de nodige tijd.