alpha

Het doel van je exercitie is mij niet duidelijk met al dat geswitch tussen variabelen. Zonder een bestand met gegevens is het ook moeilijk oordelen. Wel te zeggen is dat twee zaken niet kloppen: je declareert zowel fcelwaarde1 als faanmelding1 als string en vervolgens wil je ze als range gebruiken. Dat kan natuurlijk niet.

Het voorgaande toegepast in je bestand. PC-H Ron001.xlsm

In de formules in vorig bericht is ook cel A27 betrokken, maar ook dat is een samengestelde cel. Dat wil zeggen dat je de formules op de onderbroken bereiken (A17:A26 en A28:A35) afzonderlijk moet toepassen (eb dan optellen om te kijken of 'snel' en 'lak' slechts 1 keer voorkomen). Eenvoudiger is om de samenvoeging van A27 met andere cellen op te heffen zodat je maar 1 formule voor beide bereiken samen (A17:A35) hoeft te gebruiken ("Bezetting E" blijft dan toch nog goed leesbaar in B27).

Als je die gegevensvalidatie toepast, dan kunnen die twee formules rechtsboven vervangen worden (zonder Ctrl-Shift-Enter) door: =INDEX(B17:B35;VERGELIJKEN("snel";A17:A35)) en =INDEX(B17:B35;VERGELIJKEN("lak";A17:A35))

Dat kun je oplossen met gegevensvalidatie voor de bewuste cellen (met de functie aantal.als). Bij de foutmelding vermeld je dan dat slechts 1 x 'snel' of 'als' mag worden gebruikt.

Die formules werken altijd. En of je nu in de formules "snel" en "LAK" met hoofd- of kleine letters schrijft (of beide), dat maakt geen verschil, de formules beschouwen dat allemaal als hetzelfde (dat is iets wat je eenvoudig in enkele seconden zelf kunt testen). Als je bestand door anderen wordt gebruikt, dan spreekt het vanzelf dat je cellen met formules beveiligt, zodat die niet gewijzigd kunnen worden. Bedoel je dat van A17:A35 alleen de eerste naam van "snel" / "lak" moet worden weergegeven rechtsboven?

Ja, dat klopt. Over het probleem met samengevoegde cellen had ik het reeds in een eerder bericht in dit topic. Probeer de formules dan in de cellen ernaast die niet samengesteld zijn, dan zie je dat ze werken. Die formules geven hetzelfde resultaat als de macro, maar uiteraard blijft ook hier de opmerking geldig die ik eerder maakte: ze geven alleen de laatste naam weer in de reeks die wordt doorlopen en daarom begrijp ik niet goed waarom je daarvoor kiest.

In plaats van een macro kun je ook formules gebruiken, dat is eenvoudiger. Typ in AA2 resp. AA3, en sluit af met Ctrl-Shift-Enter (vergeet dat niet!): =INDEX(B17:B35;VERGELIJKEN("zzz";ALS(A17:A35="snel";A17:A35))) =INDEX(B17:B35;VERGELIJKEN("zzz";ALS(A17:A35="lak";A17:A35)))

Tja, als je dat nu wat eerder had gezegd... Waarom plaats je in hemelsnaam een bestand dat er anders uitziet als hetwelk je gebruikt...

De "With... End With" kun je wel weglaten, want de macro wordt sowieso uitgevoerd in het actieve blad. Probeer dus dit: Sub ron3() Dim cl As Variant, myrange As Range Set myrange = Union(Range("A17:A26"), Range("A28:A35")) Range("AA2:AB3").ClearContents For Each cl In myrange Select Case UCase(cl.Value) Case "SNEL" Range("AA2").Value = cl.Offset(, 1) Case "LAK" Range("AA3").Value = cl.Offset(, 1) End Select Next cl End Sub

Ik weet niet wat je allemaal met je Excelbestand hebt uitgevoerd, maar zodra ik er ook maar iets in wijzig en ik sla het bestand op, dan kan ik geen macro meer uitvoeren. Ga dus na wat je hebt ingesteld en maak dat ongedaan. Als dat je probleem niet oplost, begin dan in een nieuw bestand.

Als je die cellen niet wist, dan blijft er het resultaat van een vorige actie staan zolang de macro niet opnieuw is gebruikt. EN afhankelijk van de inhoud van de a-kolom kan het resultaat van een vorige uitvoering nog blijven staan zelfs na uitvoering van de macro. AA2 en AB2 enerzijds en AA3 en AB3 anderzijds, zijn samengevoegde cellen. Daarom was iet te gebruiken: .range("AA2:AB2"), wat eigenlijk had gemoeten. Vooral als je vba gebruikt moet je het samenvoegen van cellen zoveel mogelijk voorkomen. Bij mij verschijnt er in jouw bestand geen foutmelding als ik de macro uitvoer.

Enkele dingen vergeten zie ik, daarom deze correctie: Sub ron3() Dim cl As Variant, myrange As Range With ActiveSheet Set myrange = Union(.Range("A17:A26"), .Range("A28:A35")) .Range("AA2:AB3").ClearContents For Each cl In myrange Select Case UCase(cl.Value) Case "SNEL" .Range("AA2").Value = cl.Offset(, 1) Case "LAK" .Range("AA3").Value = cl.Offset(, 1) End Select Next cl End With End Sub

