alpha

Kijk in de bijlage naar D22 en D23. Als het goed is worden na opening de namen van de functies automatisch aangepast naar jouw Excelversie. Laat aub even weten of dat zo is. PC-Helpf Ran.xlsx

Dan wordt/worden er 1 of meer namen van functies niet herkend. In mijn eerste bericht met formules heb ik 2 x MIDDEN gebruikt (Excel 2010). In Office 365 moet dat zijn (ook 2x natuurlijk): DEEL In mijn tweede bericht met formules moet MIDDEN dan uiteraard ook 2 x vervangen worden door DEEL en moet je ook AFRONDING (Excel 2010) vervangen door AFRONDEN . De functie AFRONDEN.N.VEELVOUD moet niet gewijzigd worden. Met die aanpassingen zouden ook bij jou de formules goed moeten werken.

De uitkomsten in bovenstaande berekeningen zijn 0:21:05 en 0:21:00 , waarbij de celeigenschappen zijn ingesteld op "Tijd", type 37:30:55 . Als je alleen het getal 21 wil zien verschijnen, typ dan: =--AFRONDING((MIDDEN(C18;12;8)-MIDDEN(C3;12;8))*1440;0) en stel daarna de celeigenschappen in als "Standaard" Opm: Afhankelijk van de versie van Excel waarmee je werkt, kan het zijn dat je in de formule in vorig bericht niet MIDDEN moetgebruiken maar DEEL, en in de formule in dit bericht AFRONDEN in plaats van AFRONDING.

Verschil tussen C3 en C18 is: =MIDDEN(C18;12;8)-MIDDEN(C3;12;8) na invoer stel je de celeigenschappen in op "Tijd" -> type 37:30:55 Wil je de tijd afronden op 1 minuut nauwkeurig (d.w.z: 30 seconden en meer naar boven- en minder dan 30 seconden naar beneden afronden op 1 minuut), gebruik dan: =AFRONDEN.N.VEELVOUD(MIDDEN(C18;12;8)-MIDDEN(C3;12;8);1/1440)

Geen woord uitleg erbij, dat is vreemd (hier zijn geen helderzienden voor zover ik weet). Wat is/zijn de begin- en eindtijd(en)? Als het wisselend is en de eerste tijd is een begintijd, dan is de 17e tijd dat ook en die heeft dan geen bijbehorende eindtijd. Verder schrijf je dat je het totaal aan tijden in minuten wil, wat wil je dan met een deel van een minuut? Afronden?

rth741, In onderstaande uitleg ga ik uit van de gegevens zoals je die aan het begin van dit topic hebt vermeld. De handelwijze is zo eenvoudig mogelijk gemaakt, je moet er niets van Excel en/of vba voor kennen. Het Excelbestand wordt alleen maar als kapstok gebruikt om de macro in onder te brengen en uit te voeren, maar die macro had ook in een Wordbestand kunnen worden geplaatst, dat zou geen enkel verschil uitmaken. Met het Excel- (of Word-) bestand zelf gebeurt immers helemaal niets. 1. Open de bijlage en klik op de knop "Wijzig namen". 2. Er verschijnt een venster met Windows Verkenner; daarin moet je op zoek naar de gele map waarin de 350 bestanden staan waarvan je de namen wil wijzigen. In dit voorbeeld is de naam van die map "Radars Europe", bij een volgend gebruik kan dat een andere map zijn. Je moet vooraf goed weten WAAR op je computer die map staat, dan moet je in Windows Verkenner niet zoeken. Zorg dat de naam van die map (Radars Europe) bovenaan in het venster komt te staan door op die naam in de linkerkolom 1 x (of in de rechterkolom 2 x) te klikken. De inhoud van die map (de 350 files) zie je hier overigens niet, maar dat heeft geen belang (ze zijn er wel). 3. Als de naam van de gele map (in dit geval "Radars Europe") in het venster bovenaan staat (je ziet die dan ook onderaan staan naast 'Mapnaam'), klik dan rechts-onderaan in het venster op "Ok". 4. Er verschijnt nu een inputbox waarin wordt gevraagd naar de "oude tekst". In dit voorbeeld is dat: Blitzer fest, dus voer dat in en klik op "Ok". Let goed op hoofd- en kleine letters, want er moet een exacte overeenkomst zijn. In dit voorbeeld zal een bestandsnaam alleen worden aangepast als in de naam 'Blitzer fest' (zonder aanhalingstekens) voorkomt. 5. Er verschijnt een inputbox waarin wordt gevraagd om de "nieuwe tekst" (= de tekst die de oude tekst moet vervangen). Typ in: Fixe en klik op "Ok". 6. De gewenste wijzigingen worden nu onmiddellijk doorgevoerd. Na enkele seconden verschijnt een messagebox met het aantal namen dat werd aangepast. Klik in dat venster op "Ok" om de de actie af te sluiten. Succes ermee; laat aub even weten of het is gelukt. Wijzig namen.xlsm

