alpha

Zie de bijlage. PC-Helpf KAR_1.xlsx

En wat doen die verschillende graden in jouw verhaal? Je vermeldt niet wat daarmee moet gebeuren.

Dat is toch wel heel erg ver gezocht... Je berekent een getal (slechts 1) en dan gebruik je het ook nog niet. Je vult ALLE cellen van B5:E10 met "ok". Je zou dit kunnen gebruiken: Sub macro1() Dim cl As Range Randomize For Each cl In Range("B5:E10") If IsEmpty(cl) Then cl.Value = Int(161 * Rnd + 65) End If Next cl End Sub

Wat ook nog mogelijk is, maar of dat wenselijk is hangt van het gebruik van de calculator af: de opdracht voor de macro toevoegen aan de "Werkbalk snelle toegang". Toevallig (of wellicht niet toevallig) staat bij de icoontjes die je daarvoor kunt gebruiken ook de afbeelding van een rekenmachine. Je hebt die macro dan in alle Excelbestanden meteen ter beschikking en op een gemakkelijk toegankelijke plaats. Zie de bijlage aan de linkerkant onder het lint (je kunt die balk ook boven het lint plaatsen). PC-Helpf jschelling2.xlsm

De afbeelding van de rekenmachine die jij in je Excelbestand plaatste kun je niet gebruiken zonder waarschuwing. Het kan wél met een vorm die je kiest via "Invoegen" - "Vormen". Of via "Invoegen" - "Illustratie". Dat laatste heb ik in de bijlage hieronder gedaan. PC-Helpf jschelling.xlsm

bericht verwijderd, wegens onjuist.

Waar staat in jouw bestand de calculator dan? Ik zie hem niet staan, hoeveel ik ook naar rechts scroll.

Kijk of het bij jou in onderstaand bestand werkt. PC-Helpf jantjeschelling.xlsm

Dan heb je de macro niet goed toegewezen aan een knop. Als je tenminste een knop hebt, want die vraag beantwoordde je nog niet. Opm: Het is altijd beter een Excelbestand op het forum te plaatsen in plaats van afbeeldingen, anders blijven we eindeloos heen-en-weer schrijven.

Heb je je Excelbestand met de macro toch wel opgeslagen als .xlsm-bestand ? Indien niet, kan de macro niet worden uitgevoerd.

1. Heb je gecontroleerd of calc.exe zich in de map C:\Windows\System32 bevindt? Indien niet: doe dat alsnog! (Of systeembestanden of verborgen bestanden al dan niet worden weergegeven, zou op de uitvoering van de macro niet van invloed moeten zijn). 2. Voer je de macro uit m.b.v. een knop, met een sneltoets, of op een andere manier?

Plaats in het werkblad een knop en wijs daar deze macro aan toe: Sub macro1() Dim myVal As Long myVal = Shell("C:\Windows\System32\Calc.exe", vbNormalFocus) End Sub In plaats van een knop kun je uiteraard ook een sneltoets gebruiken.

Daar bedoel ik dit mee: Eerder beschreef ik voor de vragensteller wáár in de Creator's versie van Windows 10 je kunt instellen welk programma je bij welke extensie kunt kiezen. Maar het zou kunnen dat dat in voorgaande versies van Windows 10 op een andere plaats moet worden gezocht.

Het kan wat korter. Nog steeds invoeren via Ctrl-Shift-Enter: =ALS(RIJEN(I$4:I4)<=AANTAL.ALS($D$4:$D$9;I$3);INDEX($C$4:$C$9;KLEINSTE(ALS($D$4:$D$9=I$3;RIJ($D$4:$D$9)-3);RIJEN(I$4:I4)));ALS(RIJEN(I$4:I4)<=AANTAL.ALS($D$4:$D$9;I$3)+AANTAL.ALS($G$4:$G$9;I$3);INDEX($F$4:$F$9;KLEINSTE(ALS($G$4:$G$9=I$3;RIJ($G$4:$G$9)-3);RIJEN(I$4:I4)-AANTAL.ALS($D$4:$D$9;I$3)));""))

at is vreemd dat voor openen van een document niet het ingestelde programma wordt gekozen. Ik zou zo gauw de oorzaak niet weten. De documenten die met Open office worden geopend (met "Writer" neem ik aan), hebben die als extensie (de laatste 3 tekens) wel 1 van die waarvan je hierboven een afbeelding toont? Anders moet je voor het openen van een document eens met de rechtermuisknop op het icoon van het document klikken en in het dan verschijnende menu kiezen: "Openen met..." --> "Een andere app kiezen" (of op "Meer apps" klikken als je Word nog niet ziet staan), dan het juiste programma (Word) aanduiden, dan aanvinken: "Altijd deze app gebruiken voor het openen van dit soort bestanden". Dan op Ok Klikken.

Wat passer schrijft is juist. Ik vermeldde dat (van die update) omdat ik niet meer uit mij hoofd weet of je in voorgaande versie(s) van Windows 10 de optie voor het kiezen van het juiste programma op dezelfde plaats vindt.

Onderstaande geldt voor Windows 10 na installatie van de Creator's update. - Kies Start - Instellingen (tandwieltje); - Klik op "APPS" - Klik aan de linkerkant op "Standaard-apps" - Scroll naar beneden en klik op "Standaard-apps per bestandstype kiezen". - In de linkerkolom staan de bestandstypen alfabetisch. Klik bij de bestandstypen .doc, .docm, .docx, .dot, .dotm, .dotx in de rechterkolom op het icoon (programma/app) dat nu staat ingesteld en kies dan in het verschijnende menu het gewenste programma (Word).