@Ron, Het nut van je macro ontgaat mij, want je doorloopt een heleboel cellen, maar alleen de laatste die aan de voorwaarde voldoet wordt in AA2 of AA3 ingevuld. Dat gezegd zijnde, als je de macro toch wil gebruiken kan dat op deze manier: Sub ron2() Dim cl As Variant With ActiveSheet Set myrange = Union(.Range("A17:A26"), .Range("A28:A35")) .Range("AA2:AB3").ClearContents For Each cl In myrange Select Case UCase(cl.Value) Case "SNEL" Range("AA2").Value = cl.Offset(, 1) Case "LAK" Range("AA3").Value = cl.Offset(, 1) End Select Next cl End With End Sub

Je kunt zo gratis aan de slag via bijvoorbeeld deze website: http://www.gratiscursus.be/Excel_2016/ Onthoud: Excel leer je door er langdurig mee te werken, niet (alleen) door erover te lezen. Voor de duidelijkheid: ík ben op geen enkele manier betrokken bij die website.

Haye, de 5 'blokken' op een blad kun je ook tezamen selecteren door de ctrl-toets ingedrukt te houden (maar dat weet jij wel denk ik). Als je dat doet, hoef je voor 1 blad de vw. opmaak maar 1 keer in te stellen.

Zoal Haye en ik beiden hierboven schreven: álle cellen waarvoor de vw. opmaak moet gelden, moet je selecteren. Als alle bladen er hetzelfde uitzien, dan selecteer je dus tezamen: C8:AG9, C11:AG12, C14:AG15, C17:AG18, C20:AG21. Dan stel je in het menu bij vw. opmaak de regel in zoals ik dat heb gedaan voor het eerste blad, die kun je gewoon overnemen. Op het moment dat je de vw. opmaak gaat instellen, mogen er uiteraard geen cellen een (vast ingestelde) kleur hebben. Voor de maanden na februari heb je zelfs de indeling nog niet gemaakt en nu verlang je dat mensen op dit forum dat gaan doen. Met de geboden hulp (daar zit alles in) moet je verder kunnen, als je maar een héél klein beetje moeite doet. Met zelfwerkzaamheid leer je het meest en met klakkeloos oplossingen van anderen overnemen leer je niets.

Je kunt alle cellen waarvoor de vw. opmaak moet gelden, selecteren en dan bij vw. opmaak de formule invullen zoals ik dat heb gedaan.

Dat kan eenvoudig via voorwaardelijke opmaak. In de bijlage heb ik dat gedaan voor het eerste blad. kalender.xlsx

In het menu bij de voorwaardelijke opmaak, dat is in mijn voorbeeld toch duidelijk aangegeven?

Ik zou het met voorw. opmaak doen, want als je met meldingen zou werken, dan vliegen de messageboxes je bij een groot bestand voortdurend om de oren. In de bijlage een voorbeeld waarbij een rij wordt rood gekleurd als het verschil tussen begin- en einddatum 365 dagen of minder bedraagt. Vb exelbestand.xlsx

Een aantal oorzaken zijn mogelijk, je kunt het volgende proberen: 1. Kies Bestand (in Excel 2007 de grote ronde Offieknop linksboven) - Opties - Geavanceerd en kijk onder het kopje "Algemeen" of de optie "Andere toepassen negeren die Dynamic Data Exchange (DDE) gebruiken" is aangevinkt. Indien ja, haal dan dat vinkje weg en klik onderaan op Ok. 2. Kies bovenaan in het menu van Excel: "Start", klik in de groep "Cellen" op "Opmaak" en kijk onder "Zichtbaarheid" of er 1 of meer bladen zijn verborgen (dat is het geval als daar de optie "Blad(en) zichtbaar maken" aanklikbaar maken. Als er bladen zijn verborgen, maak ze dan zichtbaar. 3. Klik bovenaan in het menu op "Beeld", kies in de groep "Venster" op "Alle vensters", klik onder "Schikken" op "Naast elkaar" (staat waarschijnlijk al aangeduid), en klik op Ok. Je ziet nu aan de rechterkant boven de kolomletters 3 grote iconen. Klik op het middelste icoon (rechthoek). 4. Sluit Excel en start het opnieuw. Probleem niet opgelost? Ga dan verder met punt 5. 5. Zorg dat Excel gesloten is en ga in Windows Verkenner naar: C:\Gebruikers\Jouw gebr.naam\AppData\Roaming\Microsoft\Excel In die map bevindt zich waarschijnlijk een (gele) map met de naam XLSTART. Die mag blijven staan, maar zie je daar nog andere mappen of losse bestanden staan, verwijder die dan. Als er zich in de map XLSTART ook bestanden bevinden, verwijder die dan ook allemaal. 6. Sluit Windows Verkenner en start Excel om te controleren of het probleem is opgelost. Indien niet, ga dan verder met punt 7. 7. Ga naar het configuratiescherm (in Windows 10 kan dat door op de loep (rechts naast Start) te klikken en dan in te voeren: Configuratiescherm). Kies in dat scherm: "Programma's en onderdelen". Selecteer in dat venster jouw MS Office-versie en klik op "Wijzigen". 8. Sta toe dat wijzigingen mogen worden aangebracht en kies in het eerste venster dat verschijnt: Herstellen. Controleer na afloop of het probleem is opgelost. 8. Laat aub even weten of deze mogelijkheden jouw probleem hebben opgelost.

Een iets kortere oplossing (ook invoeren in F3 en naar beneden kopiëren): =ALS(AANTAL.ALS(C$3:C$28;G3)=0;"";G3)

Typ in F3 en kopieer naar beneden: =ALS.FOUT(INDEX(C$3:C$28;VERGELIJKEN(G3;C$3:C$28;0));"")

Zie deze webpagina van Microsoft: https://support.microsoft.com/nl-nl/help/922849/opening-a-file-is-blocked-by-your-registry-policy-setting-or-file-bloc