Als ik het goed heb begrepen, denk ik dat je dit kunt gebruiken: =ALS(Invultab!C18=0;"";Invultab!C18)

Ik dacht juist dat je in de lege cellen dat euroteken wél wou zien. De cellen waarin alleen het euroteken staat, waarvan zijn die een kopie? Van cellen waarin een 0 staat, of van cellen waarin niets staat?

En heb je de cellen waarbij zich dat voordoet wel opgemaakt als "Financieel met 2 decimalen"? In mijn Excel verschijnt het euroteken nl. wél in de cellen waarin een bedrag staat.

Gebruik je misschien een Engelstalige versie van Excel? In dat geval moet je ALS vervangen door IF .

Zou ik niet gebruiken, maar wel bv. dit: =ALS(Invulbestand!C18="";"";Invulbestand!C18) Als je het euroteken wil weergeven: =ALS(Invulbestand!C18="";"€";Invulbestand!C18) of =ALS(Invulbestand!C18=0;"€";Invulbestand!C18) De naam Invulbestand is niet erg gelukkig gekozen als je niet naar een bestand maar naar een ander werkblad verwijst. Overigens kun je in Excel de nulwaarden ook automatisch laten verbergen. Kies daarvoor in het menu: Bestand - Opties - Geavanceerd - en haal daar onder de kop "Weergaveopties voor dit werkblad" het vinkje weg bij: "Een nul weergeven in cellen met een weergave". Klik dan rechts-onderaan op Ok.

Als dit topic nog een tijdje open kan blijven staan, zal ik hier een bestand plaatsen met daarin een macro die ik wat gebruiksvriendelijker zal maken.

@kweezie wabbit, je hebt gelijk. Ik heb na de melding van rth741 de twee zipbestanden die ik hier geplaatst had, terug gedownload en toen gezien dat de inhoud ervan nog compleet was. Sorry, als mijn vorig bericht tot misverstanden heeft geleid.

Je hebt toch wel op de knop in E1 geklikt?

Waarschijnlijk laat het forum maar bijlagen tot een bepaalde grootte toe. Of het laat geen 7z-files toe. Je kunt mij evt. via een privébericht je e-mailadres toesturen, dan kun je het via die weg ontvangen.

Als je slechts 1 keer namen moet hernoemen, dan kun je dat net zo goed handmatig doen, maar zodra je het meerdere keren moet doen, behaal je met de macro veel tijdwinst. Met de macro 330 bestandsnamen hernoemen duurt slechts 3 seconden. Welke andere benaming(en) zie je in de zipfile? Ik doe een nieuwe poging met het versturen van de files; zie de bijlage. Laat aub even weten of het nu wel in orde is. Radars Europe.7z

Zie de bijlage. De bestandsnamen "A Blitzer LKW.csv", "D Blitzer LKW.csv", "Dach Blitzer mobil.csv", en "EU Blitzer mobil.csv" werden niet aangepast. Overigens had ik in de tijd die het kostte om de macro te schrijven de 330 bestandsnamen ook handmatig kunnen aanpassen Radars Europe.7z

Onderstaande macro zou dat moeten doen. Zorg ervoor dat je 'mijnmap=...' aanpast aan jouw situatie: 'gebruikersnaam' = jouw gebruikersnaam op de computer waarop je de macro uitvoert. 'Gebruikers' in Windows Verkenner is voor vba 'Users' en Bureaublad 'Desktop' ('Desktop' kan natuurlijk ook 'Documenten' zijn). De map 'Radars Europe' is bij jou misschien ook niet altijd hetzelfde. "Blitzer fest" wordt vervangen door "Fixe", maar een viertal bestandsnamen voldoen niet volledig aan die voorwaarde ('fest' ontbreekt), vandaar dat die namen niet worden 'meegenomen' . Dat is aanpasbaar natuurlijk, maar daar zal het wel niet op aankomen; je kunt in elk geval vooruit. Sub macro1() Dim a As Integer, mijnfile As String, mijnmap As String Dim newfile As String, oldfile As String, x As Integer mijnmap = "C:\Users\Gebruikersnaam\Desktop\Radars Europe" mijnfile = Dir(mijnmap & "\*.csv") a = 0: x = 0 Do Until mijnfile = "" x = x + 1 If LCase(mijnfile) Like "*blitzer fest*" Then oldfile = mijnmap & "\" & mijnfile newfile = Replace(oldfile, "Blitzer fest", "Fixe") Name oldfile As newfile a = a + 1 End If mijnfile = Dir Loop MsgBox ("Er werden " & a & " bestandsnamen aangepast.") End Sub

Helaas geen antwoord op mijn vraag, daarom maar zelf voor optie 1 gekozen. PC-H Ann1975.xlsm

