alpha

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.

Correctie: de samengevoegde cellen zijn niet geblokkeerd schrijf je, dan is het eerste punt dat ik hierboven schreef wel waar, maar niet van toepassing. Het tweede punt is ook waar en blijft van toepassing, zowel voor geblokkeerde als niet geblokkeerde cellen in een beveiligd blad.

Als een blad is beveiligd kan men NIET schrijven in de beveiligde cellen! Moest dat wel het geval zijn, dan zou een beveiliging geen enkele zin hebben. Normaal niet, maar je kunt wel instellen dat dat wel kan. Daarvoor moet je bij het instellen van de beveiliging aanvinken dat "Objecten bewerken" is toegestaan.

Jouw Excelbestand geeft op mijn computer voortdurend dll-foutmeldingen. De oorzaken zijn de userforms. Die zijn niet in gebruik, maar ze laten zich bij mij niet verwijderen. Dat zou aan het verschil in Excelversie kunnen liggen. Daarom hieronder geen bestand, maar alleen de code behorend bij ThisWorkbook. In de cellen waarin alleen ja of nee mag komen, kun je best die keuze via validatie laten bepalen, dan kan er bij de invoer geen fout worden gemaakt, zoals bv. het per ongeluk typen van een spatie. Option Explicit Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim mystr As String, myrange1 As Range, myrange2 As Range Dim a1 As Integer, a2 As Integer, answ With Sheets("Checklist") Set myrange2 = .Range("j20:j35") Set myrange1 = Application.Union(.Range("e9:e14"), .Range("j9:j14")) mystr = "": a1 = 0: a2 = 0 a1 = WorksheetFunction.CountA(myrange1) a2 = WorksheetFunction.CountA(myrange2) If a1 < 12 Then mystr = "Beoordeling aanvraag" Else mystr = "Ontwerp en calulatie" End If End With If WorksheetFunction.Or(a1 < 12, a2 < 16) Then answ = MsgBox("Bij " & """" & mystr & """" & " zijn niet alle cellen ingevuld." & _ Chr(10) & "Wil u toch afsluiten?", vbYesNo) End If If answ = vbNo Then Cancel = True End Sub

1. Wil je 1 of 2 meldingen, want dat is niet duidelijk? Als toch alle omrande cellen moeten worden ingevuld, kun je best voor 1 melding kiezen. 2. In je afbeelding lopen de omrande cellen t/m rij 33, maar in je tekst heb je het over 35, welke rij is het? 3. Wat is de naam van het blad waarin bovenstaande gegevens staan. 4. Als alle gewenste cellen zijn ingevuld, moet dan bij afsluiten het bestand niet worden opgeslagen? Als het antwoord ja is, moet bekend zijn: - de naam van het bestand; - de exacte lokatie waar je het bestand wil opslaan (bv: C:\Documents and Settings\Gebruikersnaam\Bureaublad). Opm: Als je geen afbeelding maar een bestand had geplaatst, zouden vraag 2 en 3 niet nodig zijn geweest. Bovendien zouden dan vragenbeantwoorders je blad niet hebben moeten nabouwen. Houd daar voortaan rekening mee!