Om te voorkomen dat in de cellen waarin geen namen verschijnen ONWAAR komt te staan, moet je er dit van maken: =ALS(EN(RIJEN(I$4:I4)>AANTAL.ALS($D$4:$D$9;I$3);RIJEN(I$4:I4)>AANTAL.ALS($D$4:$D$9;I$3)+AANTAL.ALS($G$4:$G$9;I$3));"";ALS(RIJEN(I$4:I4)<=AANTAL.ALS($D$4:$D$9;I$3);INDEX($C$4:$C$9;KLEINSTE(ALS($D$4:$D$9=I$3;RIJ($D$4:$D$9)-3);RIJEN(I$4:I4)));ALS(RIJEN(I$4:I4)<=AANTAL.ALS($D$4:$D$9;I$3)+AANTAL.ALS($G$4:$G$9;I$3);INDEX($F$4:$F$9;KLEINSTE(ALS($G$4:$G$9=I$3;RIJ($G$4:$G$9)-3);RIJEN(I$4:I4)-AANTAL.ALS($D$4:$D$9;I$3)))))) Natuurlijk ook weer invoeren via Ctrl-Shift-Enter.

Let er wel op dat je consequent bent met de gebruikte namen, dus niet zowel "Zorg en Welzijn" als "Zorg & Welzijn" gebruiken zoals je hebt gedaan, maar 1 van de twee!

Typ in i4 en sluit af met Ctrl-Shift-Enter: =ALS(RIJEN(I$4:I4)<=AANTAL.ALS($D$4:$D$9;I$3);INDEX($C$4:$C$9;KLEINSTE(ALS($D$4:$D$9=I$3;RIJ($D$4:$D$9)-3);RIJEN(I$4:I4)));ALS(RIJEN(I$4:I4)<=AANTAL.ALS($D$4:$D$9;I$3)+AANTAL.ALS($G$4:$G$9;I$3);INDEX($F$4:$F$9;KLEINSTE(ALS($G$4:$G$9=I$3;RIJ($G$4:$G$9)-3);RIJEN(I$4:I4)-AANTAL.ALS($D$4:$D$9;I$3))))) Kopieer de formule naar rechts en naar beneden. Als er meer dan 2 groepen zijn, wordt de formule uiteraard navenant langer, dan is een vba-oplossing meer aangewezen.

Sub macro1() Sheets(1).Range("G1:AB1").Copy ActiveSheet.Range("G1") End Sub

In je tekst heb jet over 'Open Office'-bestanden, maar je plaatst hier Wordbestanden., Als je een Open Officesjabloon ontvangt en je slaat dat op als Wordbestand, dan is het niet abnormaal dat het Wordbestand afwijkt van het Open officebestand, zeker niet als gebruik is gemaakt van een bepaalde opmaak zoals tabellen, wat in jouw documenten het geval is. M.b.t. de twee bestanden die je hebt bijgevoegd, schrijf je dat in het ene document wel kaders zichtbaar zijn en in het andere document niet, maar als ik beide bestanden in Word 2010 open, zijn in beide bestanden kaders zichtbaar en ik zie niet zo gauw wat er mis zou zijn met die documenten. Ik zie ook niet veel verschil tussen de twee documenten, behalve dat ze een andere hoofding hebben en dat in "Verslag1" de tabel rechtsboven wat hoger staat. Als ik beide bestanden open in "Libre Office" (wat nagenoeg gelijk is aan "Open Office"), dan zijn beide teksten vervormd. Edit: zie net na plaatsing van mijn bericht dat Clarkie een soortgelijke opmerking heeft gemaakt.

Moeilijk te zeggen wat de oorzaak is, het kan aan meerdere dingen liggen. Verschil in versies van Open office zou een oorzaak kunnen zijn, maar dat zul je zelf wel al uitgesloten hebben neem ik aan. Je hebt het over een hoofding: als die hoofding een afbeelding is, kan die gemakkelijk voor verschuivingen zorgen. Enz, enz. Als het bestand geen privacygevoelige gegevens bevat, plaats het dan eens hier zodat lezers van dit forum er naar kunnen kijken. Zonder het bestand te kunnen inzien blijft het voor iedereen gissen.

Drie mogelijkheden: =SOMPRODUCT(($C$4:$C$1000="Bedrijven")*($D$4:$D$1000)) of =SOM.ALS($C$4:$C$1000;"Bedrijven";$D$4:$D$1000) of =SOMMEN.ALS($D$4:$D$1000; $C$4:$C$1000;"Bedrijven") Bovenstaande is voor de categorie "Bedrijven", voor de andere categorieën maak je een soortgelijke formule. Het kan handig zijn om van de catgeorieën een lijst te maken en die in een afzonderlijke kolom te plaatsen. in de formules kun je dan in plaats van een naam te gebruiken (bv. "Bedrijven") naar een bepaalde cel verwijzen (bv. P1 of Blad2!A1). NB: Voor lezers van dit forum is het beter dat je bij een vraag een Excelbestand toevoegt en geen afbeelding.

Voor mij (en ik denk ook voor anderen) is het niet erg duidelijk wat je wil. In de bijlage een kopie van de eerste 6 bomen uit je eerste blad. Geef eens duidelijk aan (door zo'n afbeelding hier terug te plaatsen) hoe dat dan moet worden.