Wil je in blad1 1 overzicht gesorteerd op datum waarbij de klanten door elkaar mogen staan? (1) Of moeten in blad1 de keuringen ook nog afzonderlijk per klant worden weergegeven? (2) Als je (1) wil, dan kunnen de gegevens van alle klanten naar blad 1 gekopieerd worden en moeten ze daar dan alleen nog op datum gesorteerd worden. Als je (2) wil, dan kun je best eerst de bladen van alle klanten afzonderlijk op datum sorteren en daarna pas naar blad1 kopiëren. Uiteraard moet je er wel voor zorgen dat in de datumkolom overal bestaande datums staan en geen tekst, dat is nu niet het geval.

Dave, bekijk de bijlage en als je iets anders wil berekenen als wat daar staat, laat het dan maar weten. DaveB-3.xlsx

Je vraag was zodanig gesteld dat niet duidelijk was wat je bedoelde. Dat bleek al uit het feit dat een ander dan ik je vroeg om een bestand te plaatsen (dat maakt een vraag meestal veel duidelijker) en dat was ook de reden dat ik om verduidelijking vroeg. Als dat antwoord van jou dan zodanig is dat dat ook weer aanleiding geeft tot verwarring, dan is dat voor degenen die je vraag willen beantwoorden niet prettig. Er is nu meerdere keren heen en weer moeten schrijven, terwijl dat niet nodig was geweest als je je vraag goed had geformuleerd. Als jij schrijft: " Met jouw formule krijg ik waar / omwaar...", dan heb je wel degelijk een formule gebruikt. Maar dát schrijven zonder aan te tonen dat wat je schrijft juist is, daar heeft niemand iets aan; dan moet je dat laten zien middels toevoeging van een een Excelbestand. Als je een vraag stelt dan is het niet onredelijk om zelf enigszins mee te werken aan de oplossing ervan. Ik heb mijn reacties gegeven in jóuw belang, niet in dat van mezelf !

Je gegevens staan in de rijen 4 t/m 9, daar is in de fomule dan ook vanuit gegaan. Als je het aantal rijen en/of kolommen uitbreidt, dan moet je natuurlijk ook de fomule aanpassen. Wat in E18 en F18 komt te staan moet precies hetzelfde zijn als wat in E5:E9 / F5:F9 staat. Eén van de cd-titels in kolom F laat je beginnen met een spatie, die spatie moet je weghalen. Je kunt het best van de artiesten en de titels twee lijstjes maken en die een naam geven, dan kun je in de formule die namen gebruiken. En uit die lijsten laat je in E18 en F18 dan een keuze maken via gegevensvalidatie, dan kun je geen fouten maken wat namen van artiesten en titels betreft. Foutmeldingen als wel een juiste formule gebruikt is, kun je opvangen met 'als.fout'. Kijk in de helpfile van Excel, dat wordt daar goed uitgelegd. En verder: voor elke nieuwe vraag (een vraag die niet op een vorige betrekking heeft) behoor je een nieuw topic te starten. Houd daar voortaan rekening mee. Christof-Gilles.xlsx

Nu formuleer je je vraag anders dan eerst. Je schreef dat de kolommen B en C afzonderlijk moeten worden beschouwd en daaruit begreep ik dat je in kolom D de getallen uit kolom B wil zien die niet in kolom A voorkomen. Daarvan gaf ik de oplossing, te plaatsen in D1 en naar beneden te kopiëren. 'Waar' of 'onwaar' kun je dan niet te zien krijgen, dan heb je een fout gemaakt. Het is op dit forum gebruikelijk om je vraag te verduidelijken door toevoeging van een Excelbestand, Haije vroeg er hierboven al om. Doe dat dus voortaan; voor deze keer zal ik zelf een bestand bijvoegen. Met je zin hierboven ("Ik wil in kolom D de cijfers zien die niet in C en D voorkomen die wel in A staan.") heb je je vraag alleen maar onduidelijker gemaakt, want wat je daarin vraagt is onmogelijk. Als je bedoelt dat je in kolom D de getallen wil weergeven uit kolom A die niet in de kolommen B en C tezamen voorkomen, dan is het antwoord (zie bijlage kolom D): =als(aantal.als(b$1:c$9;a1)=0;a1;"") DaveB.xlsx

Om zoiets te programmeren is het nodig om over het document/de documenten te beschikken waarin de code moet worden gebruikt, zodat te zien is wat er al gemaakt is en hoe het nieuwe er uit moet komen te zien. Maar ik ga daar niet aan beginnen, dat duurt véél langer dan een paar uur (voor mij toch). Afgaande op je tekst zijn de documenten bestemd voor een professionele organisatie. Waarom doen jullie geen beroep op een softwarebedrijf dat alles naar jullie wensen kan maken?